New Document

ErrorProvider Hata Kontrolü

ErrorProvider kontrolü, sizin bir form üzerinde hataları kullanıcıya çok daha rahat bir şekilde iletmenizi sağlar.

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.

Resim1

Ş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