При нажатии...
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- Человек
- Обычный пользователь
- Сообщения: 57
- Зарегистрирован: 02.01.2004 (Пт) 15:34
- Откуда: Russia. Saint-Petersburg
При нажатии...
Человек » 10.01.2004 (Сб) 0:08
Мне надо, что бы при нажатии кнопки(на клавиатуре) что-нибудь происходило?
--<Более мощный компьютер глючит быстрее и точнее>--
- Sanya Z
- Бывалый
-
- Сообщения: 240
- Зарегистрирован: 18.08.2003 (Пн) 3:15
- Откуда: Москва
Sanya Z » 10.01.2004 (Сб) 0:23
- Код: Выделить всё
Dim iKeyCode As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
iKeyCode = KeyCode
If iKeyCode = 37 Then... 'Код выполняется при нажатии кнопки "влево"
End Sub
Попробуй вот так...типа надо описать событие для нужной кнопки. Возможно есть другой способ
И пусть в моих поступках не было логики...
- A.A.Z.
- Член-корреспондент академии VBStreets
- Сообщения: 3035
- Зарегистрирован: 30.06.2003 (Пн) 13:38
A.A.Z. » 10.01.2004 (Сб) 0:26
- Код: Выделить всё
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Function Otlov(Key As Long) As Boolean
DoEvents
If GetAsyncKeyState(Key) <> 0 Then
DoEvents
Otlov = True
Else
DoEvents
Otlov = False
End If
DoEvents
End Function
Sub Form_Load()
Do
If Otlov(vbKeyF1) = True Then
DoEvents
MsgBox "F1"
ElseIf Otlov(vbKeyEscape) = True Then
DoEvents
End
End If
DoEvents
Loop
End Sub
По идее должно работать, хотя писал я без VB или ещё чего-то.
Нет меня больше
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 4