ShiftTest = Shift And 7 请教
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ShiftTest = Shift And 7
Select Case ShiftTest
Case 1
Print "you pressed the SHIFT key"
Case 2
Print "you pressed the CTRL key"
Case 3
Print "you pressed both SHIFT and CTRL ."
Case 4
ShiftTest = Shift And 7 什么意思啊
Print "you pressed the ALT key"
End Select
End Sub