Question

VB用画线工具画的线可以有对象名称“Line1”“Line2”,为什么用代码画的线不可以命名为对象LineX？

VB用画线工具画的线可以有对象名称“Line1”“Line2”,用代码画的怎样可以命名对象LineX？如：如何将下列用Line语句画的红线绿线和蓝线分别命名成Line1、Line2、Line3，并能分别用代码改变这些线的粗细颜色等属性？

Private Sub Form_Load()
AutoRedraw = True
DrawWidth = 3
Line (100, 500)-(10000, 500), vbRed
DrawWidth = 6
Line (100, 1000)-(10000, 1000), vbGreen
DrawWidth = 9
Line (100, 1500)-(10000, 1500), vbBlue

End Sub

Answer 1

利用Line控件画的线，与用画图命令Line所画的线，在原理上是完全不同的。前者就像是在黑板上用图钉钉上的挂图，要想改变其位置或者换其他的挂图，只需拔起图钉就能操作；而后者就像是用粉笔直接在黑板上写的字或画，画上去了就很难修改了，必须擦掉重画。
你可以简单地用Cls命令把图形全部清掉再重画，如果只需要修改某条线条，可以在原位置用背景色再画一次，然后再画改变后的线条。

Answer 2

用工具Line画出来的是控件，是个具体的对象，

Line函数画的只是在form这块画布上描绘的线条，不能进行二次操作

想实现你的功能用需要用代码创建line控件 而不是在form画布上绘制

Dim Line1, Line2, Line3

Private Sub Form_Load()

Set Line1 = Controls.Add("VB.Line", "Line1", Form1)
Set Line2 = Controls.Add("VB.Line", "Line2", Form1)
Set Line3 = Controls.Add("VB.Line", "Line3", Form1)
    
    Line1.X1 = 100
    Line1.X2 = 10000
    Line1.Y1 = 500
    Line1.Y2 = 500
    Line1.BorderWidth = 3
    Line1.Visible = True
    Line1.BorderColor = vbRed
    
    Line2.X1 = 100
    Line2.X2 = 10000
    Line2.Y1 = 1000
    Line2.Y2 = 1000
    Line2.BorderWidth = 6
    Line2.Visible = True
    Line2.BorderColor = vbGreen
    
    Line3.X1 = 100
    Line3.X2 = 10000
    Line3.Y1 = 1500
    Line3.Y2 = 1500
    Line3.BorderWidth = 9
    Line3.Visible = True
    Line3.BorderColor = vbBlue

End Sub

或者可以像楼上说的那样，清除画布后按新属性重绘，其实能达到一样的效果