نقل قول: مشکل با Error Providers
نقل قول:
نوشته شده توسط
mrg_vb
سلام و...
دوستان من به شکل زیر از error Provider استفاده کردم ولی مشلی که وجود داره بعد از رفع مشکل
باز هم علامت تعجب کنار تکس باکس هست ؟؟؟
از متد clear هم استفاده می کنم باز هم نشون میده :
سلام دوست عزیز
بعد از رفع مشکل باید از کد زیر استفاده کنی :
eror.SetError(txttotal, "")
موفق باشید
نقل قول: مشکل با Error Providers
سلام
شما توی else آخر هم باید اطلاعات رو ذخیره کنید هم eror.clear() رو اجرا کنید
نقل قول: مشکل با Error Providers
من همیشه از کد زیر استفاده میکنم
If Trim(sn.Text) = ""Then
ErrorProvider1.SetError(sn, " ")
Me.sn.Focus()
ExitSub
Else
ErrorProvider1.SetError(sn, "")
endif
نقل قول: مشکل با Error Providers
نقل قول:
نوشته شده توسط
mahsa.admin
من همیشه از کد زیر استفاده میکنم
If Trim(sn.Text) = ""Then
ErrorProvider1.SetError(sn, " ")
Me.sn.Focus()
ExitSub
Else
ErrorProvider1.SetError(sn, "")
endif
کد شما هم درسته ولی برای برنامه ایشون باید کدزیر
eror.clear()
نوشته بشه
نقل قول: مشکل با Error Providers
دوباره سلام و...
نقل قول:
سلام
شما توی 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
نقل قول: مشکل با Error Providers
مشکلش از این بود که من یه نوع ازش تعریف کرده بودم و بصورت مستقیم که از tollbox اضافش نکردم.
Dim eror As New ErrorProvider
مرسی از کمکهاتون.:لبخندساده:
نقل قول: مشکل با Error Providers
نقل قول:
نوشته شده توسط
mrg_vb
مشکلش از این بود که من یه نوع ازش تعریف کرده بودم و بصورت مستقیم که از tollbox اضافش نکردم.
Dim eror As New ErrorProvider
مرسی از کمکهاتون.:لبخندساده:
به هر حالا خدارو شکر مشکلت حل شد
ولی من خودم روش شما رو امتحان کردم درست بود مشکل نداشت
فقط همون مشکل رو باید حل میکردی
نقل قول: مشکل با Error Providers
نقل قول:
نوشته شده توسط
JaVa
مشکلش از این بود که من یه نوع ازش تعریف کرده بودم و بصورت مستقیم که از tollbox اضافش نکردم.
Dim eror As New ErrorProvider
مرسی از کمکهاتون.:لبخندساده:
سلام میشه بگی چیطور اضافه کردی؟ چون من هم مشکل دارم
نقل قول: مشکل با Error Providers
نقل قول:
نوشته شده توسط
mahsa.admin
من همیشه از کد زیر استفاده میکنم
If Trim(sn.Text) = ""Then
ErrorProvider.SetError(sn, " ")
Me.sn.Focus()
ExitSub
Else
ErrorProvider1.SetError(sn, "")
endif
سلام من هم از این کد استفاده می کنم ولی از قسمت .SetEr ارور میگیره
میشه بگین چیطور باید استفاده کنم
اولش باید ی متغییر از نوع ErrorProvider تعریف کنم ؟؟؟؟؟؟؟؟؟؟؟؟؟
dim errorprovider1 as new ErrorProvider
نقل قول: مشکل با Error Providers
واستون با عکس توضیح میدم که کامل متوجه شین دوستان من
نیاز به تعریف متغییر نیست .
فقط باید شی ء Error Provider رو از Toolbox برنامه به فرمتون اضافه کنید . و با تیکه کدی که بالا دوستان گفتن اررور رو نمایش بدید .
اول از همه باید مقدار اونو پاک کنی با این دستور :
ErrorProvider1.Clear()
دوم حالا هرجایی که میخوای ازش استفاده میکنی. واست ساده تر بگم شما میای یه عمل Select Sql انجام میدی . 2 حالت داره . یا جواب میگیری یا نه .
اگ بگیری که مقدار رشته هاتو نشون میدی . اگه نگیری باید یه ارروری چیزی به کاربر نشون بدی حالا یا با Msgbox یا Lable یا Try ... Catch و یا با Error Provider
سوم Error Provider به چند صورت استفاده میشه . 2 نمونش اینه :
اول : بیای اررور خودتو به شی مورد نظر نسبت بدی
If TxtUsername.Text = "" Then ErrorProvider1.SetError(TxtUsername, "نام کاربری را وارد کنید")
http://uploadkon.ir/uploads/ErrorPro1.jpg
اینجا اگه تکس باکس من خالی باشه و دکمه من زده بشه اررور میده که خالیه حالا شما میتونی زیبا تر کنیش و توی رویداد Leave تکس باکست بیای چک کنی و همون لحظه اررور رو ببینی . حالا سلیقش با خودتون .
************************************************** ****************
دوم بیای از طریقSender خود Error Provider این کارو انجام بدی اینجوری :
ErrorProvider1.SetError(sender, "نام کاربری و کلمه عبور صحیح نمی باشد")
http://uploadkon.ir/uploads/ErrorPro2.jpg
با این روش شکل اررور کنار دکمه ای که مسبب این خطاست قرار میگیره .
یا حق
نقل قول: مشکل با Error Providers
سلام
ممنون از جواب آقا بهروز
من از این کد استفاده م کنم
If TextBox1.Text = ""Then
er.SetError(TextBox1, "نام طرف حساب الزامی است")
TextBox1.Focus()
Label1.ForeColor = Color.LightCoral
Else
er.SetError(TextBox1, "")
Label1.ForeColor = Color.Black
EndIf
بار اول که درست عمل می کنه ولی بعد از پر کردن تکس باکس اون علامت از جلو تکس باکس نمیره