سلام و...

دوستان من به شکل زیر از error Provider استفاده کردم ولی مشلی که وجود داره بعد از رفع مشکل
باز هم علامت تعجب کنار تکس باکس هست ؟؟؟

از متد clear هم استفاده می کنم باز هم نشون میده :


کد :

ry

            Dim eror As New ErrorProvider

            eror.Clear()

            If txtcode.Text = "" Then

                eror.SetError(txtcode, "کد کتاب را وارد کنید")

            ElseIf txttitle.Text = "" Then

                eror.SetError(txttitle, "عنوان کتاب را وارد کنید")

            ElseIf txtmoalef.Text = "" Then

                eror.SetError(txtmoalef, "مولف کتاب را وارد کنید")

            ElseIf txttranslate.Text = "" Then

                eror.SetError(txttranslate, "مترجم کتاب را وارد کنید")

            ElseIf txtnasher.Text = "" Then

                eror.SetError(txtnasher, "ناشر کتاب را وارد کنید")

            ElseIf txtprint.Value = 0 Then

                eror.SetError(txtprint, "شماره چاپ کتاب را وارد کنید")

            ElseIf txtpage.Value = 0 Then

                eror.SetError(txtpage, "تعداد صفحات کتاب را وارد کنید")

            ElseIf txttotal.Value = 0 Then

                eror.SetError(txttotal, "تعداد موجودی کتاب را وارد کنید")

            Else '*************************

' اطلاعات رو ذخیره کن

                End If

            End If



        Catch ex As Exception



        End Try