سوال قبل از خروج از برنامه [بایگانی]

h1and1saman

چهارشنبه 05 بهمن 1390, 10:58 صبح

سلام
من می خوام قبل از خروج از برنامه سوال بپرسه که 3 تا گزینه داره yes-no-cancel که وقتی روی no کلیک بشه برنامه رو ببنده ولی وقتی برنامه رو پابلیش می کنم(exeشو می سازم)وقتی که no رو می زنم برنامه رو کامل نمی بنده
میشه کمک کنید
سوال رو هم از قسمت queryunload هم در unload قرار دادم ولی فرقی نکرد

شما برای چنین کاری از چه کدی استفاده میکنید
مرسی

sr2m72

چهارشنبه 05 بهمن 1390, 11:24 صبح

سلام
من می خوام قبل از خروج از برنامه سوال بپرسه که 3 تا گزینه داره yes-no-cancel که وقتی روی no کلیک بشه برنامه رو ببنده ولی وقتی برنامه رو پابلیش می کنم(exeشو می سازم)وقتی که no رو می زنم برنامه رو کامل نمی بنده
میشه کمک کنید
سوال رو هم از قسمت queryunload هم در unload قرار دادم ولی فرقی نکرد

شما برای چنین کاری از چه کدی استفاده میکنید
مرسی

Private Sub exit_Click()
e = MsgBox("Exit?", vbYesNoCancel + vbQuestion)
If e = vbNo Then End
End Sub

mahmood744

چهارشنبه 05 بهمن 1390, 16:55 عصر

دوست عزیز من هم به این مشکل بر خوردم(بعضی اوقات با اجرا فرمان End برنامه به طور کامل از حافظه خارج نمشود)
و با اجرا 3 فرمان پایین مشکلم حل شد

Close
Unload Me
End

موفق باشی

SlowCode

چهارشنبه 05 بهمن 1390, 17:39 عصر

دوست عزیز من هم به این مشکل بر خوردم(بعضی اوقات با اجرا فرمان End برنامه به طور کامل از حافظه خارج نمشود)
و با اجرا 3 فرمان پایین مشکلم حل شد

Close
Unload Me
End

موفق باشی

کار Close رو نمی دونم لطفا توضیح بدید!
خوب شما اگه فرم رو ببندید End که دیگه اجرا نمیشه!!! پس بیهوده است.

shahabbasic

چهارشنبه 05 بهمن 1390, 18:17 عصر

اگر اول فرم رو unload کنید end اجرا میشه
من یک بار برنامم با زدن کلید close خود فرم از حافظه خارج نمیشد فقط در رخداد unload فرم نوشتم end حل شد!

h1and1saman

پنج شنبه 06 بهمن 1390, 11:18 صبح

دوستان با هیچ کدوم از ره های گفته مشکلم حل نشد
راه دیگه ای هست
نمی خوام برای خروج دکمه ای ایجاد کنم

IamOverlord

پنج شنبه 06 بهمن 1390, 11:26 صبح

شما در این روش ها لازم نیست دکمه ای ایجاد کنید، فقط کافیه در رویداد Form_Unload بنویسید End.

h1and1saman

پنج شنبه 06 بهمن 1390, 11:37 صبح

دوست عزیز من میخوام قبل از خروج سوال کنه می خوایید بکاپ بگیرید که 3 گزینه داره yes-no-cancel اون دوتا حله ولی no رو که end می دم حافظه رو آزاد نمی کنه
تو Form_unload هم نوشتم end ولی جواب نمیده

SlowCode

پنج شنبه 06 بهمن 1390, 21:50 عصر

اگر اول فرم رو unload کنید end اجرا میشه
نخیر اینطور نیست، امتحان کنید.

دوست عزیز من میخوام قبل از خروج سوال کنه می خوایید بکاپ بگیرید که 3 گزینه داره yes-no-cancel اون دوتا حله ولی no رو که end می دم حافظه رو آزاد نمی کنه
تو Form_unload هم نوشتم end ولی جواب نمیده

Msg=msgbox "آیا می خواهید فایل پشتیبان را تهیه کنید؟",vbYesNoCancel,"سوال"
If Msg=vbYes then
'کد عملیات پشتیبان گیری
ElseIf Msg=vbNo then
End
End if