Question

VB如何判断出任务栏的高度。

我们左面下方都是任务栏，如何判断出任务栏的高度。

Answer 1

能，几个API函数的事情

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 Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Command1_Click()
Dim Hwnd As Long
Dim WinRECT As RECT
Hwnd = FindWindow("Shell_TrayWnd", vbNullString)
GetWindowRect Hwnd, WinRECT
MsgBox "任务栏长度: " & WinRECT.Right - WinRECT.Left & vbCrLf & "任务栏宽度: " & WinRECT.Bottom - WinRECT.Top, , "单位:Pixel"
End Sub

得出的宽度，长度单位是Pixel，根据你的需要换算一下，如果你的窗体是Twip模式的那么就把原值乘以15就好了。

Answer 2

无法判断，这个就是汇编语言的极限了..........