Здорово!!!
В моем приложении тоже работает !
Спасибо огромное, уже нажимаю на пульте, все щелкает.
Вы внесли огромный вклад в автоматизацию нашего предприятия
Код: Выделить всё
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_F1 = vbKeyF1
Public Const VK_F2 = vbKeyF2
Public Const VK_F3 = vbKeyF3
Public Const VK_F4 = vbKeyF4
Public Const VK_F5 = vbKeyF5
Public Sub FixGlobals_CtrlShiftQ()
If GetKeyState(VK_F1) < 0 Then MsgBox "Ctrl+Shift+Q+F1"
If GetKeyState(VK_F2) < 0 Then MsgBox "Ctrl+Shift+Q+F2"
If GetKeyState(VK_F3) < 0 Then MsgBox "Ctrl+Shift+Q+F3"
If GetKeyState(VK_F4) < 0 Then MsgBox "Ctrl+Shift+Q+F4"
If GetKeyState(VK_F5) < 0 Then MsgBox "Ctrl+Shift+Q+F5"
End Sub