مشکل با Error Providers

[JaVa]

سلام و...

دوستان من به شکل زیر از 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

[gilsoft]

سلام و...

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

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

سلام دوست عزیز
بعد از رفع مشکل باید از کد زیر استفاده کنی :

eror.SetError(txttotal, "")

موفق باشید

[mhq1368]

سلام
شما توی else آخر هم باید اطلاعات رو ذخیره کنید هم eror.clear() رو اجرا کنید

[mahsa.admin]

من همیشه از کد زیر استفاده میکنم
If Trim(sn.Text) = ""Then
ErrorProvider1.SetError(sn, " ")
Me.sn.Focus()
ExitSub
Else
ErrorProvider1.SetError(sn, "")
endif

[mhq1368]

من همیشه از کد زیر استفاده میکنم
If Trim(sn.Text) = ""Then
ErrorProvider1.SetError(sn, " ")
Me.sn.Focus()
ExitSub
Else
ErrorProvider1.SetError(sn, "")
endif

کد شما هم درسته ولی برای برنامه ایشون باید کدزیر

eror.clear()

نوشته بشه

[JaVa]

دوباره سلام و...

سلام
شما توی else آخر هم باید اطلاعات رو ذخیره کنید هم eror.clear() رو اجرا کنید

دوباره اخطار ها رو پاک نمی کنه!

    Private Sub Insert()

            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 '*************************

                Dim bind As New Bind

                bind = New Bind



                bind.Bind(dgv, "select b_code from TBL_Book where b_code=" & txtcode.Text)

                If dgv.RowCount > 1 Then

                    MessageBoxEx.EnableGlass = False

                    MessageBoxEx.Show(". این کد کتاب قبلا ثبت شده است" & vbCrLf & ". لطفا کد کتاب را تغییر دهید ", "خطا در ثبت اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

                Else

                  'ثبت داده ها

                eror.Clear() 'پاک کردن اخطار ها

            End If

            End If

    End Sub

[JaVa]

مشکلش از این بود که من یه نوع ازش تعریف کرده بودم و بصورت مستقیم که از tollbox اضافش نکردم.

 Dim eror As New ErrorProvider

مرسی از کمکهاتون.

[mhq1368]

مشکلش از این بود که من یه نوع ازش تعریف کرده بودم و بصورت مستقیم که از tollbox اضافش نکردم.

 Dim eror As New ErrorProvider

مرسی از کمکهاتون.

به هر حالا خدارو شکر مشکلت حل شد

ولی من خودم روش شما رو امتحان کردم درست بود مشکل نداشت
فقط همون مشکل رو باید حل میکردی

[چینی ساز]

مشکلش از این بود که من یه نوع ازش تعریف کرده بودم و بصورت مستقیم که از tollbox اضافش نکردم.

 Dim eror As New ErrorProvider

مرسی از کمکهاتون.

سلام میشه بگی چیطور اضافه کردی؟ چون من هم مشکل دارم

[چینی ساز]

من همیشه از کد زیر استفاده میکنم
If Trim(sn.Text) = ""Then
ErrorProvider.SetError(sn, " ")
Me.sn.Focus()
ExitSub
Else
ErrorProvider1.SetError(sn, "")
endif

سلام من هم از این کد استفاده می کنم ولی از قسمت .SetEr ارور میگیره
میشه بگین چیطور باید استفاده کنم
اولش باید ی متغییر از نوع ErrorProvider تعریف کنم ؟؟؟؟؟؟؟؟؟؟؟؟؟
dim errorprovider1 as new ErrorProvider

[behrooz69]

واستون با عکس توضیح میدم که کامل متوجه شین دوستان من
نیاز به تعریف متغییر نیست .
فقط باید شی ء Error Provider رو از Toolbox برنامه به فرمتون اضافه کنید . و با تیکه کدی که بالا دوستان گفتن اررور رو نمایش بدید .

اول از همه باید مقدار اونو پاک کنی با این دستور :

ErrorProvider1.Clear()

دوم حالا هرجایی که میخوای ازش استفاده میکنی. واست ساده تر بگم شما میای یه عمل Select Sql انجام میدی . 2 حالت داره . یا جواب میگیری یا نه .

اگ بگیری که مقدار رشته هاتو نشون میدی . اگه نگیری باید یه ارروری چیزی به کاربر نشون بدی حالا یا با Msgbox یا Lable یا Try ... Catch و یا با Error Provider

سوم Error Provider به چند صورت استفاده میشه . 2 نمونش اینه :


اول : بیای اررور خودتو به شی مورد نظر نسبت بدی

 If TxtUsername.Text = "" Then            ErrorProvider1.SetError(TxtUsername, "نام کاربری را وارد کنید") 

اینجا اگه تکس باکس من خالی باشه و دکمه من زده بشه اررور میده که خالیه حالا شما میتونی زیبا تر کنیش و توی رویداد Leave تکس باکست بیای چک کنی و همون لحظه اررور رو ببینی . حالا سلیقش با خودتون .

************************************************** ****************

دوم بیای از طریقSender خود Error Provider این کارو انجام بدی اینجوری :

ErrorProvider1.SetError(sender, "نام کاربری و کلمه عبور صحیح نمی باشد")





با این روش شکل اررور کنار دکمه ای که مسبب این خطاست قرار میگیره .



یا حق

[چینی ساز]

سلام
ممنون از جواب آقا بهروز
من از این کد استفاده م کنم
If TextBox1.Text = ""Then
er.SetError(TextBox1, "نام طرف حساب الزامی است")
TextBox1.Focus()
Label1.ForeColor = Color.LightCoral
Else

er.SetError(TextBox1, "")
Label1.ForeColor = Color.Black
EndIf

بار اول که درست عمل می کنه ولی بعد از پر کردن تکس باکس اون علامت از جلو تکس باکس نمیره