Аналоги методов ScaleX, ScaleY.

[Mikle]

Потребовался subj, причём только для перевода из vbHimetric в vbPixels. Это для того, чтобы только ради перевода не создавать объект с такими методами.
Правильно ли я понимаю, что:

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

NewWidth = OldWidth * 0.03779528 * 15 / Screen.TwipsPerPixelX
NewHeight = OldHeight * 0.03779528 * 15 / Screen.TwipsPerPixelY

, или могут быть варианты?

[Хакер]

Правильно, только зачем было коэффициент преобразования между хайметриками и пикселями расписывать как непонятно-какое-число * 15?

[Mikle]

Это я написал, думал, что так понятнее будет. 0.03779528 - это коэффициент при Screen.TwipsPerPixel = 15. В функции, естественно, я перемножу заранее.

[Хакер]

Странно ты как-то считал.
[quote=vb]Private Sub Form_Load()
Debug.Print Me.ScaleX(1, vbHimetric, vbTwips)
End Sub[/quote]
И получаем сколько твипов в одном хайметрике. На это число надо умножать хайметрики, чтобы получить размер в твипах. Осталось только поделить на TwipsPerPixel, для перевод в девайс-депендент единицы.