VB 单实例运行

 

 

VB6

在程序运行时用如下语句：

if   app.PrevInstance=true   then  
            end    
end   if

 

 

 

VB 2005:

 

1. 在VB2005中,打开"属性"页,启用"应用程序“框架, 选中" 单实例应用程序"前面复选框,就行了。

 

    (WinCE中没有该属性设置，只能通过Findwindow函数，察看是否已经有程序的实例在运行。或者用下面的MUTEX)

 

2. MUTEX. (一下代码为2008)

 

 

' 引用Mutex的类

　　 Imports System.Threading

　　 Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load

　　 ' 定义Mutex的类

　　 Dim objMutex As Mutex

　　 ' 得到应用程序的名称

　　 Dim AppName As String = Assembly .GetExecutingAssembly().GetName().Name

　　 ' 用这个应用程序的名字,去实例化这个Mutex

　　objMutex = New Mutex( False , AppName)

　　 ' 判断是否有相同的应用程序在运行;

　　 If objMutex.WaitOne( 0 , False ) = False Then

　　objMutex.Close()

　　objMutex = Nothing

　　MessageBox.Show( " 这个程序正在运行! " )

　　Close() ' 关闭这个应用程序

　　 Exit Sub

　　 End If

　　 End Sub