狐表标尺如何显示“红色指示线”
'----------------------标尺--------------
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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-3/201631816493069763.png)
此主题相关图片如下:qq截图20160318165258.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-3/201631816493062306.png)