Перевод twips в pixels - VB

Узнай цену своей работы

Формулировка задачи:

Привет! Отрисовываю дочернее окно (textbox) с установкой ширины и высоты по размеру формы. Но текстбокс получается немного шире и выше, чем форма. Скажите, пожалуйста, где я ошибся в расчетах?

Решение задачи: «Перевод twips в pixels»

textual
Листинг программы
Private Function TwipsToPixels(lngTwips As Long, isXScale As Boolean) As Long
    TwipsToPixels = lngTwips / IIf(isXScale, Screen.TwipsPerPixelX, Screen.TwipsPerPixelY)))
End Function

Оцени полезность:

10   голосов , оценка 4 из 5