Dim is_drawing As Integer
'Form event procedures:
Private Sub Form_Load()
is_drawing = False
End Sub
Private Sub Form_MouseDown(Button As_ Integer, Shift As Integer, X As Single_ , Y As Single)
is_drawing = True
CurrentX = X
CurrentY = Y
End Sub
Private Sub Form_MouseUp Button As_ Integer, Shift As Integer, X As Single_ , Y As Single)
is_drawing = False
End Sub
Private Sub Form_MouseMove Button As_ Integer, Shift As Integer, X As Single_ , Y As Single)
If is_drawing Then Line -(X, Y)
End Sub
2007-03-19
06:36:03
·
3 answers
·
asked by
mombro
2