- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 关于组合键 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=62832)
-- 发布时间：2014/3/18 22:33:04
-- 关于组合键
在keydown事件中， 如何判断是 shif + v 的组合键？ 感谢老师
-- 发布时间：2014/3/19 12:18:12
--
Sub APPLICATION_KeyDown(KeyCode, Shift)
APPLICATION.MsgOut "KeyCode:" & KeyCode
End Sub
用这个代码，你按的任何键，keycode都会显示出来。
Shift+V组合键的keycode=86
-- 发布时间：2014/3/19 21:18:42
-- 关于其他问题
1.那请假老师， 我可以在vba中控制 公式吗 ？ 比如控制 公式某个线 是否显示 ？ 就是vba与公式之间控制
2. 如何在vba中获取 某个合约的 昨日结算价 这个属性 ？ HistoryData 的哪个属性呢？
感谢
[此贴子已经被作者于2014/3/19 21:20:09编辑过]
-- 发布时间：2014/3/20 8:33:11
--
通过全局变量来进行公式是否显示，公式中使用extgbdata读取全局变量，vba中使用document对象的setextdata方法给全局变量赋值。
昨日结算价，通过ReportData对象的LastJieSuan属性获取。不是historydata对象
-- 发布时间：2014/3/20 13:23:14
-- 关于全部变量的问题
1.首先感谢您的回复
我在工具 -》全局中 有看到这个值了 ， 但是为什么在公式中 这个变量一直为 0 ？
SHOW:EXTGBDATA("SHOWVAL"); SHOW值一直为 0
此主题相关图片如下：1.jpg
-- 发布时间：2014/3/20 13:30:32
--
金字塔PEL语言的字符串要用单引号
-- 发布时间：2014/3/20 13:39:04
-- 还是有点问题
1.现在已经可以获取到了， 但是我在公式中要 控制一些 线的 显示， 我测试了 需要重新加载公式 才能生效， 在vba中如何重新刷新公式呢？
-- 发布时间：2014/3/20 16:52:33
--
Set GongShi=Grid.GetFormulaByName("策略名")
GongShi.SetParameter(参数)
Grid.ReInitDataFormula