نشان دادن اررور زمان خارج کردن برنامه

[xrezax]

دوستان چطور می تونم به برنامم این قابلیتو بدم که اگر کاربر برنامه رو از Task Manager ببنده یک Msgbox نشون بده.

[ho3ein.3ven]

سلام .
Private Sub Form_Unload(Cancel As Integer)
MsgBox "ok"
End Sub

[xrezax]

سلام .
Private Sub Form_Unload(Cancel As Integer)
MsgBox "ok"
End Sub

کار نمی کنه .....
گر کاربر برنامه رو از Task Manager ببنده یک Msgbox نشون بده.

[محسن واژدی]

سلام علیکم
کد زیر را بررسی کنید:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbAppTaskManager Then
MsgBox "Killer me: Task Manager!", vbExclamation
End If
End Sub


البته مشکلی که در این بین وجود دارد در Win7 اگر برنامه را از طریق TaskMgr ببندیم (End Task) رویداد Form_QueryUnload اتفاق نمی افتد، البته در XP مشکلی ندارد
نحوه ی بسته شدن فرم را هم میتوانیم در UnloadMode بررسی کنیم، به عنوان مثال اگر برنامه از task-mgr بسته شود UnloadMode حاوی مقدار 3 هست یعنی vbAppTaskManager
البته اگر برنامه Terminate شود برنامه بدون اتفاق افتادن این رویداد بسته میشود

موفق باشید

[xrezax]

مرسی از توضیحاتتون.

اما این کد هم کار نکرد

[محسن واژدی]

اما این کد هم کار نکرد

همانطور که عرض شد تنها در ویندوز xp جوابگو هست، با ویندوز سون سازگاری ندارد (sp6 را نصب کنید شاید برطرف شود)

موفق باشید