如何在VB运行中动态添加菜单项目？

方法1：使用菜单数组

在文件菜单里增加一个菜单项,标题任意,现在假设菜单项的Name属性是mnuDynamic

更改菜单项mnuDynamic的可见属性,使mnuDynamic.Visible= False

更改菜单项mnuDynamic的下标(索引)属性,使mnuDynamic.Index=0

在程序中控制菜单项mnuDynamic的动态装入。

Load mnuDynamic(1)

mnuDynamic(1).Caption = "动态菜单1"

mnuDynamic(1).Visible = True

方法2：使用用API函数

新建一个模块，复制以下代码。

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const MF_STRING = &H0&

Public Const MF_BYCOMMAND = &H0&

Public Const GWL_WNDPROC = (-4)

Public Const WM_COMMAND = &H111

Public OldWinProc As Long

Public Function OnMenu(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'{响应菜单事件}

If wMsg = WM_COMMAND Then

If wParam = 1000 Then MsgBox "Dynamic"

End If

OnMenu = CallWindowProc(OldWinProc, hwnd, wMsg, wParam, lParam)

End Function

窗体代码：

Private Sub Form_Load()

Dim hMenu As Long, hSubMenu As Long

hMenu = GetMenu(Me.hwnd)

hSubMenu = GetSubMenu(hMenu, 0)

InsertMenu hSubMenu, 0, MF_BYCOMMAND Or MF_STRING, 1000, "Dynamic"

OldWinProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf OnMenu)

End Sub

菜单项的动态装入

菜单项的动态装入是指菜单项的个数不固定. 例子就是文件菜单中最近打开的

文件的列表。在第一次打开文件之前,该列表是空的,并且不在文件菜单中出现打

开一个文件后,该列表不再是空的,并且文件菜单中出现代表被打开文件的菜单项。

具体的实现过程如下:

在文件菜单里增加一个菜单项,标题任意,并假设菜单项的Name属性是

opened_files_ list

更改菜单项opened_files_list的可见属性,使 opened_files_list.Visible=

False

更改菜单项opened_files_list的下标属性,使 opened_files_list.Index=0

在程序中控制菜单项opened_files_list的动态装入。

假设要显示打开过的第二个文件的文件名,并且该文件名存放在一个文件名数

组opened _file_name里。以下的代码就实现了这一功能:

Load opened_files_list(1)

opened_files_list(1).Caption="&2"+opened_file_name(1)

opened_files_list(1).Visible=True

需要注意的是,对于下标为0的菜单项,不能用Load方法。因为在程序执行时,该

菜单项就 已经被装入到内存里了另外,在菜单项的标题属性字符里的"&"字符具有

特殊的含义,它的作 用是在显示该属性字符串的同时,并不显示"&"本身,而紧跟"&"

的字符在显示时具有下划线, 并且该字符成为热键。

如果下标不为0的菜单项不再需要,为了减少对内存资源的占用,可以用Unload

方法把它 从内存卸出同样地,不能用Unload卸出下标为0的菜单项。

---