
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
0 comments:
Yorum Gönder