VBNet - Форум - vbKeyDown и vbKeyUp

Вопрос: vbKeyDown и vbKeyUp Добавлено: 06.05.07 20:51

Автор вопроса: litt

Доброе время суток! Вот такая проблема:
Дано текстовое поле на форме, изначальное значение переменной, значение которой будет вводится в данное поле, равно нулю. Если нажать на KeyDown, то число в этом поле уменьшается на 1, а если KeyUp, то величивается на 1... ну и естествено чтобы видно было, что оно уменьшается и увеличивается...
Вот что у меня получилось :(...не работает только
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyDown
m = m - 1
Case vbKeyUp
m = m + 1
End Select
End Sub
Ответить

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

Номер ответа: 1 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #1	Добавлено: 06.05.07 21:20
	не работает только Потому что KeyPress никогда и не ловил стрелки. Ответить

Номер ответа: 2 Автор ответа: intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169	Профиль \| \| #2	Добавлено: 06.05.07 21:49
	Покажи на клаве KeyUp или KeyDown. KeyPress возвращает код символа а не кавиши Ответить

Номер ответа: 3 Автор ответа: intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169	Профиль \| \| #3	Добавлено: 06.05.07 21:53
	Извини я думал что KeyUp- отпустил клавишу, а KeyDown - нажал клавишу. Ответить

Номер ответа: 4 Автор ответа: litt Вопросов: 6 Ответов: 18	Профиль \| \| #4	Добавлено: 06.05.07 23:07
	Есть еще варианты? Ответить

Номер ответа: 5 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #5	Добавлено: 06.05.07 23:21
	Есть еще варианты? Просмотреть всё-таки список событий формы на предмет других, также связанных с нажатием клавиши. Ответить

Номер ответа: 6 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| \| #6	Добавлено: 07.05.07 00:27
	Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyDown Text1.Text = Val(Text1.Text) - 1 Case vbKeyUp Text1.Text = Val(Text1.Text) + 1 End Select Text1.Refresh End Sub Ответить

Номер ответа: 7 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #7	Добавлено: 07.05.07 07:07
	Text1.Refresh Смысл? Ответить

Номер ответа: 8 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| \| #8	Добавлено: 07.05.07 08:10
	Смотрится красивей. "айс" короче... Ответить

Страница: 1 |