Sub Technic_CursorMove(Grid, Index, x, y)
Call Grid.ValueByPoint(X,Y,dDate,Price)
application.MsgOut x&","&y&","&dDate&","&round(Price,2)
'dDate=Grid.DateByPoint(X,Y)
'application.MsgOut dDate
End Sub
这段代码中ValueByPoint获取光标所在技术分析图上的日期、价格信息,返回的日期都是当前日期,不是光标所在位置的K线的日期,价格是对的。
DateByPoint返回的日期始终是00:00:00,请检查修改一下。
DateByPoint 问题已修复
ValueByPoint 这个我们没法重现,请告知你具体是怎么操作出现的?
就是用了你的范例,没发现输出的日期有什么问题,打开十字光标鼠标移动,日期输出都正常
Tecnic框架上可以,我是在自建的框架上不行的,用了下面的方法绕过
Call Grid.ValueByPoint(X,Y,dDate,Price)
dCurDate=Grid.DateByPos(Index)
本来第一行的dDate就应该是我需要的时间,可是它始终是最新日期,不是当根k的时间,用下面的语句,根据Index所在位置k线获取日期,就是对的。
你这些在我们最新版4.5上都没法体现,你可以升级后再试试
http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=160688
这个帖子的5楼是我完成的作品,有人需要的话,去下载,也欢迎在此基础上进行完善。
[此贴子已经被作者于2017/12/27 16:57:26编辑过]