Question

vb6.0 判断是否按下鼠标右键？

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And 2) = 2 Then
Print "press right button"
End If
为什么用了and就可以不管button的值而直接判断鼠标是否按下右键？

Answer 1

button 一个整数，它对应鼠标各个按钮的状态，如果某个按钮按下，其中就有一个二进制位被设置。button 参数是具有相应于左按钮（位 0），右按钮（位 1），以及中间按钮（位 2）的一个位字段。这些位的值分别等于 1，2，和 4。它指示这些鼠标按钮的整体状态；三个二进制位中的一些、全部、或一个也没有被设置，指示这些按钮中的一些、全部、或一个也没有被按下。

只有当button=2时，(Button And 2) = 2 这个等式才成立，也就是按下了鼠标右键。

Answer 2

and表示按位与是按二进制表示的
鼠标的按键是映射到button这个变量的低三位上的
最后一位表示左键，倒数第二位表示右键，倒数第三位表示中间
与2and屏蔽掉了另外两位，所以与其它键无关