FormMain主窗体

Imports System.Data                                                                                      '  主窗体
Imports System.Data.SqlClient
Public Class FrmMain

    Private Sub 商品管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 商品管理ToolStripMenuItem.Click
        Dim f As Form
        f = Me.GetMdiChildForm("商品管理")
        If f Is Nothing Then
            f = New FrmMerch
            f.MdiParent = Me
            f.Show()
        End If
    End Sub
    Private Function GetMdiChildForm(ByVal Title As String) As Form
        Dim f As Form = Nothing
        Dim i As Integer
        For i = 0 To Me.MdiChildren.Length - 1
            If Me.MdiChildren(i).Text = Title Then
                f = Me.MdiChildren(i)
            End If
        Next
        Return f
    End Function

 

    P