Как вводить в TextBox числа в заданном диапазоне? - VB
Формулировка задачи:
Здавствуйте, помогите пожалуйста сделать грамотный код на ввод в TextBox только чисел от 0 до 100!
Вот что я написал:
Но при таком коде при ошибочном вводе все стирается и если набирать скажем число 10000, то в textBox-e будет 0100.
Не могу заставить нормально все работать.
Решение задачи: «Как вводить в TextBox числа в заданном диапазоне?»
textual
Листинг программы
Private Sub Text1_Change(Index As Integer) If IsNumeric(Text1(Index)) Then Text1(Index) = CInt(Text1(Index)) If Text1(Index) < 0 Then Text1(Index) = 0 ElseIf Text1(Index) > 100 Then Text1(Index) = 100 End If Else Text1(Index) = "Повторите ввод." Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)) End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д