以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [原创] 让光标线显示——带两位小数的价格的方法  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=31522)
--  作者：internethhhh
--  发布时间：2012/12/14 17:12:13
--  [原创] 让光标线显示——带两位小数的价格的方法

   金字塔自带的光标线，价格只显示整数，没办法看到小数位，对下单和止损不是很精准。

   以下代码，是在左端显示价格的方法，精确到小数后两位：

 

Sub Technic_CursorMove(Grid, Index, x, y)
    dim Values
    call Grid.ValueByPoint(x,y,Date,Values,true)
    Grid.DRAWTEXT 1, y, round(Values,2), &H00FFFF&
End Sub

 

   能力有限，在输出价格文字的地方，有点残留。虽然有点瑕疵，但是总比没有的好，期待有大大们帮忙斧正。

  

   用法：将上面代码粘贴到Technic代码下面，保存，运行VBA即可。

[此贴子已经被作者于2012-12-14 17:12:53编辑过]
--  作者：王锋
--  发布时间：2012/12/15 23:47:47
--  
不错，支持以下