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:[email protected]

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