在vb中用line画了几条竖线，现在我想让边上的两条竖线换成实线，应该怎么办哪？求助高手

Question

如图是运行时出来的画面：

现在都是间隔线，现在我想让边上的两条竖线换成实线，应该怎么办哪？求助高手。这是我的代码：
Private Sub Form_Load()Line1(0).X1 = 0: Line1(0).Y1 = 0: Line1(0).X2 = 0: Line1(0).Y2 = Form1.HeightFor i = 1 To 12 Load Line1(i) Line1(i).X1 = Line1(i - 1).X1 + 1000: Line1(i).Y1 = 100: Line1(i).X2 = Line1(i - 1).X2 + 1000: Line1(i).Y2 = Form1.Height - 400 Line1(i).Visible = True Line1(i).BorderStyle = 2 Next i End Sub

Answer 1

就再画两条直线呀！
再增加以下代码：

Load Line1(i)
Line1(i).X1 = 1000: Line1(i).Y1 = 100: Line1(i).X2 = 1000: Line1(i).Y2 = Form1.Height - 400
Line1(i).Visible = True
Line1(i).BorderStyle = 2
i = i + 1
Load Line1(i)
Line1(i).X1 = 12000: Line1(i).Y1 = 100: Line1(i).X2 = 12000: Line1(i).Y2 = Form1.Height - 400
Line1(i).Visible = True
Line1(i).BorderStyle = 2

Answer 2

让两边的直线的BorderStyle = 1

追问

不可以 直接赋值的话 Line1(12).BorderStyle = 1，会提示数组元素不存在

追答

Private Sub Form_Load()
Line1(0).X1 = 0: Line1(0).Y1 = 0: Line1(0).X2 = 0: Line1(0).Y2 = Form1.Height
For i = 1 To 12
Load Line1(i)
Line1(i).X1 = Line1(i - 1).X1 + 1000: Line1(i).Y1 = 100: Line1(i).X2 = Line1(i - 1).X2 + 1000: Line1(i).Y2 = Form1.Height - 400
Line1(i).Visible = True
If i < 12 Then Line1(i).BorderStyle = 2 Else Line1(i).BorderStyle = 1
Next i
End Sub
这样做更简单啊

追问

哦 谢谢你 根据你的思路我做的很完美 非常抱歉没有选择你的 希望我们下次合作

追答

呵呵，领悟了就是最大收获