Question

VB中的KeyDown事件

下面的程序用来监测是否按下了Ctrl+A组合键：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA And (Shift And vbCtrlMask) > 0 Then
Print Shift
End If
End Sub
我想问一下这里的 (Shift And vbCtrlMask) > 0是什么意思？ 与直接用Shift = 2替换(Shift And vbCtrlMask) > 0有什么不同？

Answer 1

Shift And vbCtrlMask 做逻辑位运算，参数Shift的每一位表示一种按钮按下状态，比如Shift、Ctrl、Alt键。只有其中一个按键时可以直接用
这种方式最大的好处是用单个变量记录了多个状态值。
比如检查是否同时按下CTRL+SHIFT+A，可以写成这样：
If KeyCode = vbKeyA And (Shift And vbCtrlMask) > 0 And (Shift and vbShiftMask) >0 Then

追问

也就是说如果同时按下CTRL+SHIFT+ALT+A
这条语句If KeyCode = vbKeyA And (Shift And vbCtrlMask) > 0 Then 也是能够执行的
但是如果把改 (Shift And vbCtrlMask) > 0改为Shift = vbCtrlMask，那么只有CTRL+A才可以Print Shift 是吗？

追答

是的

Answer 2

可读性强了，否则2是啥意思不好记忆，单词对老外来说好记忆多了