Question

VB判断鼠标左击、中击、右击

本人写有如下一段代码，请高手指点：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
MsgBox "鼠标左键按下"
Case 2
MsgBox "鼠标右键按下"
Case 3
MsgBox "鼠标中键按下"
End Select
End Sub
试问：为什么按了鼠标中键没反应呢？代码应如何纠正？

Answer 1

1. Case 3 改成 Case 4

另外，在你不知道原因的情况下你可以在这个过程中加入debug.print button

这样 你在窗体上任意按下鼠标的键，你就能从“立即”窗口中知道这个键的botton值是多少。这个办法是经常有用的办法！我觉得你应该学会用这类办法去解决一些比较普通的问题。

如这里你可以这样写：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
debug.print "Botton=";botton,"Shift=";shift,"X=";x,"Y=";y
End Sub
这样你单击鼠标 你就知道了各个值 （逆向思维），然后编程的时候就写这个值 ……

Answer 2

把case 3改成case 4就可以了。或者改成case else(排除左键、右键，只有中键了)。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
MsgBox "鼠标左键按下"
Case 2
MsgBox "鼠标右键按下"
Case 4 'else
MsgBox "鼠标中键按下"
End Select
End Sub

Answer 3

case 3改为case 4,中键值是4.