ErrorProvider Nesnesi ile Tarih Kontrolü

Merhaba arkadaşlar. ErrorProvider nesnesini kullanarak TextBox a girilen tarihin doğru olarak girilip girilmediğini kontrol edeceğiz. Formunuza 2 adet TextBox ekleyin. (Şekil 1)

Kodlarımızı   TextBox1_Validating yordamına yazacağız.

Şekil 1

Form1.vb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "Tarih Kontrol"

    End Sub

    Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

       'TextBox a girilen tarih geçerli değilse

       If Not IsDate(TextBox1.Text) Then

       'Hata mesajı ver.

            ErrorProvider1.SetError(TextBox1, "Girilen tarih hatalı. Tekrar deneyiniz.")

        Else

            ErrorProvider1.SetError(TextBox1, "")

        End If

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN