Question

vb 6.0 keycode 问题

const shift=1
const ctrl=2
const alt=4

请问为什么shift and shift>0 就是按了shift
shift and ctrl>0 就是按了Ctrl
shift and Alt>0 就是按了Alt

Answer 1

参照我以下的代码吧,相关解说不用了吧?
If Shift > 3 Then
KeyAlt.Value = 1
a = Shift - 4
If a - 1 > 0 Then
KeyCtrl.Value = 1
B = a - 2
If B <> 0 Then
KeyShift.Value = 1
Else
KeyShift.Value = 0
End If
ElseIf a - 1 = 0 Then
KeyShift.Value = 1
KeyCtrl.Value = 0
Else
KeyCtrl.Value = 0
KeyShift.Value = 0
End If
ElseIf Shift > 2 Then
KeyShift.Value = 1
KeyCtrl.Value = 1
KeyAlt.Value = 0
ElseIf Shift = 2 Then
KeyCtrl.Value = 1
KeyShift.Value = 0
KeyAlt.Value = 0
ElseIf Shift = 1 Then
KeyCtrl.Value = 0
KeyShift.Value = 1
KeyAlt.Value = 0
elseif shift=0 then
KeyCtrl.Value = 0
KeyShift.Value = 0
KeyAlt.Value = 0
endif