چه جوری میشه برنامه نوشت که هیچوقت End نشه؟

[javid_debugger]

من یه سوال مهم داشتم دوستان چه جوری میشه برنامه نوشت که هیچوقت End نشه. یعنی از هیچ جا نتونیم به برنامه پایان بدیم؟دوستان نظرات خود را بگن.

[Pishgahi]

form_unload فرم مادر که برنامه با اون میاد بالا

Private Sub Form_Unload(Cancel As Integer)
...............
End Sub

تو این روال یه متغییر به نام Cancel داریم
شما اگه تواین روال این متغیر رو مساوی منفی یک (1-) قرار بدید برنامه بسته نمیشه
اما مساوی هر عدد دیگه ای قرار بگیره برنامه بسته میشه.

Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
End Sub

اما از تو task manager بسته میشه . در این حد دیگه اطلاعات ندارم.

[mhsmity]

از دويا چند فايل exe استفاده كن تا از باز بودن فايل اصلي اطمينان داشته باشي يعني .
نظرت درمورد اين كدهاي مختصر چيست.

Dim sh As New Shell

Private Sub Form_Unload(c As Integer)

sh.Open (App.Path + "\" + App.EXEName + ".exe")

End Sub
يك سوال: آيا مشكل شما Task Manager و برنامه هاي مشابه آن است.

[javid_debugger]

نه من میخوام برنامم به هیج عنوان بسته نشه.

[xxxxx_xxxxx]

به اينجا هم سر بزنيد:
جلوگیری از پایان برنامه در process (http://barnamenevis.org/forum/showthread.php?t=140709)