Question

请教一个VB图片框内画线的问题

我想在一个图片框内均分地画两条线，如下：
Private Sub Command1_Click()
For i = 1 To 2
Picture1.Line (Picture1.Left, (Picture1.Top + Picture1.Height * i / 3))-Step(Picture1.Width / 2, 0)
Next i
End Sub
可这两条线并没有从图片框最左边开始，这是怎么回事呢？

Answer 1

请试一下这个
Private Sub Command1_Click()
For i = 1 To 2
Picture1.Line (0, (Picture1.Top + Picture1.Height * i / 3))-Step(Picture1.Width / 2, 0)
Next i
End Sub
最左为0 最高点也是0，
你写的是picture1在from中的位置

Answer 2

应该编辑Line1和Line2的X1、X2、Y1、Y2属性，而不是Picture1的属性。