PDA

View Full Version : حرفه ای: غیر قابل بستن برنامه



www.pc3enter.tk
یک شنبه 08 اسفند 1389, 01:34 صبح
سلام

می خواستم یک سوال بپرسم ان هم این که چطور می توانم برنامه ام را غیر قابل بستن کنم
منظورم در داخل تسک منیجر است ان هم از روش end task
باتشکر

www.pc3enter.tk
یک شنبه 08 اسفند 1389, 20:47 عصر
کسی نیست به من کمی کمک
در حد یک زره هرچه می دونید

(خداوندا چه قدر مهندس در این دنیا وجود دارررررررد )

farshid_vb
چهارشنبه 18 اسفند 1389, 09:00 صبح
دوست عزیز یه راه بسیار جالب پیشنهاد میکنم
هر وقت برنامه اجرا شد اول چک کنه اسمش چیه ؟
مثلا m1 خوب حالا از خودش یه فایل کپی کنارش بسازه به اسم m2 و اگه m2 بود یه فایل بسازه به اسمه m1 خوب حالا میتونی در خود برنامه هربار m1 یا m2 را اجرا کنی
در برنامه باید کدی بزاری که اگه برنامه اجرا شده بود خارج بشه



Sub Main()
On Error Resume Next
If Program_Is_Already_Running Then
GoTo Noduplicate
Else
Form1.Show
End If
Exit Sub
Noduplicate:
' MsgBox "Program Is Already Running , Plase Wait For Loading ...", vbExclamation
End
End Sub


این را در یک ماژول بزار و برنامه را از منوی بالایی ویژوال بیسیک
Project
properties
start object
از لیست ظاهر شده
Sub Main را انتخاب بکن . اگر سورس هم خواستی سه سوته مینویسم

این هم سورسش
http://s1.picofile.com/file/6417719314/basteh_nasheh.zip.html
برای خارج شدن logout konin


تشکر یادتون نره
:قهقهه: