+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كيفية تجاوز الاخطاء (/showthread.php?tid=1648)
كيفية تجاوز الاخطاء - Tarik 14 - 21-01-14
سلام عليكم ,, كيف حالكم اخواني ان شاء الله بخير
ابي طريقة لتجاوز الاخطاء اللي في Textbox
عملت الة حاسبة ووضعت 6 Textbox ولما يكون فيه فراغ ماكتبت فيه شي , ابيه يطلع لي رسالة خطأ
والكود التالي عليه الخطأ :
كود :
Text1.text = (Val(Text2.text) * Val(Text3.text)) + (Val(Text4.text) * Val(Text5.text)) / Val(Text6.text)هذا الكود اللي يظهر لي خطأ واتمنى تساعدوني بأقرب وقت
ودمتم بألف خير[/php]
RE: كيفية تجاوز الاخطاء - تركي الحلواني - 22-01-14
ضع هذا الامر في اول الحدث
PHP كود :
On Error Resume Next
RE: كيفية تجاوز الاخطاء - محمد صبري - 22-01-14
اخى الكود الصحيح هو
الكود بتاعك فيه تعديلات بسيطة وانا عدلتهالك
كود :
Text1.Text = Val(Text2.Text) * Val(Text3.Text) + Val(Text4.Text) * Val(Text5.Text) / Val(Text6.Text)بدون استخدام كود تفادي الاخطاء
on error resume next
لو كتبت جملة تفادي الاخطاء دي الكود ده بيكون مالوش لازمة لان الكود كان فيه اخطاء وكود تفادي الاخطاء فقط يمنع توقف البرنامج لاكن لا يحل مشكلة او مابيجعل الكود يعمل اعتمد على تصحيح الاكواد من الافضل
RE: كيفية تجاوز الاخطاء - asto - 22-01-14
بسيطة ضع شرطا و هو :
كود :
if not text6.text=0 then
Text1.text = (Val(Text2.text) * Val(Text3.text)) + (Val(Text4.text) * Val(Text5.text)) / Val(Text6.text)
endifيعني هذه العملية لن تنفذ في حال التكست6 =0
RE: كيفية تجاوز الاخطاء - السيد الغالي - 30-01-14
if text6="" then
"خطأ"msgbox
end if
استخدام هذا الكود يضهر رسالة خطأ في حالة كون text6 فارغ
RE: كيفية تجاوز الاخطاء - Tarik 14 - 30-04-14
يعطيكم الف عافية ,,