2 вопроса по TextBox

[xqz_me]

Во-первых, как сделать так, чтобы в TextBox нельзя было ввести ни одного символа, кроме 0, 1, 2, ..., 8, 9, A, B, C, D, E, F? А во-вторых, как ограничить максимальное числа вводимых символов?

[keks-n]

Отлавливаешь событие KeyPress:

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


If KeyAscii <> Asc(vbBack) Then ' Backspace
If Len(Text1.Text) > 10 Then KeyAscii = 0: Exit Sub
If Not IsNumeric(Text1.Text + Chr(KeyAscii)) Then KeyAscii = 0
End If

Можешь не через IsNumeric а перечислением.

[CORBA]

Событие KeyPress можно запрограммировать чтобы ненужные символы не выводились. Насчёт вопроса номер два без обид, но протри глаза и посмотри свойства текстового поля для чего думаешь нужно MaxLength?

[keks-n]

Так там и свойство DataFormat есть... Умные люди говорили, что через него можно ненужные символы убрать (мне правда не объяснили, и я до сих пор не понял как )

[CORBA]

Так там и свойство DataFormat есть... Умные люди говорили, что через него можно ненужные символы убрать (мне правда не объяснили, и я до сих пор не понял как )

Скорее всего имелось виду, что если поле связано с БД то в него нельзя записать что-либо протеречивое формату самого поля в БД. Другими словами если у нас имеется в БД поле с форматом CHAR(1), то и в текстовое поле на форме можно ввести только один символ.

[xqz_me]

А как без DataFormat ненужные символы не пропускать?

[GAGArin]

Алфавит и цифры отлавливаются достаточно просто переводом символа в байт и сравнением с крайними значениями (1;0;A;Z). По крайней мере я делал так.

[xqz_me]

Можно примерчик для тех, кто на бронепоезде?

[GAGArin]

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

k = KeyAscii
If Not (((k > 47) And (k < 57)) Or ((k > 64) And (k < 91)) Or ((k > 96) And (k < 122))) Then
'((k > 47) And (k < 57)) Числа
'((k > 64) And (k < 91)) Заглавные буквы
'((k > 96) And (k < 122)) Строчные буквы
  KeyAscii = 0
End If

[GSerg]

Ы?

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

select case keyascii
case 48 to 56, 65 to 90, 97 to 121
case else
  keyascii=0
end select

[GAGArin]

Ы! , ну да я пишу некрасиво.

[xqz_me]

Спасиб