13-11-22, 11:02 AM
13-11-22, 10:35 PM
الخاصية موجودة بالفعل في اعدادات البرنامج
project properties
Application --> Make single Instance Application
project properties
Application --> Make single Instance Application
13-11-22, 11:23 PM
(13-11-22, 10:35 PM)Jounior_P كتب : [ -> ]الخاصية موجودة بالفعل في اعدادات البرنامج
project properties
Application --> Make single Instance Application
تلك طريقة
اما برمجيا و كمثال
PHP كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If PrevInstance() Then
MessageBox.Show("هناك نسخة من البرنامج مفتوحة فعلا... اغلف النسخة المفتوحة لكي تتمكن من فتح نسخة جديدة من البرنامج")
Me.Close()
Exit Sub
End If
End Sub
Function PrevInstance() As Boolean
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
Return True
Else
Return False
End If
End Function
End Class