vb.net控件分层不正常

Question

我只想在表单中添加三个控件。前两个出现，但第三个没出现。我不明白为什么会发生这种情况。我尝试过使用.bringToFront（），但最终得到了相同的结果。我也尝试过使用Me.controls.setChildIndex（），但这也无济于事。

我不知所措。我一定做错了什么。请帮忙。

感谢。

这是我的代码：

' Add the label
' ------------------
  Dim menu_label As New Label
  menu_label.Text = "Menu"
  menu_label.Location = New Point(50, 20)
  menu_label.Width = 50
  menu_label.Font = New Font(main_font, main_font_size, FontStyle.Regular)
  menu_label.ForeColor = Color.White
  Me.Controls.Add(menu_label)

' create the image
' ---------------
  Dim logo As New PictureBox
  Dim logo_image As Image
  logo_image = My.Resources.logo
  logo.Image = logo_image
  logo.Width = 30
  logo.Height = 30
  logo.Left = 5
  logo.Top = 0
  Me.Controls.Add(logo)

' add a line
' ----------
  Dim line As New Panel
  line.Height = 1
  line.Width = Me.Width
  line.BackColor = Color.Red
  line.Location = New Point(0, 32)
  Me.Controls.Add(line)


' end code
' ---------------------------------

无论我将它们放入哪个顺序，只显示前两个项目。所以我要么只获得徽标和菜单标签，要么只获得徽标和行，或者只是行和菜单标签。这太棒了！

所以我试过了：

Me.Controls.SetChildIndex(logo, 0)
Me.Controls.SetChildIndex(menu_label, 1)
Me.Controls.SetChildIndex(line, 2)

无论哪个项目分配到第2级都不会出现。

Answer 1

我也经过测试，它对我来说很好。将表单背景颜色更改为黑色，以便更好地查看结果：

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    ' Add the label
    ' ------------------
    Dim menu_label As New Label
    menu_label.Text = "Menu"
    menu_label.Location = New Point(50, 20)
    menu_label.Width = 50
    'menu_label.Font = New Font(main_font, main_font_size, FontStyle.Regular)
    menu_label.ForeColor = Color.White
    Me.Controls.Add(menu_label)

    ' create the image
    ' ---------------
    Dim logo As New PictureBox
    Dim logo_image As Image
    'logo_image = My.Resources.logo
    'logo.Image = logo_image
    logo.BackColor = Color.Yellow
    logo.Width = 30
    logo.Height = 30
    logo.Left = 5
    logo.Top = 0
    Me.Controls.Add(logo)

    ' add a line
    ' ----------
    Dim line As New Panel
    line.Height = 1
    line.Width = Me.Width
    line.BackColor = Color.Red
    line.Location = New Point(0, 32)
    Me.Controls.Add(line)

    Me.BackColor = Color.Black
End Sub

您的表单还有什么？也许你可以发布截图？