(بسم الله الرحمن الرحيم)
:unsure: فين الخطأ..فكل الحالتين بتقفل الشاشة.!
Public Sub Form_Unload(Cancel As Integer) MsgBox "هل تريد إنهاء البرنامج", vbOKCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "إنهاء" If OK = 1 Then End ElseIf Cancel = 1 Then MsgBox "Welcome Back" End If End Sub
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
جربى الكود بهذه الطريقة وان شاء الله يعمل :rolleyes:
Public Sub Form_Unload(Cancel As Integer)
M = MsgBox("هل تريد انهاء البرنامج", vbOKCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "انهاء")
If M = vbOK Then
End
ElseIf M = vbCancel Then
MsgBox "Welcome Back"
Cancel = 1
End If
End Subإن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
الخطأ ان ال msgbox عبارة عن function و لها عائد وهو نتيجة الضغط عى أزرار الرسالة وبالتالى لابد من استقبالها فى متغير كما فى مثال الاخ ghost ثم التحقق من قيمة هذا المتغير M
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
:lol: أشكرك .... وفقك الله أخيـ GHOST2010
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
تحية :lol: أخيـ VB6-Rocket
والله يوفقك.......انت ايضا :lol:
أحب الحلول والتوضيح
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
هذا الموضوع مغلق.