此一问题需呼叫 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....[ 查看全文 ]