单实例应用程序的简单方法！

• 下载 SingleInstanceApp - 20.97 KB

引言

这是一个使应用程序成为单例的简单方法。

背景

我在 CodeProject 上见过一些示例，但那些示例有点复杂，这是最简单的方法。

使用代码

这个示例中的编程非常容易理解。

	
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length() > 1 Then
            MsgBox("This is a Single instance Applicaton " & vbNewLine & "* Another Instance is Already Running", MsgBoxStyle.OKOnly, "Single Instance Application")
            End
        End If
    End Sub