视觉标签页

Question

大家好，我试图在每次单击按钮时动态创建标签页，所以问题是当我限制创建已经存在的标签页时，我尝试了 Controls.Find 方法并得到了 "Value of type 'Control()' cannot be converted to '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 returns 控件数组，不是布尔值。所以请执行以下操作：

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

编辑：

假设您正在尝试 select 或创建一个名为 "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

视觉标签页

Visual Tabpages

vb.net

visual-studio

tabpage