１１１．メニュー項目のIDを取得する

＜　使用用途　＞
メニュー項目のIDを取得する

サンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・「システムメニューに新しい項目を追加するサンプル」で使用しています。

　＜　説明　＞
ＡＰＩ関数のGetMenuItemIDを使用します
GetMenuItemID ＝＞メニュー項目のIDを取得
　　＜引数＞
　　　　　hMenu：メニューのハンドル
　　　　 　nPos：メニューの項目の位置（0から）　
　　＠戻り値＠
　　　　　 nPosで指定した位置(項目）のID

<　ＳＡＭＰＬＥ　＞

’ここではシステムメニューの「元のサイズに戻す」のIDを取得する処理です。

'標準モジュール
Public Declare Function GetMenuItemID Lib "USER32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Public Declare Function GetSystemMenu Lib "USER32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

'ここからはフォームの処理です
Private Sub Command1_Click()

　　Dim hMen As Long
　　Dim Ret As Long　　
　　
　　　hMen = GetSystemMenu(Form1.Hwnd, 0)
　　　Ret=GetMenuItemID(hMen,0)

　　　MsgBox Ret

End Sub