Величины измерения

[extHack]

Помогите плиз, в каких величинах измеряется Width и Height формы? Мне надо в пикселях. И как конвертировать ети величины.

[JohnCR]

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

Me.ScaleMode = vbPixels

[GSerg]

А величины Width и Height формы всё равно в твипах.

[Konst_One]

а конвертить можно так:

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

WidthPixel =Me.Width/screen.TwipsPerPixelX
HeightPixel=Me.Height/screen.TwipsPerPixelY

[ANDLL]

За малым изменением:
WidthPixel=Width\Screen.TwipPerPixelX
Ширина в пикселях всегда целая величниа.

[Konst_One]

ANDLL
ну да, целые конечно

[HiMik2003]

а смотря чо делаешь.
Например, если позиционируешь контролы на форме -
используй свойства формы ScaleHeight, ScaleWidth!!!
Ну и конечно лучше в твипах работать.

[ANDLL]

Чем это лучше?

[Viper]

Действительно, чем Twip лучше чем что-то другое?
Для Windows роднее Pixel, меньше чем Pixel точку не нарисуешь...

[tyomitch]

Действительно, чем Twip лучше чем что-то другое?
Для Windows роднее Pixel, меньше чем Pixel точку не нарисуешь...

Удобно текст выводить. 20 твипов - один пункт.
Вот и всё, больше никаких удобств нет

Ещё, чтобы не делить самим - зацените методы ScaleX и ScaleY. С ними проще.

[extHack]

Да shell делаю я, разрешение экрана я вычислил, допустим 800x600, а это надо придать форме. Я нашел решение,

800 x 15 = 12000
600 x 15 = 9000

12000 - width формы, 9000 height формы

[Andrey Fedorov]

Да shell делаю я, разрешение экрана я вычислил, допустим 800x600, а это надо придать форме. Я нашел решение,
800 x 15 = 12000

А не проще будет:

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

MYForm.Width = Screen.Width

[ANDLL]

Кстати, extHack, учти, что TwipPerPixelX это не констнанта. Она зависит от настроек компьютера.

[Andrey Fedorov]

Да shell делаю я, разрешение экрана я вычислил

Кстати, как ты его вычислял, если это просто Screen.Width?

[ANDLL]

Кстати, extHack, написать нормальную оболочку на VB не получится, т.к. она должна быть многопоточной, а в VB это практически невозможно...

[Kovu]

ANDLL писал

Кстати, extHack, учти, что TwipPerPixelX это не констнанта. Она зависит от настроек компьютера.

Ведь дурь можно и не курить А культурно вот так:

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

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CYSCREEN = 1
Public Const SM_CXSCREEN = 0

Private Sub Form_Load()
        SetWindowPos Me.hwnd, 0, 0, 0, GetSystemMetrics(SM_CXSCREEN), _
           GetSystemMetrics(SM_CYSCREEN), 0
End Sub


Public потому что в модуле было