Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎĵµ£º

VBÏÔʾÍøÒ³Ô´Âë»òÄÚÈÝ

 http://blog.donews.com/sloo/archive/2006/01/29/711269.aspx
1.ÓÃMicrosoft Internet Transfer Control ¿Ø¼þ£¨ÔÚ²¿¼þÖÐÌí¼Ó£©£¬´úÂë·Ç³£¼òµ¥£¬ÈçÏ£¨ÔÚformÉÏÌí¼ÓÒ»¸öInet1ºÍText1ºÍCommand1£©£º
Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.vbgood.com/")
End Sub
2.Èç¹ûÊÇʹÓà W ......

ÓÀÔ¶µÄħÁé by ¹ùÎÀ VB³ÌÐòÉè¼ÆÔ´ÂëÈ«¼Ò¸£

 
 
'*************************************************************************
**˵ Ã÷£ºÓÀÔ¶µÄħÁé by icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail   £ºicecept@163.com QQ£º543375508
'**Íø ......

vbʵÏÖÍøÒ³×Ô¶¯Ìî±í

http://tieba.baidu.com/f?kz=580219489
http://www.anqn.com/vb/154/8974.shtml
http://www.codefans.net/soft/5089.shtml
http://www.mndsoft.com/blog/article.asp?id=1121
 http://topic.csdn.net/t/20020113/14/474848.html
Ö±½ÓÔËÐÐÍøÒ³ÖеÄJavaScript£º
function alllefttab()
WebBrowser1.Document.par ......

VBÓëFTP±à³Ì

Option Explicit
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const scuseragent = "vb wininet"
Private Const INTERNET_FLAG_PASSIVE = &H8000000
'µ÷ÓÃÉèÖû·¾³
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long ......

ÈçºÎʵÏÖVBÓëEXCELµÄÎÞ·ìÁ¬½Ó

 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ÌÐò£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ