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±àдÍÐÅÌͼ±êÓÐÁ½¸öÒªµã£¬Ò»ÊÇʹÓà Shell_NotifyIcon º¯ÊýÏÔʾͼ±ê£»¶þÊÇÏòϵͳע²á TaskbarCreated ÏûÏ¢£¬ÒÔ±ãexplorer±ÀÀ£Ê±»Ö¸´ÍÐÅ̵Äͼ±ê¡£
Ê×ÏÈÐèÒªÔö¼ÓÒ»¸öÄ£¿éÎļþ£¬ÄÚÈÝÈçÏ£º
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOT ......
ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò°ïÖú
1¡¢ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò
Visual Basic ×÷ΪһÖָ߼¶±à³ÌÓïÑÔ£¬ËüÒ²ÓÐ×Ų»¿É±ÜÃâµÄȱµã---¿ª·¢³öµÄÓ¦ÓóÌÐòÔËÐÐËÙ¶ÈÂý¡£Èç¹ûÎÒÃÇÄܹ»³ÌÐò×öһЩÓÅ»¯£¬ÄÇôÇé¿ö½«»á´ó´ó¸ÄÉÆ¡£ÒªÓÅ»¯³ÌÐòÔËÐеÄʵ¼ÊËÙ¶È£¬³£Óõķ½·¨ÓÐÈýÖÖ£º
1.¾¡Á¿±ÜÃâʹÓà Variant ±äÁ¿¡£ÓÉÓÚVB²»ÄÜÈ·¶¨ Variant ±äÁ¿µÄ¾ ......
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 ......
´úÂëÈçÏÂ:
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As
Long, ByVal hWndInsertAfter As Long,& _
¡¡ ByVal X As Long, ByVal Y As
Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long & _
&n ......
VB ×¢ÊͳÌÐò´úÂëµÄ·ûºÅÊÇ '£¬Ö»ÒªÔÚijÐгÌÐòÇ°Ãæ¼ÓÉϸ÷ûºÅ¾Í¿ÉÒÔ×¢Ê͸ÃÐгÌÐò¡£µ«Èç¹û³ÌÐò´úÂëÓï¾äºÜ¶àµÄʱºò£¬Ò»ÐÐÒ»ÐеØ×¢Ê;ͷdz£²»·½±ã¡£Æäʵ VB
±¾ÉíÌṩÁËÒ»´ÎÐÔ×¢ÊͶàÌõÓï¾äµÄ¹¦ÄÜ£ºÔÚÖ÷²Ëµ¥“ÊÓͼ”Ñ¡ÏîµÄ“¹¤¾ßÀ¸”Ï£¬Ñ¡ÖГ±à¼”£¬VB
µÄ½çÃæ»á³öÏÖÒ»ÅŹ¤¾ß°´Å¥£¬ÆäÖоÍÓÐÓà ......