高级功能研发区-[求助]自定义函数中在窗格中插入公式，为何不成功？金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]自定义函数中在窗格中插入公式，为何不成功？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=8585)

--  作者：yeyi
--  发布时间：2011/10/24 16:25:04
--  [求助]自定义函数中在窗格中插入公式，为何不成功？
想在技术分析框架-main窗格中插入公式指标，并测试画图，均不成功求教？ Function test1(Formula,cyc) \'得到K线数据对象 set MainFrame = Application.ActivateFrame("Technic") Set Grid = Technic.GetGridByName("Main") \'插入公式KXJTAG Grid.InsertFormula("KXJTAG") \'画图 Grid.DrawEllipse 10,10,100,100,255 test1=0 End Function

--  作者：26327756l
--  发布时间：2011/10/24 16:28:15
--

表格对象插入指标公式是没有问题，我使用了我的电脑上的一个指标试用。

调用指标代码为

if ISLASTBAR then s:TEST1();

自定义函数的VBA代码为

Function test1(Formula)
    \'系统会在逐周期模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    application.MsgOut("tttt")
    set MainFrame = Application.ActivateFrame("Technic")
     Set Grid = Technic.GetGridByName("Main") \'插入公式KXJTAG
      Grid.InsertFormula("Formula4") \'画图
      Grid.DrawEllipse 10,10,100,100,255
      test1=0

End Function

[此贴子已经被作者于2011-10-24 16:49:26编辑过]