Option Explicit '在模块级别中使用,强制显式声明模块中的所有变量。
'函数可以查 意思很明确(根据英文意思)
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Dim pmenu, smenu, a As Long
Const MF_BYPOSITION = &H400& '这个参数很重要,是通过位置来的
Private Sub Form_Load()
pmenu = GetMenu(hwnd) 'hwnd为固定的,现在还不需要知道它是什么
smenu = GetSubMenu(pmenu, 0) '子菜单是从零开始的
a = SetMenuItemBitmaps(smenu, 0, MF_BYPOSITION, Image1.Picture, Image1.Picture) '1
a = SetMenuItemBitmaps(smenu, 1, MF_BYPOSITION, Image2.Picture, Image1.Picture) '2
a = SetMenuItemBitmaps(smenu, 3, MF_B