+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عدم ترك مربع النص فارغ ؟ (/showthread.php?tid=34992)
عدم ترك مربع النص فارغ ؟ - منه - 28-05-20
السلام عليكم ورحمه الله وبركاته
دلوقتي انا عملت كود مثلا يضيفلي بيانات تكست الي قاعده بيانات طيب لو أنا جيت اضغط علي البتون عشان ينفذ الكود والتكست فاضي هيحصل مشكله في قاعدة البيانات انا عملت الكود جوه تراي كاتش عشان الخطأ ال ممكن يحصل وحطيت كود داخل كاتش في حالة حدوث خطأ يعني أنه يملأ التكست باي بيانات عشان محصلش مشكله انا عايزه كود يعيد تنفيذ الكود مره اخري في حالة وجود خظا
RE: كود - معاند الحظ - 28-05-20
وعليك السلام ورحمة الله وبركاته
يا اخت منه لو تضيفين مشروعك او على الاقل الكود اللي تواجهين فيه مشكلة في موضوعك صدقيني هذا حيسهل على الكثيرين
مساعدتك . نصيحة لك ولغيرك
RE: كود - منه - 28-05-20
بس انا مش عامله مشروع انا كل ال عايزاه ك يعيد تنفيذ الكود السابق مره اخري
RE: كود - kiki - 28-05-20
وعليكم السلام ورحمة الله وبركاته
همشي على الطريقة التى تريدها وتبسيط الامر
لكي تتمكنى من فعل المطلوب ما عليك فعله هو بعد سطر try
وضع جملة مثل التالى
كود :
backtoagain:يمكنك تغيير الكلمة لما يشاء ولكن الاهم انها تنتهى بـ : وطبعاً بدون مسافة
الان تعال عند كود الخطاء وبعد تعبئة الاداء والانتهاء سطر جديد وكل ما عليك فعله هو كتابة التالى
كود :
GoTo backtoagainجملة GoTo الزامي وطبعاً ما بعدها هو نفس الكلمة التى كتبت مسبقاً ما تحدثت عنه بوضع :
اتمنى ان يكون الشرح مبسط وهذا كود كمثال
كود :
Dim tx As New TextBox
tx.Text = "مرحباً"
Try
backtotryagain:
MsgBox("الناتج بعد التصحيح: " & tx.Text * 0)
Catch ex As Exception
MsgBox("تاكيد رسالة للتحقق بان يوجد خطاء وانه سيتم عمل الاعادة مجدداً")
tx.Text = 1
GoTo backtotryagain
End Tryوللتفصيل اكثر تابع الرابط التالى