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
Ïà¹ØÎĵµ£º
VB6ÀïÃæµÄ°²×°ÄÚÈÝÖÐÓÐJET £¨IISAM£©²¿¼þ£¬°²×°Ê±¼ÓÒÔÑ¡Ôñ,Äã¿ÉÒÔÐÞ¸´°²×°ÄãµÄVB6¡£¾ßÌå×ö·¨ÈçÏ£º
1¡¢ÖØÐÂÆô¶¯VB°²×°³ÌÐò£¬Ñ¡È¡¹¤×÷Õ¾¹¤¾ßºÍ×é¼þ=¡·Ìí¼Ó¡¢É¾³ý³ÌÐò=¡·Êý¾Ý·ÃÎÊ=¡·¸ü¸ÄÑ¡Ïî=¡·Ñ¡ÖÐJet IIsam
2¡¢ÖØ×°VB£¬°²×°Ê±Ñ¡×Ô¶¨Ò壬ȫ²¿Ñ¡ÖС£ ......
À
±¾ÎÄ·¢±íÔÚ2000Äê4ÔÂ17ÈÕ ¡¶¼ÆËã»úÊÀ½ç¡·25ÆÚ
ÖÆ×÷°²×°³ÌÐòÍùÍùÊdzÌÐòÉè¼ÆµÄ×îºóÒ»²½£¬Í¬Ê±Ò²ÊÇÖØÒªµÄÒ»²½£¬ÒòΪÔËÐа²×°³ÌÐòÍùÍùÊÇÓû§µÄµÚÒ»¸ö²Ù×÷¡£ÏÂÃæ¾Í½éÉÜһЩÖÆ×÷
Visual Basic
°²×°³ÌÐòʱ³£Óöµ½ÎÊÌâµÄ½â¾ö·½·¨¡£
1
¡¢Ò»¸ö·Ç³£¼òµ¥µÄ
VB
³ÌÐòÊÇ·ñ¿ÉÒÔ²»ÖÆ×÷°²×°³ÌÐò
ÎÊ£º¼ÙÈçÎÒµÄ
VB5
¿ª·¢µÄ³ÌÐ ......
²ÎÕÕ°¸Àý½Ì³Ì½¨Á¢µÄÊý¾Ý¿â¹ÜÀíϵͳÔÚÉõ¶à·½Ã涼´æÔÚÎÊÌâ¡£¿ÉÄÜÊÇÐÂÊÖ£¬²»¹ÜÊǶÔÓÚ´óÒ»¾Íѧ¹ýµÄVB±à³Ì»¹ÊÇÕâ¸öѧÆÚ¸Õ½Ó´¥µÄSQL£¬ºÜ¶àСÎÊÌâ³£³£³öÏÖÔÚµ÷ÊÔ¹ý³ÌÖС£ÏëÇëÊìϤʹÓÃÕâÁ½¸öƽ̨µÄ¸ßÊÖ°ïæָµãһϡ£
1.ÈçºÎ½â¾öDataGridÖжà¸öcolumnºÍSQLÖжà¸ö±íµÄ°ó¶¨£¿Ä¿µÄ ......
http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/5b0e0eb7-9cd7-420a-9f56-e588154174ba
http://www.mndsoft.com/blog/article.asp?id=903
http://topic.csdn.net/t/20051015/14/4328396.html
¡¡¡¡VBÊdz£ÓõÄÓ¦ÓÃÈí¼þ¿ª·¢¹¤¾ßÖ®Ò»£¬ÓÉÓÚVBµÄ±¨±í¹¦ÄÜÓÐÏÞ£¬¶øÇÒÒ»µ«±¨±í¸ñʽ·¢Éú±ä»¯£¬¾ÍµÃÏàÓ¦Ð޸ijÌÐò£ ......
mxl=1 && ×î´óµÄÎı¾¿ò±àºÅ
mnl=1 &n ......