主题：[讨论]菜单问题

用函数调用宏？语句怎么写？给个示范可以吗

Sub MENU_ShoW()
    call Menu.AddMenu(0, 0, "明心的宏")
End Sub

'上面是菜单的界面

'下面是调用你的宏

Sub MENU_Command(Cmd)
    Select Case Cmd
    Case 0
        明心的宏函数（或者你有窗体,这里写成:XX窗体.Show()）

    End Select
End Sub

Sub MENU_Show()
    call Menu.AddMenu(0, 4, "明心决策")  
End Sub

'下面函数用来相应单击扩展菜单中的命令
Sub MENU_Command(Cmd)
    set MainFrame = Application.ActivateFrame("MainFrame")
    set Grid = MainFrame.ActiveGrid
    Select Case Cmd
    Case 0
      gsinfo(){这个样调用对吗？点击没有反应哦}
    End Select
End Sub

Sub MENU_Show()
    call Menu.AddMenu(0, 4, "明心决策")  
End Sub

'这里的括号里的内容应该是(菜单中的排序,命令号，名称)

'下面函数用来相应单击扩展菜单中的命令
Sub MENU_Command(Cmd)
    set MainFrame = Application.ActivateFrame("MainFrame")
    set Grid = MainFrame.ActiveGrid
    Select Case Cmd
    Case 0
      gsinfo(){这个样调用对吗？点击没有反应哦}
    End Select
End Sub

你上面设置的是4，下面条件分支只有0，肯定没反应，两个要对应