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
(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 بهذي البساطة ؟
ولكم خالص الشكر والتقدير
تقصد مثل هذا؟
منع تشغيل اكثر من نسخة للتطبيق (السهل اللذي كنت اظنه صعبا)
(28-12-21, 09:08 PM)hamada salah90 كتب : [ -> ]لكم جميعا جزيل الشكر والتقدير وبارك الله فيكمفى ال form load لاول شاشة بالبرنامج :