28-05-20, 01:58 PM
وعليكم السلام ورحمة الله وبركاته
همشي على الطريقة التى تريدها وتبسيط الامر
لكي تتمكنى من فعل المطلوب ما عليك فعله هو بعد سطر 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وللتفصيل اكثر تابع الرابط التالى

