سؤال بسيط بالفيجوال بيسك !

بدأه saroo في 29 يناير 2009 · 3 رد · 429 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#129 يناير 2009 في 14:45 صاحب الموضوع

الســـلام عليكم

الاعضاء الاعزاء.

اريد منكم اجابه لسؤال بسيط جدا في الفيجوال بيسك.

اريد الكود الذي اذا ضغطنـا الـ

command

تظهر لي رساله على الشاشه ..

هل انت متاكد من الخروج ، اضغط نعم او لا

اذا نعم ان يخرج

...

من يستطيع مساعدتي؟؟؟؟

وشكرا جزيلا

تم تعديل هذه المشاركة بواسطة saroo في 29 يناير 2009 في 14:46

#229 يناير 2009 في 15:05

MsgBox "هل تريد الخروج من البرنامج"

End

هذا الكود للخروج

#329 يناير 2009 في 15:49

Dim Response As Integer
Response=MsgBox("Are you sure you want to quit?",vbYesNo)
If Response=vbYes Then End

وبهذا إذا ضغط المستخدم نعم يخرج من البرنامج، وإذا ضغط لا، لا يفعل شيئاً.

هذه الجملة خاطئة :wacko:

#429 يناير 2009 في 16:09

ضع هذا الكود داخل الحدث Unload للـ Form

Cancel = (MsgBox("هل انت متاكد من الخروج ؟", vbYesNo Or vbQuestion Or vbMsgBoxRight Or vbMsgBoxRtlReading, "تأكيد") = vbNo)

ليصبح بهذا الشكل

Cancel = (MsgBox("هل انت متاكد من الخروج ؟", vbYesNo Or vbQuestion Or vbMsgBoxRight Or vbMsgBoxRtlReading, "تأكيد") = vbNo)
End Sub

Private Sub Form_Unload(Cancel As Integer)

وإذا أردت تنفيذ اوامر معينه مثلا عند الخروج فتأكد أولا من ان الـ Cancel يساوي 0 بعد ظهور الرسالة

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي