投稿日 | : 2002/08/28(Wed) 18:36 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^6: タスクバー「自動的に隠す」の設定/解除 |
Dim uAppBarData As APPBARDATA
Dim Ret As Long
uAppBarData.cbSize = Len(uAppBarData)
uAppBarData.hWnd = FindWindow("Shell_TrayWnd", vbNullString)
uAppBarData.uEdge = ABE_BOTTOM
uAppBarData.lParam = ABS_AUTOHIDE
Ret = SHAppBarMessage(ABM_SETSTATE, uAppBarData)
ABE_BOTTOM で タスクバーの位置を指定すればどうでしょう
(上記なくてもOKですね)
私の環境では上記で設定できました。\(-o-)/
WinXP VB6.0(SP5)
やはり、Win98 SE VB6.0(SP5) の環境では出来ませんでした。