C# と VB.NET の質問掲示板

ちなみに



            For Each c As Form In form0.MdiChildren

                With c
                        writer.WriteLine(.Name & ":" & vbTab & String.Format("{0},{1},{2},{3},{4}", CInt(.WindowState), .Bounds.X, .Bounds.Y, .Bounds.Width, .Bounds.Height))
                End With

            Next c



こういうコードで、位置などは取得しています。
Zオーダーもこれと同じように取得できますでしょうか？

■No96047 (雀 さん) に返信
> ウインドウの位置に関してはどの変数を使えば良いか分かるのですが
> 表示順番に関してどのパラメータを使えば良いでしょうか？

こんな感じで並びを調べるしか方法がなさそうです。

Imports System.Runtime.InteropServices

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function GetWindow(ByVal hWnd As IntPtr, ByVal uCmd As GetWindowType) As IntPtr
End Function

Private Enum GetWindowType As UInteger
    GW_HWNDFIRST = 0
    GW_HWNDLAST = 1
    GW_HWNDNEXT = 2
    GW_HWNDPREV = 3
    GW_OWNER = 4
    GW_CHILD = 5
    GW_ENABLEDPOPUP = 6
End Enum

Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
    If Me.MdiChildren.Count > 0 Then
        Debug.Print("--START--")
        Dim childHwnd As IntPtr = GetWindow(Me.MdiChildren(0).Handle, GetWindowType.GW_HWNDFIRST)
        While childHwnd <> IntPtr.Zero
            Dim f As Form = Control.FromHandle(childHwnd)
            Debug.Print(f.Text)
            childHwnd = GetWindow(childHwnd, GetWindowType.GW_HWNDNEXT)
        End While
    End If
End Sub