MDI窗体方式打开（仅打开一次）（VB.NET)

最新推荐文章于 2020-09-18 20:41:15 发布

huanghai231

最新推荐文章于 2020-09-18 20:41:15 发布

阅读量334

点赞数

分类专栏： VB.NET 文章标签： vb6 程序人生其他

本文链接：https://blog.youkuaiyun.com/huanghai231/article/details/104131624

版权

VB.NET 专栏收录该内容

6 篇文章

订阅专栏

本文分享了在VB.NET中使用MDI窗体的管理技巧，包括如何检查并激活已存在的MDI子窗体，以及当子窗体不存在时如何创建并显示新的MDI子窗体。通过提供的代码示例，读者可以学习到如何实现窗体的唯一实例，并掌握最大化显示子窗体的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

MDI窗体方式打开（仅打开一次）（VB.NET)

学习心得

    Function MDIFrmActive(MdiFrmName As String) As Boolean
        For Each fr As Form In Me.MdiChildren
            If fr.Name = MdiFrmName Then
                fr.Activate()
                fr.WindowState = FormWindowState.Maximized
                MDIFrmActive = True
                Exit Function
            End If
        Next
        MDIFrmActive = False
    End Function
    
    Private Sub TsmXXWH_TblYGXX_Click(sender As Object, e As EventArgs) Handles TsmXXWH_TblYGXX.Click
        If MDIFrmActive("TblYGXX") = True Then Exit Sub
        Dim tblYgXX As New TblYGXX
        tblYgXX.MdiParent = Me
        tblYgXX.WindowState = FormWindowState.Maximized
        tblYgXX.Show()
    End Sub