USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página