Размер объектов в Win7

[Star Cat]

Размер объектов в Win7
Привет! Когда разворачиваешь объект на всю форму (например WebBrowser или UserControl):

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

WebBrowser1.Move 0, 0, ScaleWidth, ScaleHeight

то всё в порядке. А если размер убавить:

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

WebBrowser1.Move 96, 4, 601, 454

то он становиться ещё меньше. Почему? Исходник прилагается.

[ProgEXEr]

Не очень понятно... Что значит это предложение?

А если размер убавить, то он становиться ещё меньше.

Да, при уменьшении размера объект уменьшается. Всё логично и правильно работает (проверял ).

[Star Cat]

Не очень понятно... Что значит это предложение?

А если размер убавить, то он становиться ещё меньше.

Да, при уменьшении размера объект уменьшается. Всё логично и правильно работает (проверял ).

Объект становиться меньше чем указано в команде «move».

[alibek]

Что показывает msgbox Screen.TwipsPerPixelX ?

[Star Cat]

Что показывает msgbox Screen.TwipsPerPixelX ?

В XP Screen.TwipsPerPixelX = 15, а в Win7 Screen.TwipsPerPixelX = 12
Наверно нужно установить параметр формы ScaleMode = 1 – twip и изменить код:

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

Private Sub Form_Resize()
    Dim SizePixel As Long
    If WindowState = vbMinimized Then Exit Sub
    SizePixel = Screen.TwipsPerPixelX
    WebBrowser1.Move 96 * SizePixel, 4 * SizePixel, 601 * SizePixel, 454 * SizePixel
End Sub

Спасибо за помощь!

[Хакер]

Star Cat, ты приколист? То что есть ещё TwipsPerPixelY тебе ни о чём не говорит?
Кроме того, код в таком виде ничем не отличается от его (кода) отсутствия. Изменение ScaleMode кое-что меняет, но умножение отменяет весь эффект.

А дело в том, что не надо пытаться обхитрить действительность. В VB все размеры изначально измеряются в твипах, а не в пикселях, как раз для того, чтобы не возникало подобных проблем. Твип — device-independent единица. Кнопка высотой 567 твипов будет иметь высоту 1 см на экране монитора любого размера при любом используемом разрешении, при условии, что сама система правильно настроена.

[Star Cat]

Star Cat, ты приколист?

Я всегда менял значение формы ScaleMode на 3 – pixel. Просто так удобнее размещать объекты. Еще раз спасибо.