Rubrik: Fenster | 22.03.05 |
FindWindowEx-Funktion Diese Funktion sucht nach dem Handle eines Kindfensters. | ||
Betriebssystem: Win95, Win98, WinNT 4.0, Win2000, WinME | Views: 30.098 |
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