Проверка корректности введенных данных в текстовые поля - 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

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


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

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

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