powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запретить нажатие пробела
5 сообщений из 5, страница 1 из 1
Запретить нажатие пробела
    #35986722
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго Вам времени суток
Уважаемые господа

при наличии времени прошу Вас помочь

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

в текстовом поле ограничение MaxLength=1

прбовал так

Private Sub t_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeySpace Then

t.text=""

End if

End Sub


С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
Запретить нажатие пробела
    #35986750
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
По моему нужно так:
Код: plaintext
1.
2.
If KeyCode = vbKeySpace Then
    KeyCode =  0 
End if



Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Запретить нажатие пробела
    #35986760
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Благодарю Вас за ответ

я использовал Ваш код
но символ пробела не уходит

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
Запретить нажатие пробела
    #35986769
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: Namik
> но символ пробела не уходит

да правильно,
Код: plaintext
1.
2.
3.
4.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =  32  Then
KeyAscii =  0 
End If
End Sub



Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Запретить нажатие пробела
    #35986771
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое Вам спасибо

все работает как надо

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запретить нажатие пробела
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]