Question

vb画连续线line(x,y)-(a,b)如何把第一条线的终点a和b数据变成第二条线起点x和y数

Answer 1

line 起点不要设置就可以了

参考代码：
Dim mouseD As Boolean
Private Sub Form_Load()
Form1.AutoRedraw = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Line (X, Y)-(X, Y)
mouseD = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mouseD Then
Form1.Line -(X, Y)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
mouseD = False
End Sub

Answer 2

先赋值:
L(0)=X坐标
L(1)=Y坐标
line(L(0),L(1))-(X坐标,Y坐标)
再赋值:
L(0)=X坐标
L(1)=Y坐标