１３２．メニューのハンドルを取得する

＜　使用用途　＞
メニューを操作する時に用いる

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ダウンロード・・・「メニューのチェックマークをBMPに変更する」サンプルで使用しています。

　＜　説明　＞
ＡＰＩ関数のGetMenu使用します
GetMenu ＝＞メニューのハンドルを取得する
　　＜引数＞
　　　　　hWnd：ウインドウのハンドル　　　　　
　　＠戻り値＠
　　　　　メニューのハンドル

<　ＳＡＭＰＬＥ　＞
'ここではForm1のメニューハンドルを取得する処理です。
'標準モジュール
Public Declare Function GetMenu Lib "USER32" (ByVal hWnd As Long) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret=GetMenu(Form1.hWnd)
End Sub