تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طريقة الخروج من الإجراء
#1
السلام عليكم كيف حال الجميع ؟
جماعة الخير لقد واجهتني مشكلة و هي كالآتي :
قمت بعمل إجراء من اجل إجبار المستخدم على إدخال الحقول الإلزامية وذلك عن طريق الدالة if و كلما كان الحقل فارغ يقوم بالخروج من الإجراء عن طريق كود Exit Sub
فعندما أقوم بإستدعاء هذا الإجراء و يتحقق شرط فراغ الحقل تظهر الرسالة لكن لا يخرج من الإجراء
كود :
 If txtQty_U.Text = "" Then
               MsgBox("يرجى إدخال الكمية بالتجزئة و الجملة", MsgBoxStyle.Exclamation, "تنبيه")
           Exit Sub
       End If
الرد
تم الشكر بواسطة:
#2
(30-01-20, 12:24 AM)larbihamri كتب : السلام عليكم كيف حال الجميع ؟
جماعة الخير لقد واجهتني مشكلة و هي كالآتي :
قمت بعمل إجراء من اجل إجبار المستخدم على إدخال الحقول الإلزامية وذلك عن طريق الدالة if و كلما كان الحقل فارغ يقوم بالخروج من الإجراء عن طريق كود Exit Sub
فعندما أقوم بإستدعاء هذا الإجراء و يتحقق شرط فراغ الحقل تظهر الرسالة لكن لا يخرج من الإجراء
كود :
 If txtQty_U.Text = "" Then
               MsgBox("يرجى إدخال الكمية بالتجزئة و الجملة", MsgBoxStyle.Exclamation, "تنبيه")
           Exit Sub
       End If

الكود هذا بالضبط مافيهوش مشكله

لازم في حاجه تانيه عندك في الكود
الرد
تم الشكر بواسطة:
#3
عندما اضع عذا الكود مباشرة في الزر يعمل بدون اي مشكلة لكن عندما اضعه في اجراء خارجي و استدعيه في زر الحفظ مثلا فإنه لا يخرج من الاجراء مباشرة عند تحقق الشرط
الرد
تم الشكر بواسطة:
#4
(30-01-20, 02:37 AM)larbihamri كتب : عندما اضع عذا الكود مباشرة في الزر يعمل بدون اي مشكلة لكن عندما اضعه في اجراء خارجي و استدعيه في زر الحفظ مثلا فإنه لا يخرج من الاجراء مباشرة عند تحقق الشرط

يعني الكود عامل ازاي؟

بس هو خرج من الاجراء الخارجي باقي يخرج من الاجراء يللي استدعى الاجراء الخارجي
الرد
تم الشكر بواسطة: ابراهيم ايبو , larbihamri , larbihamri
#5
بالضبط لا يخرج من الإجراء الذي استدعي منه
الرد
تم الشكر بواسطة:
#6
(30-01-20, 08:12 PM)larbihamri كتب : بالضبط لا يخرج من الإجراء الذي استدعي منه

اعمل شي فلاجراء الخارجي يجعل الاجراء يرجع قيمه نعم او لا
نعم هناك نقص في البيانات
لا البيانات كامله

بحيث وانت في كود استدعاء الاجارء الحارجي اذا رجع من الاستعداء الخارجي نعم يخرج هو ايضا
الرد
تم الشكر بواسطة:
#7
تم الحل
كود :
Public Function ObligateField() As Boolean
هنا يتم وضع الشرط
Return True    
End Function

و في الإجراء الذي سيتم الإستدعاء منه يتم وضع الكود التالي :

كود :
If ObligateField() Then
           Exit Sub
       End If
الرد
تم الشكر بواسطة:
#8
(30-01-20, 08:48 PM)larbihamri كتب : تم الحل
كود :
Public Function ObligateField() As Boolean
هنا يتم وضع الشرط
Return True    
End Function

و في الإجراء الذي سيتم الإستدعاء منه يتم وضع الكود التالي :

كود :
If ObligateField() Then
           Exit Sub
       End If

تمام كده
الرد
تم الشكر بواسطة: larbihamri


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة عرض البرنامج بالشكل الكامل عمور2016 9 175 , 01:46 AM
آخر رد: عمور2016
Rainbow [سؤال] ممكن طريقة عمل زر يذهب الي اخر سطر بتيكس بوكس Ali 2020 9 166 13-09-20, 10:12 PM
آخر رد: Ali 2020
  [سؤال] طريقة عمل برنامج دمج ملفات التيكس بوكس Ali 2020 2 98 11-09-20, 07:44 PM
آخر رد: Ali 2020
  [سؤال] طريقة التحقق هل انا وقف علي اخر سطر في اليسة بوكس Ali 2020 1 115 10-09-20, 07:22 AM
آخر رد: diggitalk2017@gmail.com
  طريقة عرض بيانات جدولين في الداتا قريد ZaerAllail 7 257 05-09-20, 01:44 PM
آخر رد: Anas Mahmoud
  [سؤال] هل من طريقة لجعل نص الاتصال في ملف خارجي لكن كلمة سر قاعدة البيانات في موديول؟ WaeLx 6 399 27-08-20, 03:31 PM
آخر رد: حريف برمجة
  طريقة استخراج كمية الاصناف المتألق9 4 332 17-08-20, 07:14 PM
آخر رد: المتألق9
  طريقة جمع الوقت لأكثر من 24 ساعة جيولوجي مبتدئ 5 523 16-08-20, 09:07 AM
آخر رد: جيولوجي مبتدئ
  [سؤال] طريقة تعامل هاتف مع حاسب عبر من USB عبد الناصر موسى 3 316 07-08-20, 01:13 AM
آخر رد: عبد الناصر موسى
  [سؤال] ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ السندبااد 3 316 02-08-20, 05:07 PM
آخر رد: Anas Mahmoud

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم