欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


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

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有5102人关注过本帖树形打印复制链接

主题：[求助]自定义函数中在窗格中插入公式，为何不成功？
帅哥哟，离线，有人找我吗？
yeyi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：253 积分：1742 威望：0 精华：0 注册：2010/8/12 13:04:52 		[求助]自定义函数中在窗格中插入公式，为何不成功？  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：676 积分：2548 威望：0 精华：3 注册：2011/4/13 16:18:50 		  发帖心情 Post By：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.21875 秒, 5 次数据查询