|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Verificando se existe uma janela aberta
|
 |
|
|
|
Postada em 24/8/2003 por Ð@®l@n
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Text1.Text = "calculadora"
If FindWindow(vbNullString, Text1.Text) Then
MsgBox "Existe uma janela aberta com o nome de : " & Text1.Text
End If
End Sub
|
|
|
|
|
