Fehlerprüfung Datumsbox

Customers/CustomsAviso.aspx.vb

@@ -426,4 +426,17 @@ Partial Class Kundenbereich_Default
     Protected Sub Dropdownlst_Selection_Change(sender As Object, e As EventArgs)
 
     End Sub
+
+    Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
+        Dim TB As TextBox = sender
+        If TB.Text = "" Then
+            TB.Attributes.Add("Border", "2px solid red")
+        Else
+            TB.Attributes.Add("Border", "None")
+        End If
+    End Sub
+
+    Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
+
+    End Sub
 End Class