VBNet - Форум - Перехват нажатия клавиш

Вопрос: Перехват нажатия клавиш Добавлено: 07.02.10 11:37

Автор вопроса: iprog | Web-сайт: usprogs.atheo-club.ru

Здравствуйте.
Подскажите пожалуйста, как перехватить нажатие клавиши Enter в процедуре KeyPress, чтобы текст не переводился на следующую строку? Программу пишу на VB6.
Заранее спасибо.
Ответить

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

Номер ответа: 1 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #1	Добавлено: 07.02.10 13:24
	Пишешь на вб6, а вопрос в разделе .NET. KeyCode = 0 или как его там. Ответить

Номер ответа: 2 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #2	Добавлено: 07.02.10 14:30
	Юля ну как помогло? Ответить

Номер ответа: 3 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| \| #3	Добавлено: 07.02.10 15:06
	Юля)))мб Ilya = илья)))) Ответить

Номер ответа: 4 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #4	Добавлено: 07.02.10 16:53
	Антон ты про что Ответить

Номер ответа: 5 Автор ответа: iprog Вопросов: 26 Ответов: 110	Web-сайт: usprogs.atheo-club.ru Профиль \| \| #5	Добавлено: 07.02.10 17:48
	А у меня ваш совет не работает, Smith. Вообще, код у меня таков: Private Sub Text1_KeyPress(KeyAscii As Integer) If Check5.Value = 1 And KeyAscii = 13 Then 'KeyAscii = 13 -- это код клавиши Enter. Text1.Text = Text1.Text & vbCrLf & " " & Label4.Caption & ". " Label4.Caption = Val(Label4.Caption) + 1 End If End Sub Но при запуске этот код работает не так, как надо. Текст при каждом нажатии Enter съезжает на одну строку вниз. Ответить

Номер ответа: 6 Автор ответа: Dully ICQ: 229882730 Вопросов: 19 Ответов: 51	Профиль \| \| #6	Добавлено: 07.02.10 18:50
	а return использовать? я на 6 бэисике не очень, но если условие сработало текст добавлся но процедура то не оборвалась... значит ентер нажлся... или я не прав? Ответить

Номер ответа: 7 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #7	Добавлено: 08.02.10 02:39
	Мой совет это не совет, это указание на правильное направление . If Check5.Value = 0 And KeyAscii = 13 Then KeyAscii = 0 'тут твой код реакции на энтер End If остальное мусор, я пишу с мобилы по памяти и заранее предупреждаю за код не отвечаю Ответить

Номер ответа: 8 Автор ответа: iprog Вопросов: 26 Ответов: 110	Web-сайт: usprogs.atheo-club.ru Профиль \| \| #8	Добавлено: 09.02.10 19:58
	Спасибо, Smith! Ваш совет оказался полезным. Ответить

Страница: 1 |