Textbox leeg dan tekst

Status
Niet open voor verdere reacties.

Doofenshmirt

Gebruiker
Lid geworden
3 nov 2011
Berichten
222
Hoi,

Ik heb een aantal textboxen op een form , ik wil graag een msgbox als 1 van die textboxen leeg is .



Code:
  If TextBox1.Text = ("") Then
            MsgBox("Nummer 1 is leeg")
        End If

        If TextBox2.Text = ("") Then
            MsgBox("Nummer 2 is leeg")
        End If

        If TextBox3.Text = ("") Then
            MsgBox("Nummer 3 is leeg")
        End If
enz

Het gaat over een stuk of 10 textboxen , maar ook niet alle textboxen of het form.
Kan het ook makkelijker en korter dan dit .
 
Misschien zo:

Code:
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        MessageBox.Show("De volgende TextBoxen zijn leeg:" & vbNewLine & vbNewLine & WelkeZijnLeeg())

    End Sub

Code:
    Private Function WelkeZijnLeeg() As String

        Dim Ret As New StringBuilder 'System.Text importeren

        For Each tb As TextBox In Panel1.Controls
            If tb.Text = Nothing Then
                Ret.Append(tb.Name & vbNewLine)
            End If
        Next

        Return Ret.ToString

    End Function

In dit voorbeeld heb ik de TextBoxen in een Panel gezet (Panel1).
 
Laatst bewerkt:
Oplossing

Voeg dit toe aan je code :)

[CPP]
'NOTE: achter Handles voeg je al je textboxen toe zoals in het voorbeeld '(Textbox.TextChanged)

Private Sub TextBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged, TextBox2.TextChanged, TextBox1.TextChanged
If (sender.Text = "") Then
MsgBox(sender.Name.ToString() + " is leeg.")
End If
End Sub
[/CPP]

Hopelijk helpt het!

Mvg,
Matthiee' van MatthiWare
 
Bedankt voor de reactie's , zal even kijken wat het makkelijkst is voor mij om te gebruiken. :d
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan