133.トップレベル(サブ)メニューのハンドルを取得する

< 使用用途 >
メニューを操作する時に用いる

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


 < 説明 >
API関数のGetSubMenu使用します
GetSubMenu =>トップレベルメニューのハンドルを取得
  <引数>
     hMenu:メニューのハンドル
     nPos:メニュー項目の位置(0〜)     
  @戻り値@
     サブメニューのハンドル


< SAMPLE >
'ここではForm1のサブメニューハンドル(0番目の)を取得する処理です。
'標準モジュール
Public Declare Function GetMenu Lib "USER32" (ByVal hWnd As Long) As Long

Public Declare Function GetSubMenu Lib "USER32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

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

  Dim hMen As Long
  Dim Ret As Long

   hMen=GetMenu(Form1.hWnd)
  
   Ret=GetSubMenu(hMen,0)

End Sub





API 技術関連のページへ戻る

ホーム PV ランキング