Помогите с текст-боксом ! Срочно !

[DDK]

Короче есть текст-бокс, куда вводится число в Битах (т.е. не более 255). Так вот как сделать, чтобы при вводе не соотв. символов в этот бокс срабатывало определённое событие Я идиот! Убейте меня, кто-нибудь!? Я дубина ведь в прошлом году написал прогу, и у меня там такой трюк вышел ! Но я дубина исходники потерял ((... Помню чёто там If expr Like Not... ХЕЛП МИ !!!

[XairOn]

Вот держи, я не проверял, но примерно так будет

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

If (Not IsNumeric(Text1.Text)) or (Val(Text1.Text)>255) Then MsgBox "Ошибочка вышла"

[Andrey Fedorov]

Событие Validate контрола для этого вообще-то...

[DDK]

Andrey Fedorov
Во ! Я этот контрол на этом сайте видел ведь... тока опять же потом забыл где ). Толи в сурсах, толи в статьях... Хотя слишком проста задача имхо, что бы ради неё контрол создавать... лишний вес. Если можно, киньте линк на ту статью !

[Andrey Fedorov]

Какой еще контрол?

А - понял - тебе надо просто отсечь недопустимые символы.

Для этого в событии KeyPress у TextBox-a проверяй код нажатой клавиши и просто обнуляй KeyAscii, если нажата недопустимая.

[DDK]

A... правда. Можно и так. (Ответил я сам себе ) Спасибо ! Тоже вариант... я даже в форуме тут где-то код этот видел.

[Amed]

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(1, "0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub