如何在vb的mdi窗口里获得子窗口的列表，在线等！

[shaolongli]

如何在vb的mdi窗口里获得子窗口的列表？

[clear_zero]

没明白你的意思。你是要获得所有child 窗体的列表？
再menu里面，有个选项是windowlist
你建立一个menu，然后选定windowlist，然后你打开多个子窗体，然后看看menu中就知道了

不知道是不你想要得

[tztz520]

想获得当前的子窗体有多少吧.


Private Sub aa_Click()
On Error Resume Next
Dim frm As Form
For Each frm In Forms
If IsMDIChild(frm) Then
MsgBox "MDI子窗体:" & frm.Name
End If
Next

End Sub

Private Function IsMDIChild(frm As Form) As Boolean
On Error GoTo ErrorHandle
IsMDIChild = frm.MDIChild
Exit Function
ErrorHandle:
End Function