|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Abrir o programa somente uma vez (com API)
|
 |
|
|
|
Postada em 30/9/2003 por ^HEAVY-METAL^
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Sub Main()
Dim m_hWnd As Long
m_hWnd = FindWindow(vbNullString, "Form1")
If m_hWnd > 0 Then
Unload Form1
Else
Form1.Show
End If
End Sub
|
|
|
|
|
