Datumvak: code

De control:

Public Class DatumVak

    Event datum()

    Event change()

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        RaiseEvent change()

        If IsDate(TextBox1.Text) Then RaiseEvent datum()

    End Sub

    ReadOnly Property isdatum As Boolean

Get

            Return IsDate(TextBox1.Text)

        End Get

    End Property

    ReadOnly Property gegevendatum As Date

Get

            Return CDate(TextBox1.Text)

        End Get

    End Property

End Class

En in het formulier:

Public Class Form1

    Private Sub DatumVak1_change() Handles DatumVak1.change

        If Not DatumVak1.isdatum Then Me.Text = ""

    End Sub


    Private Sub DatumVak1_datum() Handles DatumVak1.datum

        Me.Text = DatumVak1.gegevendatum

    End Sub

End Class