主题：狐表标尺

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

'----------------------标尺--------------
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

狐爸太吝啬了，大红袍老师偷偷告诉我吧