Formunuza 1 adet ErrorProvider ve TextBox ekleyin. TextBox ın Validating olayına kodumuzu yazacağız. Textbox a numerik olmayan bir giriş yapıldığında ErrorProvider nesnemiz hata mesajı verecek.
Şekil 1
Form1.vb
Public Class Form1
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
TextBox1.Clear()
End Sub
Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
If Not IsNumeric(TextBox1.Text) Then
ErrorProvider1.SetError(TextBox1, "Girilen bilgi nümerik olmak zorunda.")
Beep()
e.Cancel = True
Else
ErrorProvider1.SetError(TextBox1, "")
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Not IsNumeric(TextBox1.Text) Then
ErrorProvider1.SetError(TextBox1, "Girilen bilgi nümerik olmak zorunda.")
Beep()
Else
ErrorProvider1.SetError(TextBox1, "")
End If
End Sub
End Class
Bir makalenin daha sonuna geldik. Bir sonraki makalede buluşmak üzere. Hoşçakalın. Bahadır ŞAHİN
0 comments:
Yorum Gönder