VBÔõÑùÅжϡ¢·ÀÖ¹³ÌÐòÖØ¸´Ö´ÐÐ
Private Sub Form_load()
'ÅжϳÌÐòÊÇ·ñÒѾÔËÐÐ
If App.PrevInstance
Then
MsgBox "±¾³ÌÐòÒѾÔËÐУ¡", vbInformation Or vbOKOnly, "ÌáʾÐÅÏ¢"
Unload
Me
Exit Sub
End If
'ÒÔÏÂÊÇÖ÷Òª³ÌÐò
' ……
End
Sub
¸½£ºÁíÒ»¸öÀý×Ó£º
Option Explicit
Public Sub CheckExist(fm
As Form) '·ÀÖ¹³ÌÐòÖØ¸´Ö´ÐÐ
Dim title As String
If App.PrevInstance
Then
title = App.title
Call MsgBox("Õâ³ÌÐòÒÑÖ´ÐÐ",
vbCritical)
App.title = "" 'Èç´Ë²Å²»»á Avtivate µ½×Ô¼º
fm.Caption =
""
AppActivate title 'activate ÏÈǰ¾ÍÒÑÔËÐеijÌÐò
End ' ½áÊø
End
If
End Sub
Private Sub Form_Load()
Call
CheckExist(Me)
End Sub
Ïà¹ØÎĵµ£º
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Url As String, Filepath As String
Url = "h ......
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ÌÐò£ ......
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
Private Type NCB
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte ......
MSComm¿Ø¼þÌṩÁËÁ½ÖÖ´¦ÀíͨÐŵķ½Ê½£ºÒ»ÖÖΪʼþÇý¶¯·½Ê½£¬¸Ã·½Ê½Ï൱ÓÚÒ»°ã³ÌÐòÉè¼ÆÖеÄÖжϷ½Ê½¡£µ±´®¿Ú·¢Éúʼþ»ò´íÎóʱ£¬MSComm¿Ø¼þ»á²úÉúOnCommʼþ£¬Óû§³ÌÐò¿ÉÒÔ²¶»ñ¸Ãʼþ½øÐÐÏàÓ¦´¦Àí¡£±¾ÎĵÄÁ½¸öÀý×Ó¾ù²ÉÓø÷½Ê½¡£ÁíÒ»ÖÖΪ²éѯ·½Ê½£¬ÔÚÓû§³ÌÐòÖÐÉè¼Æ¶¨Ê±»ò²»¶¨Ê±²éѯ MSComm¿Ø¼þµÄijЩÊôÐÔÊÇ·ñ·¢Éú±ä»¯£¬´Ó¶øÈ ......
VB ×¢ÊͳÌÐò´úÂëµÄ·ûºÅÊÇ '£¬Ö»ÒªÔÚijÐгÌÐòÇ°Ãæ¼ÓÉϸ÷ûºÅ¾Í¿ÉÒÔ×¢Ê͸ÃÐгÌÐò¡£µ«Èç¹û³ÌÐò´úÂëÓï¾äºÜ¶àµÄʱºò£¬Ò»ÐÐÒ»ÐеØ×¢Ê;ͷdz£²»·½±ã¡£Æäʵ VB
±¾ÉíÌṩÁËÒ»´ÎÐÔ×¢ÊͶàÌõÓï¾äµÄ¹¦ÄÜ£ºÔÚÖ÷²Ëµ¥“ÊÓͼ”Ñ¡ÏîµÄ“¹¤¾ßÀ¸”Ï£¬Ñ¡ÖГ±à¼”£¬VB
µÄ½çÃæ»á³öÏÖÒ»ÅŹ¤¾ß°´Å¥£¬ÆäÖоÍÓÐÓà ......