视觉标签页

Question

大家好，我每次点击按钮时都会尝试动态地创建标签页，所以问题是当我限制创建已经存在的标签时，我尝试了 Controls.Find 方法并得到“'Control( )' 无法转换为 '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