以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  求助：怎么用程序控制合约窗口显示，以便获取多个合约的同一个技术指标，从而程序可轮循处理各个合约  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=2347)
--  作者：xzhero
--  发布时间：2010/8/3 9:36:34
--  求助：怎么用程序控制合约窗口显示，以便获取多个合约的同一个技术指标，从而程序可轮循处理各个合约
我们想用程序来控制合约显示，动态自动的切换页面，以便让各个合约--比如20个合约东都能获取检验之便，比如CCI， 从而程序可以通过统一指标轮循各个合约，以便我们比较处理
--  作者：admin
--  发布时间：2010/8/3 13:42:50
--  

Sub APPLICATION_VBAStart()
 call Application.SetTimer(0,2000) \'创建一个0号定时器，间隔时间2秒
End Sub

 

dim Index \'全局变量，记录当前的循环数字
Sub APPLICATION_Timer(ID)
 
 \'定时器事件处理
 Application.ActivateFrame "Technic" \'确保技术分析主框架处于激活状态
 
 Code = Array("CU10","RB10","AL10","AU12")
 Market = Array("SQ","SQ","SQ","SQ")
 
 MaxIndex = UBound(Code)
 
 If Index > MaxIndex Then
  Index = 0
 End if
 
 \' 得到框架名称为"Technic"，窗格名称为"Main"的窗格对象
 Set Grid = Technic.GetGridByName("Main")
 
 \'置更换代码数据
 call Grid.ChangeStock(Code(Index),Market(Index))
 
 Grid.ReInitDataFormula
 Index = Index +1

End Sub

你如果需要切换窗格里的公式，使用Grid.InsertFormula 方法
--  作者：xzhero
--  发布时间：2010/8/3 13:49:16
--  

very good

thanks