خروج از برنامه

[hr_3303]

سلام دوستان.
من توی برنامم زمانی که از برنامه خارج میشم((end)) می زنم ،توی task manager قسمت processes که میرم برنامه بازه و باید دستی end process بزنم.
لطفا کمکم کنید،خیلی ازیتم میکنه.
ممنونم.....
76444

[_behnam_]

توی قسمت From Unload بنویسید End

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

[hr_3303]

عزیزم همین کارو کردم ولی بازم نمیشه.

[hr_3303]

دقیقا" اینه:
If MsgBox("ÂíÇ ãí ÎæÇåíÏ ÇÒ ÈÑäÇãå ÎÇÑÌ ÔæíÏ¿ ", vbQuestion + vbYesNo + vbDefaultButton2, "åÔÏÇÑ") = vbYes Then
end
End If

[mr-adler]

با سلام
البته شاید جواب بده و شایدم نه اما به جای end بنویس unload me

جواب داد به ما هم بگو تجربه بشه.

[hr_3303]

با سلام
البته شاید جواب بده و شایدم نه اما به جای end بنویس unload me

جواب داد به ما هم بگو تجربه بشه.


عزیزم unload me هم زدم.ولی جواب نگرفتم.نمی دونم چه کاری توی برنامم کردم که اینجوری میشه.لطفا" کمک کنید.

[Javad-2010]

نمونه برنامه بذار تا ببینیم مشکلش چیه؟

[Mr'Jamshidy]

احتمالا تو برنامه از کدی استفاده کردی که باعث میشه این اتفاق بیوفته

یا شاید هم سیستمت ویروسی باشه و به فایل اجراییت چسبیده باشه

و شاید موارد دیگه

از این کد استفاده کن اگر جواب نگرفتی سورس برنامه رو بزار

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Form_Load()
ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)
End Sub

[alireza661]

نیازی به این کدهای جمشید نیست
شما هر چندتا فرم در برنامت درست کردی اول باید unload کنی و بعد از دستور close استفاده کنی و بعد end و در آخر unload form1

Private Sub Form_Unload(Cancel As Integer)
unload form5
unload form4
unload form3
unload form2
close
end
unload form1
End Sub

[AbbasVB]

شما احتمالا در برنامه تون چند تا فرم دارید با این کد شما فقط یک فرم بسته میشه
برای این که کد شما کاملتر بشه از این کد استفده کنید

On Error Resume Next
Dim msg As Long

msg = MsgBox("آیا می خواهید خارج شوید؟", vbExclamation + vbYesNo, "خروج")

If msg = vbYes Then
End
Else
Cancel = 1
End If



آقای ali661 کد close برای چی بود؟

[محسن واژدی]

نیازی به این کدهای جمشید نیست
شما هر چندتا فرم در برنامت درست کردی اول باید unload کنی و بعد از دستور close استفاده کنی و بعد end و در آخر unload form1

Private Sub Form_Unload(Cancel As Integer)
unload form5
unload form4
unload form3
unload form2
close
end
unload form1
End Sub
سلام
کد را بصورت زیر ویرایش کنیم، بهتر نیست؟:

Dim oFrm
For Each oFrm In Forms
Unload oFrm
Next 'oFrm
End

در کد بالا تمامی فرم های بارگزاری شده در کالکشن Forms یا همان Form1,Form2,...FormN بسته میشوند
همچنین با اجرای دستور End، چون برنامه Terminate میشود، دستورات پس از آن که در کد آقای alireza661 دستور "Unload Form1" است اجرا نمیشوند


آقای ali661 کد close برای چی بود؟

دستور Close برای بستن فایل باز شده با دستور Open است، که در اینجا کاربرد ندارد

موفق باشید

[M.T.P]

دوستان همه راهنمایی های لازم رو کردند و به نظر من شما یک شی ء از نوع یک کلاس ساختید که تکلیفش رو روشن نکردید و خاتمه ش ندادید ، حالا این شی ء می تونه از نوع یک فرم باشه یا اینکه از کلاس های پروژه تون باشه و یا اینکه با CreateObject ایجاد شده باشه.

اگه قوانین برنامه نویسی رو رعایت کنید هیچ وقت این مشکل بوجود نمیاد.

[Mr'Jamshidy]

نیازی به این کدهای جمشید نیست
شما هر چندتا فرم در برنامت درست کردی اول باید unload کنی و بعد از دستور close استفاده کنی و بعد end و در آخر unload form1

Private Sub Form_Unload(Cancel As Integer)
unload form5
unload form4
unload form3
unload form2
close
end
unload form1
End Sub

اول از همه ادب رو رعایت کنید

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

و اگر بخوای از Unload استفاده کنی چه نیازی به End داری

البته برنامه نویسیهایی که سطح اون ها Sub-Zero هست چیزی بیش از این توقع نیست

:قهقهه: دوست بی سواد من دستور Close :قهقهه: برای بستن فرم :تشویق:

مگه داری مقاله مینویسی که هرچی دلت خواست بنویسی و اون هم عمل کنه :قهقهه:

دستور Close برای کار با فایل ها استفاده میشه (جای دیگه نگی آبروت میره)

موفق باشید