Как проверить, какая вкладка выбрана в VB.net TabControl

Question

У меня есть TabControl с двумя вкладками, и мне было интересно, что лучше всего проверить, какая вкладка отображается в настоящее время? Я не знаю, почему я не могу понять это ...

Answer 1

TabControl.SelectedTab

Answer 2

Предполагая, что это приложение WPF, убедитесь, что каждый TabItem имеет имя.

Тогда это всего лишь вопрос проверки.

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

Answer 3

TabControl.SelectedTab. 

Вот the link.

Answer 4

Если вы используете .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 5

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 6

Можно также сделать следующее:

Dim TabName As String 

TabName = YourTabControl.SelectedTab.Name 

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

Answer 7

использовать что вкладка «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 8

Попробуйте это ..

это как модифицировать каждый из вкладки при выборе тогда будет функция каждой вкладки

Первый Градация | Второй Градация |

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 

Вы можете использовать, если ELSEIF другое заявление, хотя.

этот поиск работает для меня.

Answer 9

Попробуйте установить пропежут «TAG» для каждой отдельной вкладки, используя редактор коллекций TabPages. Установите для каждого тега число, представляющее последовательность 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 10

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