Запрет всех символов кроме русских ?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
u3er
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 04.05.2013 (Сб) 21:50

Запрет всех символов кроме русских ?

Сообщение u3er » 22.05.2013 (Ср) 19:04

пробую так но вообще ничего не пишет

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 128 To 256
Case Else
KeyAscii = 0
End Select
End Sub

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 22.05.2013 (Ср) 21:04

Потому что код юникодный?

u3er
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 04.05.2013 (Сб) 21:50

Re: Запрет всех символов кроме русских ?

Сообщение u3er » 23.05.2013 (Чт) 19:56

как разрешить пробел

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 23.05.2013 (Чт) 20:06

32?

u3er
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 04.05.2013 (Сб) 21:50

Re: Запрет всех символов кроме русских ?

Сообщение u3er » 23.05.2013 (Чт) 20:11

Qwertiy писал(а):32?

я знаю что 32 как мне это в код добавить выше чтобы он пробел не игнорил

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 23.05.2013 (Чт) 20:20

А как он русские символы не игнорирует? И пробел так же.

u3er
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 04.05.2013 (Сб) 21:50

Re: Запрет всех символов кроме русских ?

Сообщение u3er » 23.05.2013 (Чт) 22:17

Qwertiy писал(а):А как он русские символы не игнорирует? И пробел так же.

Русские нет когда пробел не пишет сам проверь если не веришь

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 24.05.2013 (Пт) 7:11

Код.

u3er
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 04.05.2013 (Сб) 21:50

Re:

Сообщение u3er » 24.05.2013 (Пт) 12:12

Qwertiy писал(а):Код.



Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 128 To 256
Case Else
KeyAscii = 0
End Select
End Sub

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4148
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Запрет всех символов кроме русских ?

Сообщение Mikle » 24.05.2013 (Пт) 13:40

А если будут копипастить текст?

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 24.05.2013 (Пт) 17:22

u3er писал(а):
Код: Выделить всё
Case 128 To 256

Код: Выделить всё
Case 32, 128 To 256

А вообще, ты же писал, что этот код не работает, нет?

Mikle писал(а):А если будут копипастить текст?

Согласен :)

u3er
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 04.05.2013 (Сб) 21:50

Re: Запрет всех символов кроме русских ?

Сообщение u3er » 24.05.2013 (Пт) 18:07

Qwertiy писал(а):
u3er писал(а):
Код: Выделить всё
Case 128 To 256

Код: Выделить всё
Case 32, 128 To 256

Спасибо больше я так и понял что через запятую

qwertyhp
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 156
Зарегистрирован: 07.10.2009 (Ср) 15:02
Откуда: Москва

Re: Запрет всех символов кроме русских ?

Сообщение qwertyhp » 07.06.2013 (Пт) 2:46

"...А если будут копипастить текст..."
Отслеживать состояние TextBox'а (можно и буфера обмена) таймером?
Пятачок Forever! :)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Google-бот, Yandex-бот и гости: 78

    TopList