Question

vb中用鼠标事件完成：按下鼠标左键开始画图；若同时按下Shift键开始擦图

Answer 1

Dim i As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 1 Then Me.ForeColor = Me.BackColor Else Me.ForeColor = vbBlack
If Not i Then
Me.CurrentX = X
Me.CurrentY = Y
Else
Me.Line -(X, Y)
End If
End Sub

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