Запрещение ввода в текстовое поле спец.символов

[Mix]

Поиск юзал - ничего не нашёл...

Как запретить ввод в текстовое поле таких знаков, как !"№;%:?*() и т.д.?
Я нашёл только вот такой способ:

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(***) Then
    KeyAscii = 0
    Beep
End If
End Sub

Но тут надо знать коды нужных символов.
Может быть есть другой способ?

[shady]

Как вариант можно использовать событие KeyDown
KeyDown(KeyCode As Integer, Shift As Integer)
Если клавиша Shift нажата значение переменной Shift = 1 иначе 0

[Денис]

Было-было! С помощью SendMessage отсылаются сообщения, которыми можно вводить только буквы, только числа, фиксированный набор символов и т.п.

[Mix]

Было-было! С помощью SendMessage отсылаются сообщения, которыми можно вводить только буквы, только числа, фиксированный набор символов и т.п.

А по подробней можно? Или ссылку какую-нибудь.

[Mix]

Как вариант можно использовать событие KeyDown
KeyDown(KeyCode As Integer, Shift As Integer)
Если клавиша Shift нажата значение переменной Shift = 1 иначе 0

Хорошее решение!
Но не все символы заблокируются...

[Mix]

Мне нужно, чтоб вводить было можно латинские и кирилические буквы - заглавные и строчные.

[Antonariy]

Но тут надо знать коды нужных символов.
Может быть есть другой способ?

Код: Выделить всё

If Not Chr(KeyAscii) Like "[A-Za-zА-Яа-яёЁ]" Then
    KeyAscii = 0
    Beep
End If

Однако это не спасет от копипаста.

[Mix]

Спасибо большое!

Код: Выделить всё

Like "[A-Za-zА-Яа-яёЁ]"

Никогда подобного не видел, но работает!