المشاركات : 64
المواضيع 10
الإنتساب : Nov 2014
السمعة :
0
الشكر: 63
تم شكره 208 مرات في 23 مشاركات
السلام عليكم ورحمة الله وبركاته
اسعد الله جميع اوقاتكم بالطاعة والمغفرة من الرحمن
اخواني استفسار لو تكرمتوا وارجوا منكم الرد وفقكم الله
طريقة منع البرنامج من تشغيل مرتين
مثلا شغلت البرنامج ونزلت الصفحة ورجعت مرة اخرى اشغله وهو نشيط مو معقولة يكون برنامجين بنفس الشي تعمل في ان واحد
ابغى كود يمنع ذلك وتطلع رسالة تفيد بانه توجد نسخة نشطه .. ويتم تنشيط النسخة
هذا وجزاكم الله عنا خير الجزاء
المشاركات : 761
المواضيع 134
الإنتساب : May 2015
السمعة :
62
الشكر: 667
تم شكره 1388 مرات في 627 مشاركات
28-02-18, 11:49 PM
(آخر تعديل لهذه المشاركة : 28-02-18, 11:49 PM {2} بواسطة مصمم هاوي.)
ضع هذا الكود في مديول
كود :
Public Sub IsAppRunning()
If App.PrevInstance = True Then
MsgBox "البرنامج قيد التشغيل", vbExclamation + vbMsgBoxRtlReading
End
End If
End Sub
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 64
المواضيع 10
الإنتساب : Nov 2014
السمعة :
0
الشكر: 63
تم شكره 208 مرات في 23 مشاركات
01-03-18, 05:53 PM
(آخر تعديل لهذه المشاركة : 01-03-18, 05:54 PM {2} بواسطة alfakeehy.)
يعطيكم العافية اخواني وماقصرتم الله يطرح فيكم وفي علمكم الخير والبركة
تم بنجاح
ودي وشكري للجميع
المشاركات : 1
المواضيع 0
الإنتساب : Jun 2019
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
عندي نفس المشكلة بلغة سي شارب
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(28-02-18, 11:49 PM)مصمم هاوي كتب : ضع هذا الكود في مديول
كود :
Public Sub IsAppRunning()
If App.PrevInstance = True Then
MsgBox "البرنامج قيد التشغيل", vbExclamation + vbMsgBoxRtlReading
End
End If
End Sub
اخي العزيز
السلام عليكم ورحمة وبركاته
هل يمكن استعادة النسخة المفتوحة بدل من الرسالة وجزكم الله خيراً ؟؟
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ