FindWindowEx-Funktion Diese Funktion sucht nach dem Handle eines Kindfensters.
Betriebssystem:  Win95, Win98, WinNT 4.0, Win2000, WinME	Views:  468

Deklaration:

Declare Function FindWindowEx Lib "user32.dll" _
  Alias "FindWindowExA" ( _
  ByVal hwndParent As Long, _
  ByVal hwndChildAfter As Long, _
  ByVal lpszClass As String, _
  ByVal lpszWindow As String) As Long

Beschreibung:
Diese Funktion sucht nach dem Handle eines Kindfensters.

Parameter:

hwndParent	Erwartet das Fenster-Handle des Elternfensters, dessen Kindfenster durchsucht werden sollen.
hWndChildAfterA	Erwartet das Handle eines Kindfensters. DieSuche nach dem Kindfenster beginnt dann nach dem Fenster, dessen Handle hier übergeben wird. Alternativ kann hier auch derWert "0" übergeben werden.
lpszClass	Erwartet einen Klassennamen, nach dem das Kindfenster ermittelt werden soll. Alternativ kann hier auch ein VBNullString-Zeichen übergeben werden, wenn nicht nach Klassennamen gesucht werden soll.
lpszWindow	Erwartet den Fenstertext eines Kindfensters, nach dem gesucht werden soll. Alternativ kann hier auch ein VBNullString-Zeichen übergeben werden, wenn nicht nach dieser Option gesucht werden soll.

Rückgabewert:
Ist die Funktion erfolgreich, so ist die Rückgabe das ermittelte Fensterhandle, andernfalls wird derWert "0" zurückgegeben. Für erweiterte Fehlerinformationen rufen Sie die GetLastError-Funktion auf.

Beispiel:

Private Declare Function FindWindow Lib "user32.dll" _
  Alias "FindWindowA"  ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" _
  Alias "FindWindowExA" ( _
  ByVal hwndParent As Long, _
  ByVal hwndChildAfter As Long, _
   ByVal lpszClass As String, _
  ByVal lpszWindow As String) As Long

' Das Fensterhandle des Startbuttons ermitteln
Private Sub Command1_Click()
  Dim hwnd As Long, WCls As WNDCLASSEX, PID As Long
 
  ' Taskleiste ermitteln
  hwnd = FindWindow("shell_traywnd", vbNullString)
 
  ' Startbutton ermitteln
  hwnd = FindWindowEx(hwnd, 0&, "button", vbNullString)
 
  Debug.Print "Fensterhandle des Startbuttons: " & CStr(hwnd)
End Sub