以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [讨论]菜单问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=2419)
--  作者：明心
--  发布时间：2010/8/10 10:41:48
--  [讨论]菜单问题
请教一个问题。就是自己编写的宏或者窗体等，可以用自定义菜单添加到菜单栏吗
--  作者：volersky
--  发布时间：2010/8/10 13:21:02
--  

参考Global模块里，用函数调用你的宏，最后在自定义-菜单-扩展里面那菜单拉出到菜单位置，就可以了
--  作者：明心
--  发布时间：2010/8/11 9:39:32
--  

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

 
--  作者：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编辑过]
--  作者：明心
--  发布时间：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
--  作者：volersky
--  发布时间：2010/8/11 19:44:29
--  请教在新交易系统函数中怎样实现反手开仓问题。

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，肯定没反应，两个要对应
--  作者：明心
--  发布时间：2010/8/12 9:10:08
--  
谢谢了。我这就修改去了。