Option Explicit On
 
' // Die benötigten Bibliotheken für unser AutoCompleteTextBox Assembly
Imports System.Windows.Forms
Imports System.Collections
Imports System
Imports System.Drawing
Imports TB
 
' // Der Namespace für unser Assembly
Namespace AutoComplete
 
    Public Class TextBox_Datum
        Inherits TB.AutoComplete.Textbox_spezial
 
        Public Event ValidateTextEnter()
 
        Private Function Validate(ByVal txt As String) As Boolean
            Dim datum As Date
            If DateTime.TryParseExact(Me.Text.Trim, "dd.MM.yyyy", New  _
              Globalization.CultureInfo("de-DE"), _
              Globalization.DateTimeStyles.None, datum) Then
                Return True
            Else
                Return False
            End If
        End Function
 
        Private Sub TextBox_Datum_LostFocus(ByVal sender As Object, ByVal e As _
          System.EventArgs) Handles Me.LostFocus
            If Validate(Me.Text) Then
                RaiseEvent ValidateTextEnter()
            Else
                MsgBox("Falsche Eingabe", MsgBoxStyle.Information)
                Me.Focus()
            End If
        End Sub
    End Class
End Namespace