| 投稿日 | ： 2002/08/28(Wed) 18:36 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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 で タスクバーの位置を指定すればどうでしょう
(上記なくてもＯＫですね）
私の環境では上記で設定できました。＼(-o-)／
WinXP VB6.0(SP5)
やはり、Win98 SE VB6.0(SP5) の環境では出来ませんでした。