以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  [求助]分时图锁定当日时间段  (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=184172)
--  作者：Guanx
--  发布时间：2021/2/3 4:22:22
--  [求助]分时图锁定当日时间段
指定当日分时图的时间段
设定框架名为：FS
唯一窗格名为：window1
代码：

Call Application.ActivateFrame("FS")
Set Grid = FS.GetGridByName("window1")
Grid.LockTodayTimeSect = 1
Grid.LockTimeSectStart = 09\'00\'00
Grid.LockTimeSectEnd = 11\'30\'00
Call Grid.ReInitData()

程序执行流畅，但窗格时段未变，何故？谢谢！
--  作者：yukizzc
--  发布时间：2021/2/3 9:34:26
--  

LockTimeSect

是否指定日期显示时段锁定,为1则锁定反之为0

可读写

LockTimeSectStart

锁定显示时段的开始日期时间(LockTimeSect属性为1时有效)

可读写

LockTimeSectEnd

锁定显示时段的结束日期时间(LockTimeSect属性为1时有效)

 

 

 

LockTimeSect属性为1时有效
--  作者：Guanx
--  发布时间：2021/2/3 9:57:27
--  
改过来，去掉了Today，结果一样，都是数据闪烁，坐标不变

Call Application.ActivateFrame("FS")
Set Grid = FS.GetGridByName("window1")
Grid.LockTimeSect = 1
Grid.LockTimeSectStart = 09\'00\'00
Grid.LockTimeSectEnd = 11\'30\'00
Call Grid.ReInitData()
--  作者：yukizzc
--  发布时间：2021/2/3 10:11:06
--  

Call Application.ActivateFrame("Technic")
Set Grid = Technic.GetGridByName("Main")
Grid.LockTimeSect = 1
Grid.LockTimeSectStart = "2021/01/01 14:00:00"
Grid.LockTimeSectEnd = "2021/01/30 15:00:00"
Call Grid.ReInitData()

 

 

时间是字符串传入

[此贴子已经被作者于2021/2/3 10:11:52编辑过]
--  作者：Guanx
--  发布时间：2021/2/3 12:58:59
--  
代码在日K线上有效。
需要在分时图上分段的，一天三个交易时段的分时独段显示，如:9:00～11:00，13:30～15:00，21:00～23:00
全屏32个分时窗格，手动太繁琐。强大的VBA可以充分解放劳动力。
可惜无效。
太喜欢金字塔了。
--  作者：yukizzc
--  发布时间：2021/2/3 14:09:54
--  
分时图不支持，你在分时图上右键手工看下就明白们无法限制时间段
--  作者：Guanx
--  发布时间：2021/2/3 14:33:59
--  
太遗憾了！
--  作者：无为剑
--  发布时间：2021/2/3 16:17:41
--  
你在K线图上启用交易时间坐标，然后再将主图置成收盘价线显示模式，这样显示效果和分时图是基本一致的
--  作者：Guanx
--  发布时间：2021/2/4 11:56:10
--  
绝妙的奇思，迂回变通不失为好方法。圆满表达。