如何在菜单中加新菜单项？？？

Question

程序编译运行后我想在菜单中在添加一个菜单项怎麽实现？

Answer 1

http://dev.csdn.net/article/16/16472.shtm

Answer 2

Dim filenamearry(3) As String
'声明数组用来存储最近打开的三个文件的名称
Private Sub Form_Load()
    Load OpenedList(1)
    Load OpenedList(2)
    '装入两个菜单项
    OpenedList(1).Visible = False
    OpenedList(2).Visible = False
    '设置这两个菜单项
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Unload OpenedList(1)
    Unload OpenedList(2)
    '从内存中卸载这两个菜单项
End SubPrivate Sub Open_Click(Index As Integer)
    CommonDialog1.ShowOpen
    '显示Open对话框
    filenamearry(2) = filenamearry(1)
    '将filenamearry(1)存储到filenamearry(2)
    filenamearry(1) = filenamearry(0)
    '将filenamearry(0)存储到filenamearry(1)
    filenamearry(0) = CommonDialog1.FileName
    '将此时打开的文件的名称存储到filenamearry(0)
    OpenedList(0).Caption = "&1" + filenamearry(0)
    OpenedList(0).Visible = True
    '显示刚刚打开的文件名称
    If Len(filenamearry(2)) > 0 Then
        OpenedList(2).Caption = "&3" + filenamearry(2)
        OpenedList(2).Visible = True
    End If
    If Len(filenamearry(1)) > 0 Then
        OpenedList(1).Caption = "&2" + filenamearry(1)
        OpenedList(1).Visible = True
    End If
End SubPrivate Sub OpenedList_Click(Index As Integer)
Select Case Index
    Case 0
        MsgBox "打开文件" + filenamearry(0), vbOKOnly, "打开"
    Case 1
        MsgBox "打开文件" + filenamearry(1), vbOKOnly, "打开"
    Case 2
        MsgBox "打开文件" + filenamearry(2), vbOKOnly, "打开"
End Select
End Sub

Answer 3

如果是动态的增加菜单，要调用API函数
以前我做过，比较麻烦

Answer 4

做好预添加的菜单内容的界面
     通过选择
确定值 dim var as string
var= 名称
menuname.additem 
如果没有功能
这样做实在没多大意义
 wwqna(york) 做了一个不错的示范
   添加显示历史文件是个典型示例
那块你修改下就能满足