那版主...我想到了一個想法!!!
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Xinit, Yinit As Integer
If Xinit = 0 And Yinit = 0 Then
Xinit = X
Yinit = Y
Exit Sub
End If
Line (Xinit, Yinit)-(X, Y)
Xinit = X
Yinit = Y
If Button = 2 Then
Cls
Xinit = 0
Yinit = 0
End If
End Sub
這個可以改成"點下去以後有一個picturebox在移動"
|