会python真的可以为所欲为0(回)
347天前
这里还有人吗1(回)
532天前这里还有人吗0(回)
532天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
757天前到处都是羊，不想上班0(回)
837天前
鸽子
0(回)
841天前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 |
Const MF_BYPOSITION = &H400& |
Private Sub Form_Load() |
Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long |
mHandle = GetMenu(hwnd) |
sHandle = GetSubMenu(mHandle, 0) |
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture) |
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture) |
lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture) |
lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture) |
sHandle = GetSubMenu(mHandle, 1) |
sHandle2 = GetSubMenu(sHandle, 0) |
lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture) |
End Sub |
Private Sub munExit_Click() |
End |
End Sub |
