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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24015)

منع تشغيل اكثر من نسخة من البرنامج - alfakeehy - 28-02-18

السلام عليكم ورحمة الله وبركاته
اسعد الله جميع اوقاتكم بالطاعة والمغفرة من الرحمن

اخواني استفسار لو تكرمتوا وارجوا منكم الرد وفقكم الله

طريقة منع البرنامج من تشغيل مرتين
مثلا شغلت البرنامج ونزلت الصفحة ورجعت مرة اخرى اشغله وهو نشيط مو معقولة يكون برنامجين بنفس الشي تعمل في ان واحد
ابغى كود يمنع ذلك وتطلع رسالة تفيد بانه توجد نسخة نشطه .. ويتم تنشيط النسخة
هذا وجزاكم الله عنا خير الجزاء

RE: منع تشغيل اكثر من نسخة من البرنامج - مصمم هاوي - 28-02-18

ضع هذا الكود في مديول

كود :
Public Sub IsAppRunning()
 If App.PrevInstance = True Then
   MsgBox "البرنامج قيد التشغيل", vbExclamation + vbMsgBoxRtlReading
 End
 End If
End Sub


RE: منع تشغيل اكثر من نسخة من البرنامج - AL_BRNS - 01-03-18

وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :
Private Sub Form_Load() 
If App.PrevInstance = True Then 
MsgBox "لا يمكن تشغيل أكثر من نسخة من البرنامج" 
Unload Me 
Exit Sub 
End If 
End Sub 

بالتوفيق .


RE: منع تشغيل اكثر من نسخة من البرنامج - alfakeehy - 01-03-18

يعطيكم العافية اخواني وماقصرتم الله يطرح فيكم وفي علمكم الخير والبركة
تم بنجاح
ودي وشكري للجميع

RE: منع تشغيل اكثر من نسخة من البرنامج - المهندس ابوبكر - 31-07-18

جزاك الله كل خير

RE: منع تشغيل اكثر من نسخة من البرنامج - Wwhw94 - 30-08-20

عندي نفس المشكلة بلغة سي شارب

RE: منع تشغيل اكثر من نسخة من البرنامج - Anas Mahmoud - 31-08-20

(30-08-20, 01:17 PM)Wwhw94 كتب : عندي نفس المشكلة بلغة سي شارب

http://vb4arb.com/vb/showthread.php?tid=36272

RE: منع تشغيل اكثر من نسخة من البرنامج - Microformt - 22-10-20

(28-02-18, 11:49 PM)مصمم هاوي كتب : ضع هذا الكود في مديول

كود :
Public Sub IsAppRunning()
 If App.PrevInstance = True Then
   MsgBox "البرنامج قيد التشغيل", vbExclamation + vbMsgBoxRtlReading
 End
 End If
End Sub
اخي العزيز
 السلام عليكم ورحمة وبركاته
هل يمكن استعادة النسخة المفتوحة بدل من الرسالة  وجزكم الله خيراً ؟؟
 تحياتي