3Newbie97Programmer Ответов: 1

Как я могу использовать цикл, чтобы проверить текстовое поле 40 глаг

На моей странице есть 40 текстовых полей

Проверьте наличие textbox1, textbox2, textbox3 и так далее, пока не появится пустое текстовое поле, цикл остановится

Надеюсь найти более короткий способ написать его.

Что я уже пробовал:

If ItemBox1.Text = "" Then
          lblmessage1.Text = ""
          Return
      Else
          I1 = "20" & Mid(ItemBox1.Text, 16, 4) & "01"
          Date.TryParseExact(I1, "yyyyMMdd", enUS, DateTimeStyles.None, r1)
          Dim dayApart As TimeSpan = Currentdate.Subtract(r1)
          Dim diff As Double = dayApart.TotalDays
          If diff < expiryDate.Text Then
              lblmessage1.Text = ""
              Return
          Else
              lblmessage1.Text = "*"
              Return
          End If
      End If

      If ItemBox2.Text = "" Then
          lblmessage2.Text = ""
          Return
      Else
          I2 = "20" & Mid(ItemBox1.Text, 16, 4) & "01"
          Date.TryParseExact(I2, "yyyyMMdd", enUS, DateTimeStyles.None, r2)
          Dim dayApart As TimeSpan = Currentdate.Subtract(r2)
          Dim diff As Double = dayApart.TotalDays
          If diff < expiryDate.Text Then
              lblmessage1.Text = ""
              Return
          Else
              lblmessage1.Text = "*"
              Return
          End If
      End If

Richard MacCutchan

Почему вы используете текстовые поля для обработки значений даты вместо DateTimePickers? И почему любая форма требует 40 полей ввода?

1 Ответов

Рейтинг:
8

Mehdi Gholam

Вы можете использовать Controls собственность на форме : 

For Each cntrl As Control In Me.Controls
    If TypeOf cntrl Is Textbox Then
        If cntrl.Text = "" Then
            'Do Something
        Else 
            'Do Something else
        End If
    End If
Next