Твипы в Пиксели

[Easy Coder]

Нужно:
1. Динамически создать N-ное количество контролов на форме,
2. Зная общую высоту контролов, рассчитать высоту формы,
3. Установить нужное значение высоты для формы.

С п.п. 1 - 3 проблем не возникает, но вот в 3-ем высоту формы нужно задавать в твипах, в то время как во 2-ом пункте все расчеты ведутся в пикселях. Следует отметить, что между твипами и пикселями существует какое-то непостоянное соотношение... Подкиньте, кто знает, выражение для перевода одного в другое, или, может быть, есть функция какая-нить для этого?

[alibek]

H = Screen.TwipsPerPixelY * (Text1.Height + ...)
DH = Me.Height - Me.ScaleHeight * Screen.TwipsPerPixelY
Me.Height = DH + H

[MOV]

на сколько помню, один пиксел = 15 твипам (ну или наоборот

[Mikle]

на сколько помню, один пиксел = 15 твипам

не всегда, зависит от режимов экрана и установки "размер системных шрифтов". Так что лучше делать так, как пишет alibek.

[Vi]

... Следует отметить, что между твипами и пикселями существует какое-то непостоянное соотношение... Подкиньте, кто знает, выражение для перевода одного в другое, или, может быть, есть функция какая-нить для этого?

1 дюйм = 72 точки = 1440 твипов = dpi пикселей ' если по-русски
1 inch = 72 points = 1440 twips = dpi pixels
А функции уже привели - это или Screen.TwipsPerPixelX, или Screen.TwipsPerPixelY, хотя есть и специальные функции перевода у графических контейнеров типа Form, PictureBox и т.п. Эти функции называются ScaleX и ScaleY. Например

Код: Выделить всё

  Debug.Print Me.ScaleX(NNN, vbTwips, vbPixels)
  Debug.Print Me.ScaleX(NNN, vbPixels, vbTwips)