textbox с ограниченным вводом дробных чисел

[ravan77]

Привет всем. короче текстбох должен проверять введённые дробные числа от 1,1 до 999,99 не меньше не больше. Дайте совет как это реализовать

[Viper]

Проверять значение в событиях LostFocus или Validate

[ravan77]

спасибо Viper разобрался с событиями. Ещё проверяю ввод на буквы
If Not IsNumeric (tnor14.Text) Then MsgBox "Только буквы !!!": tnor14.SelStart = 0: tnor14.SelLength = Len(tnor14.Text)

выходит ошибка что буквы есть, я думаю что это от "точки" вставленной для разделения дробной части цифр. Как это исправить

[DirectXManiac]

ravan77
Ну так находи целую и дробную часть и делай из них число

[ravan77]

Дело в том что для сохранения инфы вот в таком виде "154.8" точка нужна. Если можеш подскажи код

[Gemini]

Попробуй так:

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And Not Chr(KeyAscii) = "." Then KeyAscii = 0
End Sub


[DirectXManiac]

ravan77
Ну заменяй на точку, или дели на десять чтобы получить дробную часть(столько раз сколько символов в дробной части) и прибавляй к ней целую... Задачка ну просто детская
А вообще Gemini показал правильный код который прекрасно работает

[ravan77]

Спасибо ребята, помогли новичку.