Простой вопрос

[Sirik]

Как перевести разрешение экрана в пиксели?
Я делаю так

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

Screen.Height / 15

, но я так понял что 15 эта какая-то константа. Так какая?

И ещё как перевести размеры формы в пексели?

[alibek]

Screen.TwipsPerPixel?

[Sirik]

Screen.TwipsPerPixel?

Спасибо.

А теперь ещё один вопросик: как узнать высоту Панели задач?

[alibek]

Taskbar? Находишь окно FindWindow(Ex), определяешь прямоугольник окна, вычитаешь из Bottom Top и определяешь высоту.
Или ты хочешь узнать рабочую область десктопа? Тогда SystemParametersInfo, константа spiGetWorkArea=48

[Sirik]

2 alibek
Вобщето мне надо знать положение и размеры TaskBar.
Можешь кусочек кода "бросить"?

[alibek]

Это в форуме не написать, надо VB запускать.
Ищешь десктоп (GetDesktopWindow), в нем ищешь окно с классом "Shell_TrayWnd" (FindWindowEx), к найденому окну применяешь GetWindowRect.

[A.A.Z.]

Можно чуточку проще - без GetDesktopWindow()

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

Option Explicit

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Const TASKBAR_CLASS As String = "Shell_TrayWnd"

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Sub Form_Load()
Dim R As RECT, Wnd As Long
Wnd = FindWindow(TASKBAR_CLASS, vbNullString)
GetWindowRect Wnd, R
MsgBox "Height = " & R.Bottom - R.Top
End Sub