error provider class

Question

hi all! i had a problem in implementing the error provider control(the one present in toolbox) i had placed one in the component tray then placed a textbox in the form and used these events to validate Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating If TextBox1.Text = 200 Then errorprovider1.SetError(TextBox1, "enter some other value") End If End Sub Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated errorprovider1.SetError(TextBox1, "") End Sub even after setting this when i enter the text as 200 .i don't get any error icon being displayed. jus help me to clear this one....... thankyou suha email:sugha_zap@yahoo.com

tyrone.smith · Answer

This is the function I got, maybe you could modify it to what you want. Enjoy :) Public Function validate_Numeric(ByVal text() As Control) As String erp.BlinkStyle = ErrorBlinkStyle.NeverBlink Dim int As Integer = 0 Dim i As Control For Each i In text Dim nt As String = i.Name If Not (i.Text) = Nothing Then If IsNumeric(i.Text) = True Then ' Clear the error, if any, in the error provider. erp.SetError(i, erp.GetError(i)) Else ' Set the error if the name is not valid. erp.SetError(i, "Field should be a numeric value.") erp.SetIconAlignment(i, ErrorIconAlignment.TopRight) int = 1 End If Else erp.SetError(i, erp.GetError(i)) End If Next If int = 1 Then Return "Please enter right values" Else Return "" End If End Function

error provider class

Shivanand Arur