[hamada salah90]

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

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت

حيث إذا كان البرنامج يعمل بالفعل  لا يتم تشغيله مرة اخرى

[Taha Okla]

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

تفضل :

كود :

Function AnotherInstance() As Integer
   Dim AppTitle$
   If App.PrevInstance Then
       ' Hold the title of the application (title bar caption)
       AppTitle$ = App.Title
       ' Change our application title
       App.Title = "No longer want this app running..."
       ' Activate the previous instance
       AppActivate AppTitle$
       ' Let calling procedure know another instance was detected
       AnotherInstance = True
   Else
       ' Let calling procedure know another instance was NOT detected
       AnotherInstance = False
   End If
End Function

Sub Form_Load()
   ' Don't want two copies of the program running at the same time
   If AnotherInstance() Then End
   ' Note: that this routine will not work if the application's title changes
   ' (showing file names in the title bar for example).
End Sub

[أبو خالد الشكري]

(27-12-21, 08:46 PM)Amir_Alzubidy كتب :

(27-12-21, 06:01 PM)hamada salah90 كتب : السلام عليكم ورحمة الله وبركاته

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت

حيث إذا كان البرنامج يعمل بالفعل  لا يتم تشغيله مرة اخرى

و عليكم السلام 

PHP كود :

 If App.PrevInstance = True Then
  End
  End If 


هذا الكود رغم بساطته وصغره إلا أنه فعال جدا ما شاء الله !
مشكور على هذا الكود يا أستاذ Amir_Alzubidy

ولكني أريد كود للغة VB.net بهذي البساطة ؟
ولكم خالص الشكر والتقدير

[سعود]

(28-12-21, 08:56 AM)أبو خالد الشكري كتب :

(27-12-21, 08:46 PM)Amir_Alzubidy كتب :

(27-12-21, 06:01 PM)hamada salah90 كتب : السلام عليكم ورحمة الله وبركاته

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت

حيث إذا كان البرنامج يعمل بالفعل  لا يتم تشغيله مرة اخرى

و عليكم السلام 

PHP كود :

 If App.PrevInstance = True Then
  End
  End If 


هذا الكود رغم بساطته وصغره إلا أنه فعال جدا ما شاء الله !
مشكور على هذا الكود يا أستاذ Amir_Alzubidy

ولكني أريد كود للغة VB.net بهذي البساطة ؟
ولكم خالص الشكر والتقدير

تقصد مثل هذا؟
منع تشغيل اكثر من نسخة للتطبيق (السهل اللذي كنت اظنه صعبا)

[أبو خالد الشكري]

(28-12-21, 09:26 AM)سعود كتب :

(28-12-21, 08:56 AM)أبو خالد الشكري كتب :

(27-12-21, 08:46 PM)Amir_Alzubidy كتب :

(27-12-21, 06:01 PM)hamada salah90 كتب : السلام عليكم ورحمة الله وبركاته

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت

حيث إذا كان البرنامج يعمل بالفعل  لا يتم تشغيله مرة اخرى

و عليكم السلام 

PHP كود :

 If App.PrevInstance = True Then
  End
  End If 


هذا الكود رغم بساطته وصغره إلا أنه فعال جدا ما شاء الله !
مشكور على هذا الكود يا أستاذ Amir_Alzubidy

ولكني أريد كود للغة VB.net بهذي البساطة ؟
ولكم خالص الشكر والتقدير

تقصد مثل هذا؟
منع تشغيل اكثر من نسخة للتطبيق (السهل اللذي كنت اظنه صعبا)

صبحك الله بالخير أستاذ سعود
نعم بالضبط مثل ذلك .
أشكر لك سرعة ردك الكريم على الموضوع .
في أمان الله أستاذي .

[hamada salah90]

لكم جميعا جزيل الشكر والتقدير      وبارك الله فيكم

[aboezzat84]

(28-12-21, 09:08 PM)hamada salah90 كتب : لكم جميعا جزيل الشكر والتقدير      وبارك الله فيكم

فى ال form load لاول شاشة بالبرنامج :


If App.PrevInstance = True Then
N = MsgBox("البرنامج يعمل", vbRetryCancel + vbCritical, "M.Ezzat")
Unload Me
Exit Sub
End If