Управление!

[Max!]

Как сделать и можно ли так что бы моя прога в игре зарезервировала кнопки на клаве , например F1 выход из игры и тд...?

[Amed]

Довольно просто...

1) Создаёшь на форме таймер с интервалом ~50;
2) Пишешь API декларации;
3) Пишешь код таймера;

Код: Выделить всё

Private Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long
Private Const VK_F1 = &H1B

Private Sub Timer1_Timer()
If GetKeyboardState(F1)<0 then ...(мои действия)...
End Sub

Коды остальных клавиш посмотри в Api Viewer...

[Max!]

Невышло , сразу как я запускаю прогу возникает ошибка , это произашло когда я выставил интервал у тамера и даже когда кампелирую прогу тоже эта ошибка! ожет я неправильно разместил коды :
В (General) я засунул :

Private Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long
Private Const VK_F1 = &H1B

В таимер:
Private Sub Timer1_Timer()
If GetKeyboardState(F1)<0 then MsgBox "???", 0, "???"
End Sub

Всё как ты сказал мне кажется!

[FaKk2]

Private Const VK_F1 = &H1B

А в вызове функции ты написал просто F1:

If GetKeyboardState(F1)<0 then MsgBox "???", 0, "???"

Исправь, и должно заработать.

[ALX_2002]

А вообще можно и так.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Sub Form_Activate()
Do
If GetKeyState(vbKeyF1) = -127 Or GetKeyState(vbKeyF1) = -128 Then MsgBox "d"
Sleep 2
DoEvents
Loop
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End
End Sub

[GoGosha]

А можно без API и ТАйМЕРОВ!!!

Установи у формы KeyPreview = True и пиши

Код: Выделить всё

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF1 Then
        MsgBox "F1"
    End If
End Sub

[Max!]

Спасибо всем всё работает !

[Amed]

2 FAKK2: Спасибо, очепятка однако тупая %)

[John_mc]

А как сделать по нажатию нескольких клавиш? Напремер, Ctrl + Q?
Вот так неполучается:
If KeyCode = vbKeyControl And vbKeyQ then
MsgBox"???"
End if

[alibek]

If Shift And vbCtrlMask = vbCtrlMask Then
If KeyCode = vbKeyQ Then ...
End If

[GoGosha]

А как сделать по нажатию нескольких клавиш? Напремер, Ctrl + Q?
Вот так неполучается:
If KeyCode = vbKeyControl And vbKeyQ then
MsgBox"???"
End if

Вот тебе код, с которым ты определишь коды любых клавишь

Код: Выделить всё

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print "KeyDown: KeyCode = " & KeyCode & "; Shift = " & Shift
End Sub

Как обычно KeyPreview=True. А далее просто жми на кнопки. Значения параметров KeyCode и Shift будет появлятся в окошечке Immediate, внизу Visial Basic-а

[GoGosha]

При Ctrl+Q он выдаёт KeyDown: KeyCode = 81; Shift = 2

Значит надо писать:

If KeyCode = 81 And Shift = 2 Then
MsgBox "Ctrl + Q"
End If