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

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

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

　＜　説明　＞
ＡＰＩ関数のGetMenuItemCountを使用します
GetMenuItemCount ＝＞メニューの項目数を取得
　　＜引数＞
　　　　　hMenu：メニューのハンドル
　　＠戻り値＠
　　　　　メニューの項目数

<　ＳＡＭＰＬＥ　＞

’ここではシステムメニューの項目数を取得する処理です。

'標準モジュール
Public Declare Function GetSystemMenu Lib "USER32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Public Declare Function GetMenuItemCount Lib "USER32" (ByVal hMenu As Long) As Long

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

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

　　　MsgBox Ret

End Sub