VB.net TabControl

Question

'da hangi sekmenin seçili olduğu test edilir TabTages iki TabPage'im var ve şu anda hangi sekmenin görüntülendiğini test etmenin en iyi yolunun ne olduğunu merak ediyordum? Ben bunu anlayamıyorum neden bu bir WPF uygulaması varsayarsak

Answer 1

TabControl.SelectedTab

Answer 2

, her TabItem bir adı olduğundan emin olun ... emin değilim.

O zaman sadece bir kontrol meselesi.

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

Answer 3

TabControl.SelectedTab. 

İşte the link bu. Eğer .NET 3.5 kullanıyorsanız dilerseniz

Answer 4

, bir uzantı yöntemi olarak IsSelected yöntemi oluşturabilirsiniz:

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

ayrıca aşağıdaki yapabilir:

Dim TabName As String 

TabName = YourTabControl.SelectedTab.Name 

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

Answer 7

kullanımını o sekmenin "GÜNCEL OLMASI" örn. İkinci Not Verme |

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

bu sonra her sekmede

Birinci Not Verme bir fonksiyonu olacaktır seçildiğinde sekmenin her nasıl değiştirileceğini olan

.. Bu deneyin |

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 

Gerçi eğer elseif başka deyimi kullanabilirsiniz. Bu bulmacanın benim için çalıştığı

.

Answer 9

TabPages koleksiyonu düzenleyicisini kullanarak her bir sekme için "TAG" parçacığını ayarlamayı deneyin. Sekme sırasını temsil eden bir sayıya her bir etiketi ayarlayın

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