Question

VB编程 制作绘图软件 拖动鼠标左键画连续线,拖动右键画线段

Answer 1

Dim Oldx As Single
Dim Oldy As Single
Dim L As Boolean
Dim i As Integer
Private Sub Form_Load()
i = 0
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
i = i + 1
If i Mod 2 = 0 Then
Me.Line (Oldx, Oldy)-(X, Y)
Else
Oldx = X
Oldy = Y
Me.PSet (X, Y)
End If
Else
L = True
Oldx = X
Oldy = Y
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If L = True Then
Line (Oldx, Oldy)-(X, Y)
Oldx = X
Oldy = Y
End If
End Sub

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