دكمه خروج MDI FORM

[powerboy2988]

سلام
من تو MDI FORM برناممم وقتي دگمه ضرب در گوشه سمت راست فرم رو مي زنم MDI FORM بسته ميشه . اما از برنامه خارج نميشه..
چيكارش كنم؟

[saeedzx]

سلام از این کد استفاده کن


Private Sub MDIForm_Unload(Cancel As Integer)
End
End Sub

[mmssoft]

این کد مطمئن تره :

Private Sub MDIForm_Unload (Cancel As Integer)
Unload Me
End
End Sub

[butterfly8528]

دوستان بهتره یکم ریشه ای تر و فنی تر به قضیه نگاه کنیم .

این امر زمانی اتفاق می افته که برنامه از حافظه خارج نشده باشه حتی زمانی که برنامه ظاهرا بسته شده .

برای جلو گیری از این اتفاق بهتره هر وقت می خایم فرمی رو ببندیم به انو رو پنهان ( form1.hide ) نکنیم و اون رو آنلود ( Unload Form1 ) کنیم .

و در نهایت هم با دستور End برنامه رو ببندیم .

[mpmsoft]

این کد مطمئن تره :
کد:

Private Sub MDIForm_Unload (Cancel As Integer)
Unload Me
End
End Sub



از اون حرفا بودا

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

[saeedzx]

دوست من کلمه End یعنی پایان ولی unload یعنی خروج

پس نتیجه میگیریم که می شه دستورات رو سنجید

[powerboy2988]

من مي خوام يك پيغام خروج بدم كه اگر ok داد از برنامه بپره بيرون...
اما اين كاري به پيغام نداره :(

[mmssoft]

a = MsgBox("Do you want to Exit?", vbQuestion + vbYesNo, "Exit")
If a = vbYes Then
Unload Me
End
Else
Exit Sub
End If

[powerboy2988]

a = MsgBox("Do you want to Exit?", vbQuestion + vbYesNo, "Exit")
If a = vbYes Then
Unload Me
End
Else
Exit Sub
End If

قبل از راهنمايي لطفا خودتون يك بار تست كنيد برادر من ...................

[mmssoft]

من دوبار تست کردم. کار میکنه.

[powerboy2988]

آخه چه جوري كار مي كنه وقتي شما Unload فرمتون رو فراخواني مي كنيد؟؟؟

[saeedzx]

سلام دوست من کد هایی که دوستان دیگه نوشتن 1 مشکل داره و مشکلش اینکه MDI خاصیت Exit Sub نداره یعنی توش کارساز نیست

این نو دانلود کن کارت حله

[powerboy2988]

كلك مي زني برادر...............
اما اين راهش نيست.

[saeedzx]

ببین مشکل رو باید یک جوری حل کرد خوب بنده هم رشتی هستم و کلک رشتی هم معروفه :لبخند: