Question

VB中 picturebox 的mousedown与click事件

VB逐过程调试的时候，一直按F8，当执行完mousedown事件后就不执行click事件了，请问如何解决？我刚刚乱试的时候成功过一次，后来就再也没成果过，求解。
Dim flag As Integer
Dim times As Integer
Dim EX As Single, EY As Single

Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
flag = Button
Print X; Y
EX = X
EY = Y
End Sub
Private Sub picture1_Click()
'这段代码中要用到EX,EY，所以先执行mousedown，再执行click。想问下如何可以执行这段程序。
End Sub

Answer 1

click事件需要鼠标弹起,你进入mousedown事件后,鼠标弹起就不属于你的程序了,所以没有click事件
,你在mousedown事件和click事件中分别设置断点,调试click事件时取消mousedown事件的断点

追问

因为我要用到picturebox在mousedown时的坐标位置以及左击还是右击，所以得执行完mousedown事件后才要执行clcik事件。这样断点也适用不

追答

你可以用MessageBox把你要看的变量弹出来显示

追问

弹出来显示也要执行完mousedown才行呀。。。我刚刚也试了下先down，等mousedown事件执行完之后再up，结果click事件也不触发。。。

Answer 2

这个发生顺序是这样的：MouseDown→MouseUp→Click，如果这些事件里面都有代码，会依次触发。
另外经测试不冲突，请题主把出问题的部分代码贴出来。

追问

部分代码已在问题中，麻烦您看下呢

追答

经测试，还是均可正常执行，如下图：

 

请贴完整代码。

追问

嗯嗯，运行是可以执行两个命令的。我想问的是，逐过程调试过程中，如何调试的时候先执行mousedown，再执行click。我调试的时候只能执行mousedown命令，不知道怎么跳到click里面。您可以试试逐过程调试，看看如何解决这个问题呢

追答

这个很容易理解，Click 是 MouseDown + MouseUp，逐过程调试程序时，当触发 MouseDown 事件的时候，程序执行会中断，调转到调试模式，对于窗体来说只有 MouseDown 这个事件被触发了，而没有 MouseUp，当然也就没有 Click 了。

追问

理解是理解了，就是想调试出来呀。。。就成功过一次，就是随便瞎忙忙的，后来不知道怎么实现了

追答

没明白为什么非得要单步执行调试出来呢？正常执行能运行不就好了么？

可以用 Call 跳转。