Question

编写一个vb程序，当同时按下Alt,Shift和F5键时，在窗体上显示“你按了n次组合键”其中n为组合键的次数

Answer 1

很简单啊，一个API搞定

回头给你写个例子。

WIN7 +VB6测试通过！

 

源码在附件，是我写给你的。希望可以帮到你，不懂的欢迎提问。

 

 

Answer 2

Option Explicit

Private lTimes As Long
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF5 And (Shift And vbShiftMask) > 0 And (Shift And vbAltMask) > 0 Then
        lTimes = lTimes + 1
        Cls
        Print "你按了" & lTimes & "次组合键"
    End If
End Sub

追问

请问shift参数能写成shift=5吗？书上说shift=5表示同时按下shift和alt键，vbshiftmask是什么意思？