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

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


Ïà¹ØÎĵµ£º

VBÎļþ·ÛËé»ú


'´úÂë:
Option Explicit
'======================ÓÃÓÚ²éÕÒ½ø³ÌºÍÖÕÖ¹½ø³ÌµÄAPIº¯Êý³£Êý¶¨Òå================ =====
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessF ......

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Áù¸öÊýÈ¡×î´óÖµºÍƽ¾ùÊýµÄƽ·½

VERSION 5.00
Begin VB.Form Form2
   AutoRedraw      =   -1  'True
   Caption         =   "¼ÆËã½çÃæ"
   ClientHeight    =   4905
   ClientLe ......

vb ´®¿ÚͨѶ

MSComm¿Ø¼þÌṩÁËÁ½ÖÖ´¦ÀíͨÐŵķ½Ê½£ºÒ»ÖÖΪʼþÇý¶¯·½Ê½£¬¸Ã·½Ê½Ï൱ÓÚÒ»°ã³ÌÐòÉè¼ÆÖеÄÖжϷ½Ê½¡£µ±´®¿Ú·¢Éúʼþ»ò´íÎóʱ£¬MSComm¿Ø¼þ»á²úÉúOnCommʼþ£¬Óû§³ÌÐò¿ÉÒÔ²¶»ñ¸Ãʼþ½øÐÐÏàÓ¦´¦Àí¡£±¾ÎĵÄÁ½¸öÀý×Ó¾ù²ÉÓø÷½Ê½¡£ÁíÒ»ÖÖΪ²éѯ·½Ê½£¬ÔÚÓû§³ÌÐòÖÐÉè¼Æ¶¨Ê±»ò²»¶¨Ê±²éѯ MSComm¿Ø¼þµÄijЩÊôÐÔÊÇ·ñ·¢Éú±ä»¯£¬´Ó¶øÈ ......

vbÓÃapiµ÷ÓöԻ°¿ò

½¨Ò»¸öÄ£¿é
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ