Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:求助:怎么用程序控制合约窗口显示,以便获取多个合约的同一个技术指标,从而程序可轮循处理各个合约

1楼
xzhero 发表于:2010/8/3 9:36:34
我们想用程序来控制合约显示,动态自动的切换页面,以便让各个合约--比如20个合约东都能获取检验之便,比如CCI, 从而程序可以通过统一指标轮循各个合约,以便我们比较处理
2楼
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 方法

3楼
xzhero 发表于:2010/8/3 13:49:16

very good

thanks

共3 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.02148 s, 2 queries.