Клава

[Max!]

Как зделать что бы прога реагировала на назатие кнопки вне формы , тоесть нажимаю на нужную кнопку и например msgbox выскачит, все работает пока форма активна , стоет свернуть форму или Form1.Visible = false как нужная кнопка не работает!

[BOO]

попробуй DirectX DirectInput . На этом сайте есть хороший тутор по этому делу
Будет работать однозначно! Вот только это достаточно трудоемко (поключать ДХ и т.д.) поэтому может есть выход проще, но если никто мыслей не подкинет я могу даже прогу тебе кинуть пиши тогда сюды:
BOOevel@yandex.ru

[Mikle]

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

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

Public Function Pressed(k As Byte) As Boolean
  If GetAsyncKeyState(k) < 0 Then Pressed = True Else Pressed = False
End Function


[A.A.Z.]

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

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Sub Command1_Click()
MsgBox "ESC to quit"
Me.Visible = False
MsgBox "Меня нет!"
Do Until GetAsyncKeyState(vbKeyEscape) <> 0
DoEvents
If GetAsyncKeyState(vbKeyA) <> 0 Then MsgBox "A!!!": keybd_event vbKeyA, 0, 2, 0 'Отловить, а затем отпустить клавишу A
DoEvents
Loop
End Sub


[A.A.Z.]

Опоздал...