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