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