打开标签控件

Question

我正在使用MDI container 运行我为客户创建的业务应用程序。 因为使用MDI 意味着当我打开几个表单时，它们仍然会一直在后台运行，直到我手动关闭它们。

我需要制作User Control 或任何其他可以在选项卡表单中预览所有打开的表单的东西，这样我的客户就可以轻松关闭所有或部分打开的表单，而无需关闭他正在查看的表单。

现在我已经使用了这个代码，所以现在只有第一次点击的菜单项显示为按钮，而不是其他人点击的菜单项。

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
    Dim Button As New Button
    Me.Panel5.Controls.Add(Button)
    Button.Text = e.ClickedItem.Name
    Button.Width = 50
    Button.Height = 25
End Sub

现在我需要编写一个代码来添加更多按钮，也应该添加一个代码用于仅当我单击 SubMenu 项时添加按钮（单击时出现新表单）。
而且，我现在应该在预览的 User-Button-Control 中添加一个小 Close 按钮。

Answer 1

从您的 cmets 中，我了解到您关于在运行时添加按钮的想法并不太清楚，因此我提供了一个小代码，希望能在这方面对您有所帮助。新建一个项目，在上面放一个Panel（Panel5）和一个Button（AddButtons），写下这段代码：

Dim lastButtonIndex, lastLeft, lastTop As Integer

Private Sub Button_Click(sender As System.Object, e As System.EventArgs)

    Dim curButton As Button = DirectCast(sender, Button)

    If (curButton.Name = "Button1") Then
        'do Button1 stuff
    End If
    'etc.

End Sub

Private Sub addNewButton()

    lastButtonIndex = lastButtonIndex + 1
    lastLeft = lastLeft + 5
    lastTop = lastTop + 5

    Dim Button As New Button
    With Button
        .Name = "Button" + lastButtonIndex.ToString()
        .Text = "Button" + lastButtonIndex.ToString()
        .Width = 50
        .Height = 25
        .Left = lastLeft
        .Top = lastTop
        AddHandler .Click, AddressOf Button_Click
    End With

    Me.Panel5.Controls.Add(Button)

End Sub

Private Sub ButtonAddButtons_Click(sender As System.Object, e As System.EventArgs) Handles AddButtons.Click
    addNewButton()
End Sub

每次单击AddButtons 时，此代码都会在面板中添加一个新按钮。所有按钮都将有一个关联的Click Event（所有按钮都相同）：Button_Click。在这个方法中知道哪个按钮是当前按钮的方法是通过sender，如代码所示（你可以放置与按钮一样多的条件。名称从1开始顺序给出；但你可以取任何其他属性作为参考，curButton 是给定的Button Control）。

请记住，您必须注意的问题之一是按钮的位置。上面的代码有一个非常简单的 X/Y 值（Left/Top 属性）自动增加，从逻辑上讲，它不会提供你想要的。