我自己设计了一个窗体，怎么能在工具栏上放一个按钮打开我的窗体呢？免得每次都要到高级那里去打开？
方法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的 处理