Visual Tabpages

Question

Hellos伙计们，每当我点击一个按钮时，我都试图通过dinamically创建tabpages，所以问题是当我限制已经存在的选项卡的创建时，我尝试了Controls.Find方法并得到了“类型'控件的值（ ）''无法转换为'Boolean'“...这是我在Visual Studio 2015中的代码。我将感谢任何帮助或其他方法。

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim myTabPage As New TabPage()
    TabControl1.Visible = True

    If myTabPage.Controls.Find("Pedido", True) Then

        TabControl1.SelectedTab = myTabPage

    Else

        Form1.TopLevel = False
        myTabPage.Text = "Pedido" 
        TabControl1.TabPages.Add(myTabPage)
        myTabPage.Controls.Add(Form1)
        TabControl1.SelectedTab = myTabPage
        Form1.Show()
    End If

End Sub

Answer 1

Controls.Find返回一个控件数组，而不是布尔值。请执行以下操作：

If myTabPage.Controls.Find("Pedido", True).Length > 0 Then

修改

假设您正在尝试选择或创建名为“Pedido”的选项卡（并清除部分代码以获得清晰度），请尝试以下操作：

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      TabControl1.Visible = True

      Dim c = TabControl1.Controls.Find("Pedido", True)

      If c.Length > 0 Then
         TabControl1.SelectedTab = CType(c(0), TabPage)
      Else
         Dim myTabPage As New TabPage()
         myTabPage.Text = "Pedido"
         myTabPage.Name = "Pedido"
         TabControl1.TabPages.Add(myTabPage)
         TabControl1.SelectedTab = myTabPage
      End If
   End Sub