FindWindow

Die API-Funktion FindWindow sucht ein Fenster mittels 2 Parameter und gibt deren Fensterhandle zurück.

Declare Function FindWindow Lib "user32" _
                 Alias "FindWindowA" ( _
                 ByVal lpClassName As String, _
                 ByVal lpWindowName As String) As Long

Parameter

lpClassName

Gibt den Klassennamen an, nach der gesucht wird. Ist der Klassennamen unwichtig, so wird vbNullString verwendet.

lpWindowName

Gibt den Fensternamen an, nach dem Gesucht wird. Ist der Fenstername unwichtig, so wird vbNullString verwendet.

Rückgabewerte

Die Funktion gibt einen wert vom Typ long zurück und beinhaltet das Handle des gefundenen Fensters. Wurde das Fenster nicht gefunden, so ist der Wert 0.

Beispiel

Der Aufruf ist simpel. In diesem Beispiel wird das Fenster des Windows Taschenrechners gesucht.

Dim Handle As Long
   Handle = FindWindow(vbNullString, "Rechner")

   If Handle <> 0 Then
      MsgBox "Der Windows-Rechner ist geladen!", vbInformation, "Fenster gefunden!"

   Else
      MsgBox "Der Windows-Rechner ist nicht geladen!", vbInformation, "Fenster nicht gefunden!"

   End If

Hinweise

Diese Funktion findet immer nur das erste Fenster mit dem angegebenen Titel oder Klassennamen. Sind zwei Fenster mit gleichem Titel geöffnet, so liefert die Funktion das erste gefundene Fenster.

Betriebsystem

Die Funktion ist unter folgenden Betriebssystemen funktionsfähig:

• Windows NT 4.0
• Windows NT 5.0 (2000)
• Windows XP (ab SP2)
• Windows Vista (nur x64)

Verweise

• ActiveVB Tipp 0003
  
• ActiveVB Tipp 0111
  
• ActiveVB Tipp 0201
  
• ActiveVB Tipp 0214
  
• ActiveVB Tipp 0274
  
• ActiveVB Tipp 0304
  
• ActiveVB Tipp 0333
  
• ActiveVB Tipp 0337
  
• ActiveVB Tipp 0343
  
• ActiveVB Tipp 0382
  
• ActiveVB Tipp 0449
  
• ActiveVB Tipp 0489
  
• ActiveVB Tipp 0515
  
• ActiveVB Tipp 0528
  
• ActiveVB Tipp 0567
  
• ActiveVB Tipp 0573
  

Quelle(n)

http://msdn.microsoft.com/en-us/library/ms633499.aspx