البرنامج مفتوح بالفعل - نسخة قابلة للطباعة

البرنامج مفتوح بالفعل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البرنامج مفتوح بالفعل (/showthread.php?tid=44303)

البرنامج مفتوح بالفعل - Lathe1 - 13-11-22

اريد اذا المستخدم حاول فتح البرنامج وهو مفتوح يظهر رسالة البرنامج مفتوح بالفعل ولا يفتح البرنامج مرة اخرى

RE: البرنامج مفتوح بالفعل - Jounior_P - 13-11-22

الخاصية موجودة بالفعل في اعدادات البرنامج
project properties
Application --> Make single Instance Application

RE: البرنامج مفتوح بالفعل - asmarsou - 13-11-22

(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 