о ловле нажатой клавиши

[klop086]

Уважаемые, как при form.visible=false поймать нажатие например ctrl+alt+c ?

[Amed]

Используй ф-цию GetAsyncKeyState:

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

Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Вызывай её по таймеру с кодами символов. Она возвращает при нажатой клавише <0, по-моему.

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

Private Sub Timer1_Timer()
Timer1.Interval=50
Timer1.Interval = 50
If GetAsyncKeyState(vbKeyC) < 0 And GetAsyncKeyState(18) < 0 And GetAsyncKeyState(vbKeyControl) < 0 Then MsgBox "Ctrl+Alt+C"
'18 - код клавиши Alt
End Sub

[klop086]

Amed
скажите, пожалуйста,
1 эта функция будет отслеживать все нажатые клавиши, даже при не активности моей программы?

2 form.visible = false - при этом условии моя форма всегда не активна?

<заранее спасибо>

[Amed]

1. Да, абсолютно все нажатия клавиш. Если нужны нажатия клавиш только в программе, то необходимо проверять активность программы с помощью API (скажем, GetDesktopWindow).
2. Имхо если форма невидима, то она автоматически становится неактивной.