الفورم يفتح مرة واحدفة فقط .... كيف ؟

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

أخي الكريم ...... إذهب إلى خصائص المشروع ، ومن علامة التبويب "Application" فعل الخيار

"Make Single Instance Application"

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

أخي السائل

يمكننا أن نقوم بعمل Module يقوم بعمل هذا الاجراء كالتالي

Module GetProcess

    Public Function AlreadyRunning_Almost() As Boolean
        ' Get our process name.
        Dim my_proc As Process = Process.GetCurrentProcess
        Dim my_name As String = my_proc.ProcessName

        ' If there is more than one process with this name,
        ' then there is another instance running.
        Return (Process.GetProcessesByName(my_name).Length > 1)
    End Function
End Module

ويستدعي هذا الموديول كالتالي

 If AlreadyRunning_Almost() Then
                MsgBox("لا يمكن تشغيل اكثر من نسخة من البرنامج", MsgBoxStyle.Information, "تنبية")
                Me.Dispose()
            End If

بالتوفيق

شكرا DOWNLOADER شكرا /الاستاذ محمد ..... هذا ما اريد فعله شكرا لهتمامكم