求助，关于一个简单画图板的问题

Question

本帖最后由 ynztluffy 于 2010-05-05 22:46:16 编辑

Answer 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Form1.CurrentX = X
   Form1.CurrentY = YEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 1 Then Form1.Line -(X, Y)
   If Button = 2 Then Form1.Line -(X, Y), Form1.BackColor
End Sub