?? module1.bas
字號:
Attribute VB_Name = "Module1"
Public Declare Function GetMenu Lib "user32" _
( _
ByVal hwnd As Long _
) As Long
'獲得窗口中的菜單
'-------------------------------------------------------
Public Declare Function GetSubMenu Lib "user32" _
( _
ByVal hMenu As Long, _
ByVal nPos As Long _
) As Long
'獲得菜單中的子菜單(下一級菜單)
'-------------------------------------------------------
Public Declare Function GetMenuItemID Lib "user32" _
( _
ByVal hMenu As Long, _
ByVal nPos As Long _
) As Long
'獲得菜單項
'-------------------------------------------------------
Public Declare Function GetMenuItemCount Lib "user32" _
( _
ByVal hMenu As Long _
) As Long
'獲得指定菜單下菜單項的數目
'-------------------------------------------------------
Public Declare Function GetMenuItemInfo Lib "user32" _
Alias "GetMenuItemInfoA" _
( _
ByVal hMenu As Long, ByVal un As Long, _
ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO _
) As Boolean
'獲得指定菜單項的信息
Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type
Public Const MIIM_ID = &H2
Public Const MIIM_TYPE = &H10
Public Const MFT_STRING = &H0&
'-------------------------------------------------------
Public 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
'設置菜單項
Public Const MF_BITMAP = &H4&
'-------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -