VBNet - Форум - Ещё о клавишах

Вопрос: Ещё о клавишах Добавлено: 11.05.03 10:27

Автор вопроса: &&&&M

Подскажите пожалуйста,
как можно в Textbox-е поймать клавишу Tab?
Заранее спасибо.

Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: hedgehog ICQ: 175571327 Вопросов: 15 Ответов: 207	Web-сайт: ezh.ru Профиль \| \| #1	Добавлено: 12.05.03 00:11
	Легко: событие KeyDown: KeyCode = vbKeyTab Ответить

Номер ответа: 2 Автор ответа: boevik Хранитель чата ICQ: 137392264 Вопросов: 8 Ответов: 557	Web-сайт: www.hypertech.ru Профиль \| \| #2	Добавлено: 12.05.03 08:44
	Не совсем точно. Это сработает если на форме только один контрол и он TextBox. Если добавить кнопку, то нажимая Tab фокус переходит на кнопку и событие KeyDown не срабатывает. Ответить

Номер ответа: 3
Автор ответа:

&&&&M

Вопросов: 8
Ответов: 68

Профиль | | #3

Добавлено: 12.05.03 19:35

Спасибо что откликнулись.

Я как раз с подобной ситуацией и истолкнулся:

на форме много чего и текстбокс.

Выходит что шансов никаких?

Ответить

Номер ответа: 4
Автор ответа:

Danger2002

Вопросов: 10
Ответов: 109

Профиль | | #4

Добавлено: 12.05.03 19:46

А GetAsyncKeyState???

Ответить

Номер ответа: 5
Автор ответа:

&&&&M

Вопросов: 8
Ответов: 68

Профиль | | #5

Добавлено: 12.05.03 21:05

2 Danger2002

А что это такое и с чем его едят?

Ответить

Номер ответа: 6
Автор ответа:

Nonamer

ICQ: 268674940

Вопросов: 31
Ответов: 69

Web-сайт: nonsoft.narod.ru
Профиль | | #6

Добавлено: 13.05.03 01:24

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

' Интервал таймера = 50

Private Sub Timer1_Timer()
Dim key1 As Long
key1 = GetAsyncKeyState(vbTab) ' или 9
If key1 <> 0 Then Msgbox "ОПА!!! НАЖАЛИ Tab!!!"

End Sub

Тока надо учесть, сто сообщение появиться и в том случае, если приложение не активно, поэтому по событиям надо управлять таймером. Включать например когда фокус на том поле, куда надо вводить таб, и выключать при потере фокуса.

C уважением, Nonamer.

Ответить

Номер ответа: 7
Автор ответа:

&&&&M

Вопросов: 8
Ответов: 68

Профиль | | #7

Добавлено: 13.05.03 22:59

Ещё раз большое спасибо всем оветившим!

Ответить

Страница: 1 |