Sub MainWnd_IDM_Switch_MenuClick()
Dim WorkMenu As MENUITEMINFO
Dim WorkLong As Long
WorkLong=GetMenuItemInfo(hMenu_IDM_TRAY,IDM_Switch,MF_BYCOMMAND,WorkMenu)
GetLastErr("Test") ’過去ロブにあったエラーメッセージ確認ルーチン
DEBUG
'SetMenuItemInfo(hMenu_IDM_TRAY,IDM_Switch,MF_BYCOMMAND,WorkMenu)
End Sub
'メニュー項目のチェックマークを制御
Declare Function CheckMenuItem Lib "user32" _
(hMenu As Long, wIDCheckItem As Long, wCheck As Long) As Long
'メニューのチェック状態を設定
CheckMenuItem(hMenu_IDM_TRAY, IDM_Switch, MF_BYCOMMAND Or MFS_CHECKED) 'ON
CheckMenuItem(hMenu_IDM_TRAY, IDM_Switch, MF_BYCOMMAND Or MFS_CHECKED) 'OFF
Dim WorkMenu As MENUITEMINFO
Dim WorkLong As Long
Dim buf[MAX_PATH] As Byte
FillMemory (VarPtr(WorkMenu), Len(WorkMenu), 0)
With WorkMenu
.cbSize=Len(WorkMenu)
.fMask=MIIM_STATE Or MIIM_TYPE
.fType=MFT_STRING
.cch=MAX_PATH
.dwTypeData=VarPtr(buf)
End With
WorkLong=GetMenuItemInfo(hMenu_IDM_TRAY, IDM_Switch, MF_BYCOMMAND, WorkMenu)
Debug