金字塔VBA常用对象使用范例 [金字塔]
- 咨询内容：
金字塔vba编写策略经常使用的对象，在编程帮助中有很多介绍，但是例子相对较少，本人经过2年来对金字塔vba策略的编写，积累了大量的例子，从今天开始我将不定期整理出来供大家借鉴参考，本楼将是一个目录，供快速浏览。
特别常用的对象：
一、Application对象..............本页2-3楼
二、Order对象....................7-13楼、19楼-20楼/22楼
三、MarketData对象...............36、37楼
(http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=11642&authorid=0&page=1&star=4)
四、Document对象.................39-40楼
(http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642&page=1&star=4)
本目录根据需要不断完善
[此贴子已经被作者于2012-6-9 16:46:57编辑过] - 金字塔客服：
一、Application对象
1、基本介绍
代表 金字塔证券分析系统 应用程序。整个应用程序运行过程中，只有一个Application对象存在。 UserType:返回当前应用程序的版本类别 0普通版 1标准版 2专业版 3金钻版 此属性的应用场景是根据本属性的返回值确定是否支持你的策略，比如：普通版的不支持Order指令，那么你就可以在这里提示客户，告知其软件版本不支持你的策略。 dim iVer iVer=Application.UserType if iVer<2 then Application.MsgOut "你的金字塔版本不支持本程序，请升级账户" exit sub end if End Sub（3）EnginCode:返回当前用户计算机的机器识别码（只读）
此属性的应用场景是限定特定的用户才能使用本程序，因为金字塔软件在每一台机上的识别码都是不相同的，你就可以判断客户的本属性是否与设定值相同，不相同就不让他运行。
Sub Application_VbaStart()
dim sEnginCode dim sTestCode sTestCode="35A7707C1617CBE0" '本行字符串改为你设定的识别码 sEnginCode=Application.EnginCode if strcomp(sEnginCode,sTestCode,vbtextCompare)<>0 then Application.MsgOut "你的不是授权用户，不能使用本程序" exit sub end if End Sub 3、Application的常用方法 IsActivateFrame方法： 使用这两个方法可以判断某一个框架是否已经打开，如果没有打开就打开，如果你的策略必须使用某一个框架上的某一个公式的指标，如果每天都要自己打开框架，或者某人不注意误关了你的框架，代码中自动打开就成为必要了。 Call application.ActivateFrame("ABC") end if 上面代码可以放在定时器过程中，每一次循环都会检测一遍，就可以防止人为关闭了框架了。 （2）ActivateFrameWithCode方法: 这个方法是对ActivateFrame方法的扩充，可以激活框架的同时指定品种和周期，如： Call Application.ActivateFrameWithCode("ABC"，"IF05","ZJ",0)将激活框架ABC,并在框架中打开IF05合约的1分钟分析图。 周期:0=1分钟 1=5分钟 2=15分钟 3=30分钟 4=60分钟 5=日线 6=周线 7=月线 8=年线 9=多日线 10=分笔成交 11=多小时 12=多秒 13=多分钟线 14=季度线 15=半年线 16=节气线 17=3分钟 18=10分钟。 当 FrameName 参数为 "MainFrame" 系统框架周期同时 Cyc 参数为 -1 时，打开分时走势界面。 （3）Settimer和killtimer方法：设置和销毁计时器
end if
If ID=9 then
Application.msgout Cdate(time) & ",9号计时器触发了"
end if
End Sub 4、Application的事件Start 应用程序启动后发生。
写法：
Sub Application_Start() '下面的事件都是加上 Application_ 不再赘述
'你的代码段
End Sub
Close 应用程序关闭时发生。
Timer 当达到SetTimer方法所设定的定时值后发生。其参数为定时器的标识符。（前面有例子）
VBAStart VBA宏启动运行后发生。（前面有例子）
VBAEnd VBA宏停止运行后发生
特别需要注意的地方： 1、计时器一旦设置，如果不显式销毁，下次启动vba时依然会生效的。 所以，你要记住在Application_VBAEnd事件中使用Killtimer来销毁计时器。 2、Application_VBAStart只能有一个，你不要在多个模块中拥有多个vbastart事件，那样系统就会出错的。 [此贴子已经被作者于2012-5-13 8:59:51编辑过] - 网友回复：
写得不错的，继续就好了，最后再重新进行一下就行了
- 网友回复： 很好，学习。
如果以上指标公式不适用于您常用的行情软件
或者您想改编成选股公式，以便快速选出某种形态个股的话，
可以联系我们相关技术人员 QQ: 262069696 进行 有偿 改编！
- 上一篇：请教王峰老师
- 下一篇：没有了！
相关文章
-
指定的模型还没有相关内容！
会员登录/注册