如何实现mdi子窗体的交互

Question

就是在子窗体都打开的情况下,如何使需要的那个(任何一个)子窗体在最前面.
不知道我说清楚了没有,希望大家能明白.

Answer 1

    Dim a As Form
    For Each a In Forms
        If a.Caption = "Document 1" Then'把Document 1换成你需要的窗体名称
            a.ZOrder
        End If
    Next

Answer 2

我在主窗体上用toolbar,我想要的效果是不管子窗体是否打开,单击对应按钮后,都能显示在最前面,不需要关闭其他子窗体.

Answer 3

.showPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
            Form1.ZOrder
        Case 2
            Form2.ZOrder
    End Select
End Sub

Answer 4

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
            Form1.ZOrder
        Case 2
            Form2.ZOrder
    End Select
End Sub

Answer 5

哎,学艺不精呐我!可怜我为了这个zorder苦恼了n天.
多谢二位指点!