''''*****************************************************************************
''''*过程名称：CheckForm ''''*参数说明：MDIChildForm——需检测的窗体；MDIChildFormName ——检测窗体的名字 ''''*功能说明：首先检测是否有MDI子窗体，如果没有，则创该MDI子窗体的窗体实例 ''''* 如果有，则检测当中有没有其窗体实例，有则激活；没有则创建其窗体实例 ''''***************************************************************************** Private Sub CheckForm(ByVal MDIChildForm As Form, ByVal MDIChildFormName As String) If Me.MdiChildren.Length < 1 Then ''''如果没有任何一个MDI子窗体，则创该MDI子窗体的窗体实例 ShowForm(MDIChildForm ) Exit Sub Else Dim x As Integer Dim frmyn As Boolean For x = 0 To (Me.MdiChildren.Length) - 1 Dim tempChild As Form = CType(Me.MdiChildren(x), Form) If tempChild.Name = MDIChildFormName Then frmyn = True ''''检测到有该MDI子窗体，设为TRUE 并退出循环 Exit For Else frmyn = False End If Next If frmyn = False Then ''''在打开的窗体中没检测到则新建 ShowForm(tempForm) Else ''''在打开的窗体中检测到则激活 Dim MDIChildFrm As Form = CType(Me.MdiChildren(x), Form) MDIChildFrm .Activate() End If End If End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
