How To Get MDI Child Window Handle

[Samy]

Hi,
I have an application running say "TestApp" which has two child windows opened say Window1 and Window2. Now I need to write a program, which can give me all the Opened Child Windows Handle Number and Its Window Title. How To do it. I tried using GetTopWindows(), EnumChildWindows(), FindWindowEx() functions. But I am Unsuccessful. I am able to get the Main application Title and Handle Number using the Findwindow() Function. Can any one help me...Thanks in Advance...

[Megatron]

Use EnumChildWindows. Here is the simplest form:

Add to a Module

Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Debug.Print hwnd
End Function

Usage:

EnumChildWindows hwnd, AddressOf EnumChildProc, 0

[Chris]

How abt the FindWindowEx API?

[Megatron]

No, FindWindowEx will get the first child window, then you need to use GetWindow to retrieve the other windows.

[Chris]

Thanks, Meg

[Megatron]

Sorry, it should be GetNextWindow (It's even simpler than GetWindow).

[Megatron]

Here's a simple example.

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long

Private Sub Command1_Click()

    Dim hChild As Long
    
    hChild = FindWindowEx(Me.hwnd, 0, vbNullString, vbNullString)
    Do While hChild <> 0
        DoEvents
        Debug.Print hChild
        hChild = GetNextWindow(hChild, 2)
    Loop
    
End Sub

[Serge]

Actually you can just use FindWindowEx to loop through all children. Here is an example:

    Dim lngHWnd As Long
    
    lngHWnd = FindWindowEx(Form1.hWnd, 0, vbNullString, vbNullString)
    
    Do Until lngHWnd = 0
        Debug.Print lngHWnd
        lngHWnd = FindWindowEx(Form1.hWnd, lngHWnd, vbNullString, vbNullString)
    Loop

Notice second parameter? This will tell function to look for the next child window after the hWnd passed as a second parameter.

[Chris]

Surge