VB.NET 父窗口内子窗口运用

当前位置:

首页 > VB.net教程 >

VB.NET 父窗口内子窗口运用

'**************************************************

'*过程名称：ShowForm

'*参数说明：MDIChildForm ——需创建实例的窗体

'*功能说明：创建窗体实例

'**************************************************

Private Sub ShowForm(ByVal MDIChildForm As Form)

Dim MDIChildFrm As Form = MDIChildForm

MDIChildFrm.MdiParent = Me ' 定义MDI子窗体

MDIChildFrm.Show() '打开窗体

End Sub

'********************************************************************************

'*过程名称：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

If frmyn = False Then

'在打开的窗体中没检测到则新建

ShowForm(MDIChildForm)

Else

'在打开的窗体中检测到则激活

Dim MDIChildFrm As Form = CType(Me.MdiChildren(x), Form)

MDIChildFrm.Activate() '使子窗体激活

End If

End Sub

Private Sub 测试窗口1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 测试窗口1ToolStripMenuItem.Click

Dim frmtest1 As New FormTEST1

CheckForm(frmtest1, "FormTEST1")

End Sub

————————————————

原文链接：https://blog.csdn.net/zz46123838/article/details/107008560

栏目列表