Ввод значений в Textbox - VB

Формулировка задачи:

Добрый день.Возникла такая проблема:Необходимо ограничить диапазон вводимых значений в TextBox. К примеру 1-5 и чтобы выводилось сообщение в msbox что введено число вне диапазона и была возможность повторно ввести значение

Решение задачи: «Ввод значений в Textbox»

textual
                            Листинг программы 
                        
Option Explicit
 
Private Sub Text1_Change()
If Text1 <> "" Then
    If Val(Text1) < 1 Or Val(Text1) > 5 Or Len(Text1) > 1 Then MsgBox "Число вне диапазона!Повторите ввод!": Text1 = ""
End If
End Sub

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

15 голосов , оценка 3.933 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы