VB的Picture1_MouseDown事件为什么连续点机鼠标左键两次才执行操作一次？谢谢

huangjunxing 发布于 2017-10-02 12:21， 1873 次点击

Dim x1, y1, r As Single
Private Sub Form_Load()
x1 = 5000
y1 = 5000
r = 100
Picture1.Circle (x1, y1), r
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
r = r + 50
Picture1.Circle (x1, y1), r
End Sub

2 回复

风吹过b2017-10-02 17:16

猜测，
双击时，触发了双击事件，也就只会产生一次鼠标按下的事件。

测试过了，双击时，第二次不会再产生鼠标按下事件。可能是防止冲突

ZHRXJR2017-10-03 07:12

MouseDown事件是鼠标按下时触发的事件，MouseUp事件是鼠标抬起时触发的事件
测试了一下，在MouseDown事件中双击的确只发生一次事件，而在MouseUp事件中双击却发生二次事件。（可以根据触发次数得知）
风吹过b 说的对，可能是防止冲突，但又不理解为什么在MouseUp事件中双击却发生二次事件？
的确有点不理解了！！希望并期盼高手解答！！

VB的Picture1_MouseDown事件为什么连续点机鼠标左键 两次才执行操作一次？谢谢

VB的Picture1_MouseDown事件为什么连续点机鼠标左键两次才执行操作一次？谢谢