Контрол TextBox

[david141]

Как в текстовое поле TextBox запретить ввод символов и разрешить ввод только букв и цифр?

Допустим копируем текст с символами (ЕСТЬ?) и встовляем в TextBox
а получаем ЕСТЬ без символов.
Заранее спасибо.

[Хакер]

Множество символов является надмножеством для множества всех букв и множества всех цифр. Следовательно, формулировка "запретить ввод символов и разрешить ввод только букв и цифр" не имеет смысла.

Возможно, имелись ввиду спецсимволы. Не стоит путать слова.

[BV]

Нет. Возможно, имелись ввиду знаки препинания.

На Text_Change перебирай строку посимвольно и удаляй ненужные символы.

[Хакер]

Не забывая сохранять SelStart и SelLength.

[david141]

Мне нужно вставить текст из буфера в TextBox
при этом чтобы обрезались лишние(ненужные) символы.

[Lumen]

http://bbs.vbstreets.ru/viewtopic.php?p=6681865#6681865

[david141]

По ходу ты не в курсе. Я вижу.

[Saturn.65]

У каждой клавиши есть свой код. Если по такому принципу что написать, опять же раскладка какая будет? Вопрос конечно интересный. Как например запретить только буквы и разрешить дробные цифры? Точку ставишь после цифры и уже ошибка ввода.

[Cytron]

Saturn.65
А что, нельзя например, если это находится в диалоговом окне, помечать тексбокс красной рамкой, а кнопку OK делать отключенной пока в текстбоксе опять не появятся нужные символы? Тогда, если тебе нужны ТОЛЬКО дробные цифры, ты можешь разрешить только цифры и точку, но если ввод не подходит, блокировать кнопку OK.
david141
Сам ты не в курсе. BV тебе написал всё как надо а Lumen перенаправил на правильное решение. Что не так?

[Saturn.65]

Мне нужно вставить текст из буфера в TextBox
при этом чтобы обрезались лишние(ненужные) символы.

Это если свою функцию написать. Есть же функция, удаляющаяя пробелы в тексте. Но чтоб кучу символов еще удалять... . Едва ли.
Если еще приспособить функцию поиска этих символов в словах, а потом форматировать.

[Cytron]

Но чтоб кучу символов еще удалять...

А что такое?

[Saturn.65]

Но чтоб кучу символов еще удалять...

А что такое?

Если нельзя знак вопроса, запятую и т.д. , то надо защиту и от введения *;&;%; и т.д. И вообще интересно для чего такая хитрая программа.

[david141]

Это просто качалка с tube.by она выдерает со страницы имя видео
но когда видео идёт с символами допустим (?\/*№#) не хочет качать
как слово без символа качает нормально.

[John_AK]

isCharAlphaNumericA?

[Saturn.65]

Вот код, который запрещает вводить ненужные символы:

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
'Replace the '!@#$%^&*()_+=?' какие символы игнорировать
sTemplate = "!@#$%^&*()_+=?"
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub


[Lumen]

Saturn.65
Твой код не мешает скопировать эти ненужные символы скопировать из буфера обмена.

[Saturn.65]

Saturn.65
Твой код не мешает скопировать эти ненужные символы скопировать из буфера обмена.

Это то да. Тут надо голову поломать. А если буфер обмена перекодировать сперва? У вас светлые головы, может что придумаете.
По крайней мере хоть какая то зацепка.

[Lumen]

Дык а че там ломать-то? Ответ уже во втором посте дан.
Вот к примеру моя реализация (щас за 5 минут левой ногой состряпал):

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

Private Sub Text1_Change()
Dim selst As Long, selln As Long
With Text1
    selst = .SelStart
    selln = .SelLength
    .Text = Replace(.Text, "?", "")
    .Text = Replace(.Text, "!", "")
    'тут дальше можно сколько угодно замен делать ненужных символов на пустую строку
    .SelLength = selln
    .SelStart = selst
End With
End Sub


[Saturn.65]

Lumen
Сказать конечно нечего. Круто ты сообразил. А мы тут целую страницу накатали. Надо скопировать этот код к себе в кирпичи.

[Lumen]

Да блин, то что я "сообразил", на самом деле было описано в третьем и четвертом посте из этого же топика. Нужно было всего лишь воплотить эти идеи в код. Собсно что я за 5 минут и сделал. Так что моей заслуги тут нет.

[david141]

Всем спасибо

[david141]

Всем привет.
Ребята есть ещё один вопрос может кто поможет?
Как сделать чтобы сверялось слово в текстовом поле с ListBox
Допустим в ListBox уже есть это слово при совпадении юзер должен узнать об этом.

[Lumen]

List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))

Или в цикле перебирать итемы листбокса...
И если какие-то вопросы возникают, лучше создавать новую тему.