标题：[讨论]菜单问题

1楼

明心发表于：2010/8/10 10:41:48

请教一个问题。就是自己编写的宏或者窗体等，可以用自定义菜单添加到菜单栏吗

2楼

volersky 发表于：2010/8/10 13:21:02

参考Global模块里，用函数调用你的宏，最后在自定义-菜单-扩展里面那菜单拉出到菜单位置，就可以了

3楼

明心发表于：2010/8/11 9:39:32

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

4楼

volersky 发表于：2010/8/11 10:44:20

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

[此贴子已经被作者于2010-8-11 10:45:23编辑过]

5楼

明心发表于：2010/8/11 11:20:48

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

6楼

volersky 发表于：2010/8/11 19:44:29

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

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

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

7楼

明心发表于：2010/8/12 9:10:08

谢谢了。我这就修改去了。

共7 条记录, 每页显示 10 条, 页签: [1]