如何动态生成菜单，急！

Question

有没有方法实现动态生成下拉菜单呢，我的菜单数据都存在数据库中（可以随时修改的），希望每次打开vb执行程序的时候都能重新生成菜单，可以实现吗？如何做？

Answer 1

Option ExplicitPrivate Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long
Private Declare Function CreateMenu Lib "user32" () As Long
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
Private Const MF_STRING = &H0&Private Sub Form_Activate()
    Dim hMenu As Long
    hMenu = CreateMenu()   
    'Append a few menu items
    AppendMenu hMenu, MF_STRING, ByVal 0&, "&Hello !"
    SetMenu Me.hwnd, hMenu
End Sub

Answer 2

事先建立一个munRptSub菜单 设置为不显示 需要时显示 再load 
            Load mnuRptSub(1): mnuRptSub(1).Caption = "企业纳税情况清单(&K)"
            Load mnuRptSub(2): mnuRptSub(2).Caption = "纳税汇总统计表(&T)..."
            Load mnuRptSub(3): mnuRptSub(3).Caption = "企业纳税奖励清"
            Load mnuRptSub(4): mnuRptSub(4).Caption = "企业纳税奖励日汇总(&H)..."
            Load mnuRptSub(5): mnuRptSub(5).Caption = "重点企业税种交纳情况对比表..."
            Load mnuRptSub(5): mnuRptSub(5).Caption = "-"
            Load mnuRptSub(6): mnuRptSub(6).Caption = "免办证费及服务费对照表(&D)..."
            Load mnuRptSub(7): mnuRptSub(7).Caption = "-"
            Load mnuRptSub(8): mnuRptSub(8).Caption = "其他报表(&O)..."

Answer 3

Load mrygl.ydr(mrygl.ydr.UBound + 1)
mrygl.ydr(mrygl.ydr.UBound).Caption = wt!Name

Answer 4

winehero(编程人生)的方法不错^_^

Answer 5

winehero(编程人生),如何添加子菜单？？？你上面好象只能添加父菜单。

Answer 6

我今天做了一个，到这里下载压缩包
http://www.gbzh.com/1100.rar