主题：如何将自己做的窗体做成工具栏按钮可调用的？

我自己设计了一个窗体，怎么能在工具栏上放一个按钮打开我的窗体呢？免得每次都要到高级那里去打开？

方法1：添加菜单，例如下面的代码

'下面函数可以在扩展菜单中插入指定菜单内容

'Sub MENU_Show()
'    call Menu.AddMenu(0, 4, "红牛决策")
'    call Menu.AddMenu(1, 5, "大盘买点")
'    call Menu.AddMenu(2, 6, "龙头出水")
'    call Menu.AddMenu(3, 7, "财富通道")
'    call Menu.AddMenu(4, 8, "短线通道")
'    call Menu.AddMenu(5, 0, "波段多空")
'    call Menu.AddMenu(6, 1, "财富波段")
'    call Menu.AddMenu(7, 2, "极限顶底")
'    call Menu.AddMenu(8, 3, "趋势转折线")   
'End Sub

'下面函数用来相应单击扩展菜单中的命令
'Sub MENU_Command(Cmd)
'     set MainFrame = Application.ActivateFrame("MainFrame")
'    set Grid = MainFrame.ActiveGrid
'    Select Case Cmd
'    Case 0
'        Grid.InsertFormula("BDDK")
'    Case 1
'        Grid.InsertFormula("CFBD")
'    Case 2
'        Grid.InsertFormula("JXDD")
'    Case 3
'        Grid.InsertFormula("QSZZX")
'    Case 4
'         Grid.InsertFormula("HNJC")
'    Case 5
'        Grid.InsertFormula("INDEXBUY")
'    Case 6
'         Grid.InsertFormula("Ltcs")
'    Case 7
'         Grid.InsertFormula("cftd")
'    Case 8
'         Grid.insertformula("dxtd")
'    End Select
'End Sub

扩展菜单在默认情况下在工具菜单－》扩展 中。

你还可以在工具－》自定义菜单 中，更改该扩展菜单的位置，例如拖到工具栏中。

方法2：使用快捷键，例如

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=4886

这里对 SHIFT+F12的 处理