在用户窗体上添加菜单.doc

在用户窗体上添加菜单 在VBA中，用户窗体上是没有菜单的，为了使用方便，我们可以使用API函数在用户窗体上添加菜单，示例代码如下： #001 Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #002 Private Declare Function SetMenu Lib user32 (ByVal hwnd As Long, ByVal hMenu As Long) As Long #003 Private Declare Function CreateMenu Lib user32 () As Long #004 Private Declare Function AppendMenu Lib user32 Alias AppendMenuA (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long #005 Private Declare Function DestroyMenu Lib user32 (ByVal hMenu As Long) As Long #006 Private Declare Function CreatePopupMenu Lib user32 () As Long #007 Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #008 Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long) As Long #009 Private Const GWL_WNDPROC = (-4) #010 Private Const MF_STRING = H0 #011 Private Const MF_POPUP = H10 #012 Private Const MF_SEPARATOR = H800 #013 Dim MenuWnd As Long, Dump As Long, PopupMenuID As Long, PopupMenuWnd As Long, MenuID As Long #014 Private Sub UserForm_Initialize() #015 If Val(Application.Version) 9 Then #016 hwnd = FindWindow(ThunderXFrame, Me.Caption) #017 Else #018 hwnd = FindWindow(ThunderDFrame, Me.Caption) #019 End If #020 MenuWnd = CreateMenu() #021 PopupMenuID = CreatePopupMenu() #022 Dump = AppendMenu(MenuWnd, MF_STRING + MF_POPUP, PopupMenuID, 系统设置(X)) #023 Dump = AppendMenu(PopupMenuID, MF_STRING, 100, 保存(S)...) #024 Dump = AppendMenu(PopupMenuID, MF_STRING, 101, 备份(E)) #025 Dump = AppendMenu(PopupMenuID, MF_STRING, 102, 退出(X)) #026 PopupMenuID = CreatePopupMenu() #027 Dump = AppendMenu(MenuWnd, MF_STRING + MF_POPUP, PopupMenuID, 会计凭证(P)) #028 Dump = AppendMenu(PopupMenuID, MF_STRING, 110, 录入(L)) #0