Как вводить в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.571 из 5
Похожие ответы