程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB6 >> 讀取Windows工作列的大小及位置

讀取Windows工作列的大小及位置

編輯:VB6

此一問題需呼叫 SHAppBarMessage API 函數,細節如下:

1. API 的宣告:

Const ABM_GETTASKBARPOS = &H5
Private Type RECT
 Left As Long
 Top As Long
 Right As Long
 Bottom As Long
End Type
Private Type APPBARDATA
 cbSize As Long
 hWnd As Long
 uCallbackMessage As Long
 uEdge As Long
 rc As RECT
 lParam As Long
End Type

注:如果以上的宣告放在「一般模組」底下, 應在 Const 之前加上 Public 保留字,

並且將Private 保留字去掉。

2. 程式范例:

Dim data As APPBARDATA

data.cbSize = Len(data)

Call SHAppBarMessage(ABM_GETTASKBARPOS, data)

' data.rc.Left 等於工作列的左邊界

' data.rc.Top 等於工作列的上邊界

' data.rc.Right 等於工作列的右邊界

' data.rc.Bottom 等於工作列的下邊界

請注意以上求出之工作列位置及大小是以 pixel(像素) 為單位。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved