الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود برمجي للخروج

مغلق
بدأه SWEET في 7 يونيو 2004 · 2 رد · 591 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم جميعا

أهني الاستاذ مهند واقول له مبروك

إلى الأساتذة الكرام

أحتاج كود للخروج حيث لما أضغط زر خروج يعرض لي رساله مكتوب فيها

(هل تريد الخروج) فيها زرين (Yes,No) وعلامة تعجب ...

لما أضغط (Yes) أخرج من البرنامج

ولما أضغط (No) يخليني على نفس الفورم يعني مايعمل شي

ولكم مني جزيل الشكر

#2

السلام عليكم

انسخ الكود التالي داخل امر الزر

g=msgbox("Are you sure you want to exit?",vbyesno,"")
if g=vbyes then end

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#3

أو يمكنك استخدام هذا الكود فى الحدث QuerUnload الخاص بالفورم لتظهر الرسالة اذا ضغط المستخدم على زر الاغلاق الخاص بالنافذة

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode <> vbFormCode Then
Select Case MsgBox(Title:="اغلاق البرنامج", prompt:="هل تريد إغلاق البرنامج", buttons:=vbQuestion + vbYesNo + vbApplicationModal + vbDefaultButton2)
    Case vbYes
    Unload Me
    End
    Case vbNo
End Select
End If
Cancel = True
End Sub

تم تعديل هذه المشاركة بواسطة joe911 في 7 يونيو 2004 في 14:17

هذا الموضوع مغلق.

مواضيع مشابهة