Клава

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Max!
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 502
Зарегистрирован: 03.04.2003 (Чт) 22:08
Откуда: Литва

Клава

Сообщение Max! » 13.02.2004 (Пт) 17:23

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

BOO
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 126
Зарегистрирован: 06.09.2003 (Сб) 14:23
Откуда: Саратовская обл. г.Энгельс

попробуй DirectX

Сообщение BOO » 13.02.2004 (Пт) 18:06

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

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4160
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Сообщение Mikle » 13.02.2004 (Пт) 18:29

Код: Выделить всё
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.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 13.02.2004 (Пт) 18:34

Код: Выделить всё
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.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 13.02.2004 (Пт) 18:37

Опоздал... :roll:
Нет меня больше


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 20

    TopList