111.メニュー項目のIDを取得する

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

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


 < 説明 >
API関数のGetMenuItemIDを使用します
GetMenuItemID =>メニュー項目のIDを取得
  <引数>
     hMenu:メニューのハンドル
      nPos:メニューの項目の位置(0から) 
  @戻り値@
      nPosで指定した位置(項目)のID


< SAMPLE >

’ここではシステムメニューの「元のサイズに戻す」の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





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

ホーム PV ランキング