VB編程 制作繪圖軟件 拖動鼠標左鍵畫連續線,拖動右鍵畫線段

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