向标签页上的面板添加按钮 - 按钮显示在错误的面板上

Question

我已经使用我的 Foci 程序有一段时间了。它由一个 mock-ini 文件控制，该文件定义了标签页、按钮以及它们在单击时的作用。我可以通过编辑ini文件来改变一切。我决定对给定标签页上的按钮进行分组的最简单方法是将每个按钮放在面板上。所以今天早上我添加了由“With newPanel”定义的代码部分。其余代码已经正常工作。每个面板都足够大，可以在位于面板中心的按钮周围提供一个边界。面板的大小可以使它们相互接触，从而与其他相同颜色的按钮形成一个区域。

我的问题是给定标签页上的所有按钮都被添加到第一个面板中。所有按钮都出现了足够的面板，但除了第一个之外，它们都是空的。我对这种行为感到困惑。

以下是相关代码：

        newButton = New Button
        SelectATab(sTab)            'select correct tab...

        With newButton
            .Name = "btn" & sText.Replace(" ", [String].Empty)
            .Text = sText
            .Tag = sFullPath
            .BackColor = BC
            .ForeColor = FC
            .Location = NewLocation()
            .Width = Convert.ToInt32(oIni.ButtonWidth)
            .Height = Convert.ToInt32(oIni.ButtonHeight)
        End With

        Dim newPanel As New Panel

        With newPanel
            .Name = "pnl" & sTab & sText.Replace(" ", [String].Empty)
            .Text = sText
            .Tag = sFullPath
            .BackColor = Color.Black
            .Location = NewPanelLocation(newButton.Location)
            .Width = Convert.ToInt32(oIni.ButtonWidth + 20)
            .Height = Convert.ToInt32(oIni.ButtonHeight + 10)
        End With

        AddHandler newButton.Click, AddressOf MyEventHandler
        newPanel.Controls.Add(newButton)
        tabControl1.SelectedTab.Controls.Add(newPanel)

提前致谢。

Answer 1

我已经达到了我想要的效果。我现在将按钮和面板都直接添加到标签页中。之前，我将按钮添加到面板，然后将面板添加到标签页。我猜这些控件实际上并没有被添加到面板中。我认为他们这样做是错误的。