Нажатие на кнопку ENTER в текстовом поле

[zaf]

Есть TextBox
(Text2)

Как сделать чтобы если курсор был там т.е. если он активен то при нажатии на ENTER выполнять команду?

Попробовал так Private Sub Text2_Click() но так работает только при нажатии на мышкой по нему:)!

[dr.MIG]

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

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
MsgBox "Во как"
End If
End Sub

[zaf]

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

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
MsgBox "Во как"
End If
End Sub

KeyCode = 13
13 - Это то что там написано или это код клавыши Enter

Лектор чет коворил что каждая клавиша имеет свой код тока на текции из трубочек стрееляли

[dr.MIG]

Это код клавиши Enter.

[zaf]

А где их коды можно узнать?
Хелпа в моем VB нет:(

[kminas]

Лови коды!

[Роман-вб]

Программа на BasPDS (легко переделать под VB):

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

'Ожидание нажатия клавиши
10 s$ = INKEY$: IF s$ = "" THEN GOTO 10
'Выделить и напечатать первый символ
first$ = MID$(s$, 1, 1)
PRINT ASC(first$)
'Анализ I символа
IF first$ = CHR$(27) THEN STOP
IF first$ = CHR$(0) THEN
'Выделить и напечатать II символ
   next$ = MID$(s$, 2, 1)
   PRINT ASC(next$)
END IF
GOTO 10

ИЛИ

vbKeyF1 - От F1
...
vbKeyF12 - До F12

vbKeyA - От A
...
vbKeyZ - До Z(тока англиские буквы(заглавные и обычные))

vbKeyBack - BackSpace

vbKeyInsert - Insert
vbKeyHome - Home
vbKeyPageUp - Page Up
vbKeyDelete - Delete
VbKeyEnd - End
VbKeyPageDown - Page Down

vbKeyNumlock - Num Lock
vbKeyCapital - Caps Lock

vbKeyEscape - Esc
vbKeyReturn - Enter
vbKeySpace - Пробел

vbKeyShift - Shift
vbKeyTab - TAB
VbKeyControl - CTRL
vbKeyMenu - ALT

VbKeyLeft - Стрелка влево
VbKeyRight - Стрелка в право
VbKeyDown - Стрелка в низ
VbKeyUp - Стрелка вверх

[Роман-вб]

я опоздал на 4 мнн.

[zaf]

Лови коды!

Перезаоей plz чет пишет архив поврежден

[zaf]

Программа на BasPDS (легко переделать под VB):

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

'Ожидание нажатия клавиши
10 s$ = INKEY$: IF s$ = "" THEN GOTO 10
'Выделить и напечатать первый символ
first$ = MID$(s$, 1, 1)
PRINT ASC(first$)
'Анализ I символа
IF first$ = CHR$(27) THEN STOP
IF first$ = CHR$(0) THEN
'Выделить и напечатать II символ
   next$ = MID$(s$, 2, 1)
   PRINT ASC(next$)
END IF
GOTO 10

ИЛИ

vbKeyF1 - От F1
...
vbKeyF12 - До F12

vbKeyA - От A
...
vbKeyZ - До Z(тока англиские буквы(заглавные и обычные))

vbKeyBack - BackSpace

vbKeyInsert - Insert
vbKeyHome - Home
vbKeyPageUp - Page Up
vbKeyDelete - Delete
VbKeyEnd - End
VbKeyPageDown - Page Down

vbKeyNumlock - Num Lock
vbKeyCapital - Caps Lock

vbKeyEscape - Esc
vbKeyReturn - Enter
vbKeySpace - Пробел

vbKeyShift - Shift
vbKeyTab - TAB
VbKeyControl - CTRL
vbKeyMenu - ALT

VbKeyLeft - Стрелка влево
VbKeyRight - Стрелка в право
VbKeyDown - Стрелка в низ
VbKeyUp - Стрелка вверх

Приведи пример кода PLZZz который при нажатии vbKeyCapital выполнит
MsgBox "Ты нажал на 'Caps Lock' !", 64, "Заголовок"

[Роман-вб]

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyCapital Then
MsgBox "Ты нажал на 'Caps Lock' !", 64, "Заголовок"
End If
End Sub


[Роман-вб]

zaf

Приведи пример кода PLZZz который при нажатии vbKeyCapital выполнит
MsgBox "Ты нажал на 'Caps Lock' !", 64, "Заголовок"

А что здесь особенного? Или я чего-то не догоняю?

[zaf]

zaf

Приведи пример кода PLZZz который при нажатии vbKeyCapital выполнит
MsgBox "Ты нажал на 'Caps Lock' !", 64, "Заголовок"

А что здесь особенного? Или я чего-то не догоняю?

Я просто Ламер недогоняю

[alibek]

Программа на BasPDS (легко переделать под VB):

Бред ты несешь.
Чем ты заменишь INKEY$?

[AjaxVS]

Чем ты заменишь INKEY$?

GetAsyncKeyState уже отменили, да?

[alibek]

Ну приведи пример для этой API-шки и сравни с INKEY$?
Общего там будет одна строка из пяти-шести.

[Роман-вб]

Короче вот:

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

Private Sub Form_KeyPress(KeyAscii As Integer)
  Print KeyAscii
End Sub


alibek
А INKEY$ (точнее ASC(first$)) заменяется простым параметром события KeyPress -- KeyAscii As Integer

[alibek]

Ты и в самом деле не понимаешь, в чем разница между INKEY$ и установкой переменной в другом обработчике?

[Роман-вб]

установкой переменной в другом обработчике

Что ты имеешь под этим в виду?

[tyomitch]

Он имеет в виду синхронность/асинхронность. Да?

[alibek]

Ну да.