如何测试在 VB.net TabControl 中选择了哪个选项卡

Question

我有一个带有两个 TabPage 的 TabControl，我想知道测试当前显示哪个选项卡的最佳方法是什么？我不知道为什么我无法弄清楚这一点......

Answer 1

如果您使用 .Net 3.5，则可以根据需要创建 IsSelected 方法作为扩展方法：

Public Module TabControlExtensions
    <Extension()> _
    Public Function IsSelected(ByVal tabPage As TabPage) As Boolean
        Dim tabControl = CType(tabPage.Parent, TabControl)
        Return (tabControl.SelectedTab Is tabPage)
    End Function
End Module

Answer 2

假设这是一个 WPF 应用程序，请确保每个 TabItem 都有一个名称。

然后只需检查即可。

if tabItem1.IsSelected = true then
  ' Do Something 
else if tabItem2.IsSelected = true then
  ' Do Something 
end if 

Answer 3

试试这个..

这是在选择每个选项卡时如何修改
那么每个选项卡都会有一个功能

第一评分|第二评分|

Private Sub TabControlAction(ByVal sender As Object, ByVal e As System.EventArgs) Handles nameoftab.Click

        If nameoftab.SelectedTab.Text = "Second Grading" Then
            Msgbox("Second Grading is Selected")
''Place whatever your want

        Else
            Msgbox("First Grading is Selected")
''Place whatever your want
        End If

    End Sub

不过你可以使用if elseif else语句。

这个发现对我有用。

Answer 4

尝试使用 TabPages 集合编辑器为每个单独的选项卡设置“TAG”属性。将每个标签设置为代表 Tab 序列的数字（从 1 或 0 或任何适合的数字开始）

Private Sub TabControl1_Click(sender As Object, e As System.EventArgs) Handles TabControl1.Click

    Dim ActiveTabNumber as Integer = TabControl1.SelectedTab.Tag

End Sub

Answer 5

TabControl1_Click:
    If TabControl1.SelectedIndex = 0 Then
        ' Do Something       
    ElseIf TabControl1.SelectedIndex = 1 Then
        ' Do Something 
    End If
End Sub

Answer 6

我有一个名为 tcMode 的 TabControl，其中包含名为 tcmRelease 和 tcmSwitch 的成员/项目，并且以下内容对我来说效果很好，能够无忧地移动选项卡/重命名；

If tcMode.SelectedTab Is tcmRelease Then
      'Do Something if first tab selected
ElseIf tcMode.SelectedTab Is tcmSwitch Then
      'Do something if second tab selected
End If

选项卡控件成员的图像

Answer 7

还可以执行以下操作：

Dim TabName As String

TabName = YourTabControl.SelectedTab.Name

If TabName.Contains("YourTabName") Then
    ' Do something
End If

Answer 8

此代码将显示当前选定的选项卡名称

 Private Sub Tab_new1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Tab_new1.SelectedIndexChanged
        MsgBox(Tab_new1.SelectedTab.Name)
    End Sub

Answer 9

TabControl.SelectedTab

Answer 10

Private Sub TabControl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl.SelectedIndexChanged
    If TabControl.SelectedTab Is tabMyTab Then
        ' do whatever...
    End If
End Sub

Answer 11

使用该选项卡的“ENTER EVENT”
例如。

   Private Sub TabName_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabName.Enter
        MsgBox("me the tab selected")
         'or do whattever u like
    End Sub

Answer 12

TabControl.SelectedTab.

这是链接。