SetMenuDefaultItem

指定のメニューにデフォルトのメニュー項目を設定

Declare Function SetMenuDefaultItem Lib "user32.dll" _

(ByVal hMenu As Long, ByVal uItem As Long, _

ByVal fByPos As Long) As Long

Declare Function SetMenuDefaultItem Lib "user32.dll" _

(ByVal hMenu As Integer, ByVal uItem As Integer, _

ByVal fByPos As Integer) As Integer

BOOL SetMenuDefaultItem(
HMENU hMenu,
UINT uItem,
UINT fByPos
);
引数
hMenu

新しいメニューのハンドル

メニュー項目のインデックス or ID

uItemの意味を指定する定数

正常終了のとき  0以外

エラーのとき  0

MF_BYCOMMAND = &H0               uItemはメニュー項目のID
MF_BYPOSITION = &H400            uItemはメニュー項目のインデックス サンプル

ダウンロード(SetMenuDefaultItem.lzh 1.61KB)

Private Sub Form_Load()
Dim hSubMenu As Long

'メニューハンドル→サブメニューハンドルを取得
hSubMenu = GetSubMenu(GetMenu(Me.hWnd), 0)

'指定のメニュー項目をデフォルトにする
Call SetMenuDefaultItem(hSubMenu, 1, MF_BYPOSITION)
End Sub