منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود لتشغيل نسخة واحدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود لتشغيل نسخة واحدة (/showthread.php?tid=15037)

كود لتشغيل نسخة واحدة - عيسى ابو ارميس - 08-03-16

انا قمت بتصميم برنامج يعمل على مراقبة تشغيل الجهاز و ولكن عندما اقوم بتشغيله واطفاء النسخة يبقى البرنانج شغال و لقد استخدمت الكود If App.PrevInstance = True Then ولكن دون جدوى و هل يمكن تشغيل نسخة واحدة فقط مع تشغيل النسخة وتحميلها و وشكرا لكم

RE: كود لتشغيل نسخة واحدة - Ahmed_Mansoor - 09-03-16

أهلا أخي الكريم , إستخدم هذا لإنهاء عمل البرنامج :

PHP كود :
Dim zFrm As Form

For Each zFrm In Forms
    Unload zFrm
Next

End