[YousefOkasha]

السلام عليكم أهل المنتدي ..

أقدم لكم الكود الحصري الذي لم يتم نشره من قبل على هذا المنتدى ..

الكود يعمل علي عدم فتح البرنامج الخاص بك أكثر من مرة للمستخدم ..

كود :

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

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

[عبدالله الدوسري]

(31-01-18, 02:22 PM)YousefOkasha كتب :

السلام عليكم أهل المنتدي ..

أقدم لكم الكود الحصري الذي لم يتم نشره من قبل على هذا المنتدى ..

الكود يعمل علي عدم فتح البرنامج الخاص بك أكثر من مرة للمستخدم ..

كود :

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

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

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

مجهود جميل منك اخي الكريم
ولكن ، بارك الله فيك ، يجب أن تلاحظ ان  الأكواد قديمة جداً ، وهي خاصة بلغة VB 6 وانت تطرح المشاركات في منتدى VB.NET

وهذة الاكواد لا تعمل على ال VB.NET.

كل التقدير لجهودك

[طالب برمجة]

في الدوت نت يتم عملها من خصائص المشروع
بحيث يتم التأشير على Make single instance application