7,765
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
SoHo_Andy 2003-12-03
- 打赏
- 举报
简单代码如下，测试通过
Dim x1 As Long
Dim y1 As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line (x1, y1)-(X, Y)
x1 = X
y1 = Y
End Sub
Dim x1 As Long
Dim y1 As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line (x1, y1)-(X, Y)
x1 = X
y1 = Y
End Sub
_1_ 2003-12-03
- 打赏
- 举报
mouse_move事件中 LINE
