Проверка корректности введенных данных в текстовые поля - VB
Формулировка задачи:
Здравствуйте. Хотелось бы узнать что не так в моем коде( не судите строго еще плохо разбираюсь в программировании).Необходимо чтобы если в текстовые поля 1-6 введены значения 0 или другие символы кроме цифр, то выводились соответствующие сообщения, а также желательно, чтобы поле, куда введено неправильное значение поменяло цвет. Заранее спасибо
Решение задачи: «Проверка корректности введенных данных в текстовые поля»
textual
Листинг программы
Private Sub Text1_Change() If IsNumeric(Text1) Then If CLng(Text1) > 0 Then Text1.BackColor = vbWhite text13 = "" Else Text1.BackColor = vbRed text13 = "Введен ноль" End If Else Text1.BackColor = vbRed text13 = "Введено не число" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д