Erweiterung der Validatoren!

This commit is contained in:
ja
2021-10-05 11:26:12 +02:00
parent 925b3ad8cd
commit c287bed175
3 changed files with 40 additions and 9 deletions

View File

@@ -77,6 +77,12 @@ Partial Class Kundenbereich_Default
datevon = ersterdat
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
If txt_LKWNr.Text = "" Then
regexval_txt_LKW.Enabled = False
Else
regexval_txt_LKW.Enabled = True
End If
End If
End Sub
@@ -488,4 +494,20 @@ Partial Class Kundenbereich_Default
dt <= maxDate AndAlso
dt >= minDate) And dt < Date.Now.AddDays(-1)
End Sub
Protected Sub txt_LKWNr_TextChanged(sender As Object, e As EventArgs)
regexval_txt_LKW.Validate()
End Sub
Protected Sub txt_Absender_TextChanged(sender As Object, e As EventArgs)
regexval_txt_Absender.Validate()
End Sub
Protected Sub txt_KdNrAuftrag_TextChanged(sender As Object, e As EventArgs)
regexval_txt_KdNrAuftrag.Validate()
End Sub
Protected Sub txt_Empfaenger_TextChanged(sender As Object, e As EventArgs)
regexval_txt_Empfaenger.Validate()
End Sub
End Class