Cách kiểm tra tab nào được chọn trong VB.net TabControl

Question

Tôi có TabControl với hai TabPages và tôi đã tự hỏi cách tốt nhất để kiểm tra tab nào hiện đang hiển thị? Tôi không chắc chắn lý do tại sao tôi không thể hình này ra ...

Answer 1

TabControl.SelectedTab

Answer 2

Giả sử đây là một ứng dụng WPF, đảm bảo rằng mỗi TabItem có một Name.

Sau đó, đó chỉ là vấn đề kiểm tra.

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

Answer 3

TabControl.SelectedTab. 

Dưới đây là the link.

Answer 4

Nếu bạn sử dụng Net 3.5, bạn có thể tạo ra một phương pháp IsSelected như một phương pháp mở rộng nếu bạn muốn:

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

cũng có thể làm như sau:

Dim TabName As String 

TabName = YourTabControl.SelectedTab.Name 

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

Answer 7

sử dụng mà của tab "ENTER EVENT" ví dụ:

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

Hãy thử này ..

đây là làm thế nào để sửa đổi mỗi tab khi chọn sau đó sẽ có một chức năng của mỗi tab

Đầu tiên chấm điểm | Second Grading |

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 

Bạn có thể sử dụng nếu có tuyên bố khác mặc dù.

tìm kiếm này phù hợp với tôi.

Answer 9

Thử đặt nguyên tắc "TAG" cho mỗi tab riêng lẻ bằng cách sử dụng trình chỉnh sửa bộ sưu tập TabPages. Đặt mỗi thẻ để một số đại diện cho chuỗi Tab (bắt đầu lúc 1 hoặc 0 hoặc bất cứ điều gì cho phù hợp)

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