- 金字塔客服中心 - 专业程序化交易软件提供商 (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=162531)
-- 发布时间：2018/4/4 9:18:30
-- 盘中实时显示最新价水平线
应一个朋友的要求写了一个实时显示最新价连线的代码，用于盘中看最新价是否突破阻力位，据说金字塔客服说搞不定，我就用vba写了，觉得还不错，需要的朋友尽管拿去用，不谢。
效果图：
此主题相关图片如下：最新价.png
代码：
打开框架Technic的代码窗口，停止VBA，复制下面的代码到最后，再启动VBA，然后就可以在技术分析图上看到效果了。
Sub Technic_Paint()
set grid=Technic.GetGridByName("Main")
set his=Grid.GetHistoryData()
nClose=his.close(his.Count-1)
nOpen=his.open(his.Count-1)
nHigh=his.High(his.Count-1)
nLow=his.Low(his.Count-1)
StartY=Grid.PriceToPels(nClose)
iPoxY=Grid.PriceToPels(nClose)
Call Grid.DRAWFONTTEXT(grid.Width-160,iPoxY+100,nClose,255,"宋体",50)
call Grid.DrawLine(0, StartY, grid.Width-50, StartY, 255, 2)
End Sub