以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  关于K线显示数的问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=69944)

--  作者:kenan168
--  发布时间:2014/9/13 15:06:32
--  关于K线显示数的问题


我如何通过vba去控制 画面显示K线数 (也就是K缩放比例的) 呢?   我用 ShowCount  无效, 能否写个例子  


感谢老师

--  作者:王锋
--  发布时间:2014/9/13 19:47:30
--  
不清楚你指的是什么地方没有满足你的需要,可否问题描述清楚一下,最好附带图还有你的VBA代码
--  作者:kenan168
--  发布时间:2014/9/14 8:20:53
--  详细

 比如现在  画面上 显示120根 K线,  能否通过vba控制,显示300根?   详细的vba代码是 ? 


感谢王老师 

--  作者:王锋
--  发布时间:2014/9/14 8:52:08
--  
金字塔的画面上你注意看一下时间坐标上有个滚动条,这个滚动条是用来控制图表加载数据和显示数据用的, 金字塔的图表分2钟情况,即图表加载的数据和显示数据,你还是把这个概念搞清楚吧,不然这里没法回复你的
--  作者:kenan168
--  发布时间:2014/9/14 10:29:16
--  回复


这样说吧,   我目前历史数据加载有  300条,  但我只想在画面上显示100条,   如何控制?  剩下的200条自动被滚动条隐藏了, 就好像  我们按下方向键  缩小和 放大K线一样,使 可视的 K线 只有 100条, 如何通过vba实现 ? 


感谢老师 
[此贴子已经被作者于2014/9/14 10:29:39编辑过]

--  作者:王锋
--  发布时间:2014/9/14 18:21:20
--  

sub TEST()
  \' 得到框架名称为"Technic",窗格名称为"Main"的窗格对象
Set Grid = Technic.GetGridByName("Main")
DataCount = Grid.DataCount
If DataCount >= 100 Then
 Grid.ShowCount = 100
 Grid.StartShowIndex = DataCount - Grid.ShowCount
 Technic.Refresh
End If

END SUB