狐表标尺如何显示“红色指示线”

\'----------------------标尺--------------
Dim a As New Ruler
a.Vert = True   \'垂直
a.Dock = 5
a.backcolor=color.Azure
e.Form.Controls("Panel2").BaseControl.Controls.Add(a)

Dim b As New Ruler
b.Vert = False   \'平行
b.Dock = 5
b.backcolor=color.Azure
e.Form.Controls("Panel1").BaseControl.Controls.Add(b)

此主题相关图片如下：qq截图20160318165238.png


此主题相关图片如下：qq截图20160318165258.png

抱歉，这种问题，官方不提供支持，官方只对帮助文档的内容提供支持。

 自己做

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77554&skin=0