Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Ä£Äâ°´¼ü

¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷ ×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊǾÍÓÐÁËÓóÌÐòÀ´´úÌæÈËÃǰ´¼üµÄ·½·¨£¬ÕâÑù¿ÉÒ԰ѺܶàÖØ¸´ÐԵļüÅ̲Ù×÷½»¸ø³ÌÐòÀ´Ä£Ä⣬ʡÁ˺ܶྫÁ¦£¬°´¼ü¾«Áé¾ÍÊÇÕâÑùµÄÒ»¸öÈí¼þ¡£ÄÇô ÎÒÃÇÔõÑù²Å ......

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ÌÐò£ ......

VB MSHFLEXGRID MSHFLEXGRID ͬʱѡÖв»Á¬ÐøµÄ¶àÐÐ

  ÔÚ¹¤³ÌÖÐÌí¼ÓÒ»¸öÀàÄ£¿é£¬ÃûΪ   Selection  
  È»ºó¼ÓÈëÒÔÏ´úÂ룺  
   
  Dim   colRows   As   Collection  
  Dim   ControlKey   As   Boolean  
  Public   WithEvents   flx   As   M ......

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ºÅ