تشغيل البرنامج لمرة واحدة

Class System.Threading.Mutex يضع مؤشراً في الذاكرة، و يمكنك عن طريق هذا المؤشر أن تتحكم في تشغيل التطبيق، يعني لو كان هذا المؤشر موجود في الذاكرة فهذا يعني ان التطبيق شغال بالفعل، و لا يعمل عندما يقوم المستخدم بالضغط على الـ EXE الخاص به، أما لو كان هذا المؤشر غير موجود بالذاكرة فهذا معناه ان التطبيق الآن غير شغال و بالتالي يقوم بتشغيله..

ضع هذا الـ Module في مشروعك، و حدد الـ Startup Object للـ Sub Main ، بالاضافة الى ان الفورم الاساسية للمشروع اسمها frmMain:

Imports System.Threading

Module Initial

    Public Sub Main()

        Dim NotRunning As Boolean
        Dim mMutex As Mutex = New Mutex(False, "OneInstance", NotRunning)

        If NotRunning = True Then
            Application.Run(New frmMain())
        Else
            MessageBox.Show("You can not run more than one instance of the application." & vbCrLf & "Please close the running instance if necessary.", "Application is already running.", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Application.Exit()
        End If

    End Sub

End Module

بسم الله الرحمن الرحيم

الف الف الف الف شكرا لك اخي العزيز على مجهودك

واتمنى لك التوفيق باذن الله سبحانه وتعالى