主题：如何知道windows任务栏的高度
51pywg
[专家分：1540] 发布于 2007-12-13 19:34:00
[size=3]用screen.width可以知道任务栏的宽度，那高度通过什么取得呢？请赐救！[/size]
回复列表 （共5个回复）
沙发
tanchuhan [专家分：15140] 发布于 2007-12-13 20:08:00
Screen = 任务栏 ？
如果用户把任务栏拖到左边或右边呢？
板凳
a97191 [专家分：4040] 发布于 2007-12-13 23:34:00
一头雾水
3 楼
一江秋水 [专家分：9680] 发布于 2007-12-14 09:06:00
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim hwnd As Long, traywidth As Long, trayheight As Long, TaskRect As RECT
hwnd = FindWindow("Shell_traywnd", "")
GetWindowRect hwnd, TaskRect
traywidth = TaskRect.Right - TaskRect.Left '宽度
trayheight = TaskRect.Bottom - TaskRect.Top '高度
MsgBox "任务栏宽：" & traywidth & "," & "任务栏高：" & trayheight
End Sub
4 楼
51pywg [专家分：1540] 发布于 2008-01-18 06:35:00
[quote]Screen = 任务栏 ？
如果用户把任务栏拖到左边或右边呢？[/quote]
这个。。。流汗中。。。
5 楼
bcahzvip [专家分：6040] 发布于 2008-01-21 09:01:00
GetSystemMetrics(SM_CYSCREEN) - GetSystemMetrics(SM_CYFULLSCREEN)
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 如何知道windows任务栏的高度