Автор статьи: Беседин Игорь
Как узнать сколько твипов в высоту занимает TaskBar (панель задач)?
Для этого используется следующий код. В раздел "General" формы нужно вставить:
Const SM_CYSCREEN = 1
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
А в код формы -
Private Sub Form_Click()
a = (GetSystemMetrics(SM_CYSCREEN) - GetSystemMetrics(17)) * Screen.TwipsPerPixelY
MsgBox a
End Sub
Где a - переменная, которая возвратит значение высоты панели задач.
При любом воспроизведении этой статьи (и других статей с этого сайта) ставьте ссылку на сайт www.igoryksoft.narod.ru