[alfakeehy]

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

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

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

[مصمم هاوي]

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

كود :

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

[AL_BRNS]

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

جرب التالي

PHP كود :

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


بالتوفيق .

[alfakeehy]

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

[المهندس ابوبكر]

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

[Wwhw94]

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

[Anas Mahmoud]

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

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

[Microformt]

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

كود :

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

اخي العزيز
 السلام عليكم ورحمة وبركاته
هل يمكن استعادة النسخة المفتوحة بدل من الرسالة  وجزكم الله خيراً ؟؟
 تحياتي