مرحبا
عساكم بخير يا غاليين
اقتباسDim ask As Stringask = MsgBox("Exit??", vbQuestion + vbMsgBoxRight + vbYesNo, "Befor exit")
If ask = vbNo Then
Cancel = 1
End If
استخدم الجملة السابقة في حدث Unload لتاكيد الخروج
ولكن في بعض الحالات ارغب في تجاهل هذه الرسالة وعدم ظهورها عند الخروج ؟
ما الطريقة ارجو افادتي
وشكرا لكم
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
السلام عليكم
أخي الكريم قم بتعريف مغير في منطقة التعريفات العامة ولنتفضرض أن إسمه هو AAAA
نكتب في قسم الجينيرال
Dim AAAA As Byte
هنا تكون قيمة المتغير الذي عرفناه إفتراضياً 0
وفي الحدث Unload
قم بكتابة الشرط التالي
If AAAA = 0 Then iهنا أكتب كود الخروج End If
وعندما تريد أن تتجاهل هذا الكود قم بإسناد قيمة للمتغير AAAA
AAAA = 1 End
أرجو أن يكون هذا هو طلبك :)
عبد الله دباس كتب:السلام عليكم
أخي الكريم قم بتعريف مغير في منطقة التعريفات العامة ولنتفضرض أن إسمه هو AAAA
نكتب في قسم الجينيرال
Dim AAAA As Byteهنا تكون قيمة المتغير الذي عرفناه إفتراضياً 0
وفي الحدث Unload
قم بكتابة الشرط التالي
If AAAA = 0 Then iهنا أكتب كود الخروج End Ifوعندما تريد أن تتجاهل هذا الكود قم بإسناد قيمة للمتغير AAAA
AAAA = 1 Endأرجو أن يكون هذا هو طلبك :)
شكرا لك اخي الكريم وجعلها الله بميزان حسناتك
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.