我用下面的程序,无论鼠标移动多快,看起来都还是很平滑。 :) Option ExplicitPrivate Sub Form_Load() Picture1.AutoRedraw = True End SubPrivate Sub Form_Resize() Picture1.Move 0, 0, ScaleWidth, ScaleHeight End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button And vbLeftButton) = vbLeftButton Then Picture1.CurrentX = X Picture1.CurrentY = Y End If End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button And vbLeftButton) = vbLeftButton Then Picture1.Line -(X, Y) End If End Sub
Option ExplicitPrivate Sub Form_Load()
Picture1.AutoRedraw = True
End SubPrivate Sub Form_Resize()
Picture1.Move 0, 0, ScaleWidth, ScaleHeight
End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And vbLeftButton) = vbLeftButton Then
Picture1.CurrentX = X
Picture1.CurrentY = Y
End If
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And vbLeftButton) = vbLeftButton Then
Picture1.Line -(X, Y)
End If
End Sub