标题：盘中实时显示最新价水平线

1楼

guotx2010 发表于：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

共1 条记录, 每页显示 10 条, 页签: [1]