VB.NET Validierungsfunktion für Eingabefelder

Die folgende Private Function überprüft die Eingabefelder eines Formulars und zeigt bei fehlerhaften oder fehlenden Angaben eine Fehlermeldung an.

Funktionscode

Private Function überprüfen(ByVal Typ As String) As Boolean
Dim Msg As String
Dim gültig As Boolean = True

Prüfung nach Typ

Select Case Typ

Typ: LOGIN

Case "LOGIN"

Hinweis: Diese Prüfung dient dazu, festzustellen, ob bei der Eingabe oder Änderung Felder korrekt ausgefüllt wurden.

• Die RUT muss eingegeben werden.
• Die Prüfziffer (DV) muss eingegeben werden und eine Ziffer von 0 bis 9 oder ein K sein.
• Der Name muss eingegeben werden.
• Das Gehalt muss eingegeben werden und zwischen $ 50.000 und $ 2.000.000 liegen.
• Ein Puesto (Position) muss ausgewählt werden.

Typ: ÄNDERN

Case "Ändern"

Hinweis: Bei der Änderung müssen dieselben Felder geprüft werden wie bei der Eingabe.

• Die RUT muss eingegeben werden.
• Die Prüfziffer (DV) muss gültig sein.
• Der Name muss eingegeben werden.
• Das Gehalt muss zwischen $ 50.000 und $ 2.000.000 liegen.
• Ein Puesto muss ausgewählt werden.

Typ: BUSCAR1

Case "BUSCAR1"

• Der Anfangswert muss eingegeben werden.
• Der Endwert muss eingegeben werden.

Typ: BUSCAR2

Case "BUSCAR2"

• Ein Puesto muss ausgewählt werden.

Ergebnis der Prüfung

End Select

Wenn Fehler vorliegen, werden alle Meldungen gesammelt und in einem Fehlerfenster angezeigt:

If Not gültig Then
MsgBox(Msg, MsgBoxStyle.Critical, "WARNUNG")
Return False
Else
Return True
End If
End Function