السلام
هذه اول مشاركه لي في هذا المنتدي الطيب
هذا سؤالي :
شوفوا المثال
private sub command1_click
call like1
if text1.text <> text2.text then
end if
private sub like1
text1.text = 3+ x
if x <> 3 then
exit sub هنا اريده يخرج من السب الفوقيه يعني command1_click
end if
طبعا هذا مثال تخريفي من عندي بس يبسط المساله لما سويت exit sub
انا اريده يخرج من sub command1_clikc
ما من like1
تحياتي
الرجاء اجابتي
على احر من الجمر انتظر الرد
السلام عليكم
أخي الكريم تحية طيبة وبعد ،،،
في بعض الإحيان يحتاج المبرمج إلى نوع آخر من الكودات وخاصة للمبرمج المبتدى وعن نفسي إسمي ذلك النوع من الكودات ( بالحيلة او التحايل ) لإنه ببساطة الهدف من كتابة الكود هو الوصول إلى النقطة المنشودة ،،،
والإن وكأول خطوة تقوم به هو إضافة متغير في قسم التصريحات العامة وليكن /
Dim ExitCommandSub AS Boolean
ثم نضيف المتغير إلى الكود الثاني والخاص بال Like1
private sub like1 text1.text = 3+ x if x <> 3 then ExitCommandSub = True end if
وهنا نضع جملة شرطية ،،، إذا كانت قيمة المتغير تساوي True إذا اخرج من الCommand1_Click
private sub command1_click call like1 If ExitCommandSub = True Then Exit sub if text1.text <> text2.text then end if
بالتوفيق
تسلم يااخي وجعلها الله في ميزان حسناتك (اللهم امين)
الله يوفق في دنياك واخرتك
تحياتي
هذا الموضوع مغلق.