Cómo probar qué pestaña se selecciona en VB.net TabControl

Question

Tengo un TabControl con dos TabPages y me preguntaba cuál es la mejor manera de probar qué pestaña se muestra actualmente? No estoy seguro de por qué no puedo imaginar éste ...

Answer 1

TabControl.SelectedTab

Answer 2

Asumiendo que esto es una aplicación de WPF, asegúrese de que cada uno tiene un nombre TabItem.

Luego, solo es cuestión de comprobar.

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

Answer 3

TabControl.SelectedTab. 

Aquí es the link.

Answer 4

Si utiliza .Net 3.5, puede crear un método IsSelected como un método de extensión si lo desea:

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

también puede hacer lo siguiente:

Dim TabName As String 

TabName = YourTabControl.SelectedTab.Name 

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

Answer 7

uso que se pestaña "ENTER EVENT" por ej.

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

intenta esto ..

esta es la manera de modificar cada una de la pestaña cuando se selecciona entonces habrá una función de cada pestaña

del primer establecimiento de | Segunda Clasificación |

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 

que puede utilizar si elseif else sin embargo.

este hallazgo funciona para mí.

Answer 9

Intente establecer la propiedad "TAG" para cada pestaña individual utilizando el editor de colecciones TabPages. Ajuste cada etiqueta a un número que representa la secuencia de tabulación (a partir de 1 o 0 o lo que sea para adaptarse a)

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