如何在模块中获取TabControl1当前点击的选项卡 VB.NET

在VB.NET中，要在模块中获取TabControl1当前选中的选项卡，你可以通过TabControl的SelectedIndex属性来实现。这个属性返回的是当前选中选项卡的索引值，从0开始。

以下是步骤：

1. 首先，在模块文件（如Module1.vb或MyModule.vb）中，添加一个全局变量来存储TabControl1的引用，假设你的TabControl名为"TabControl1":

Public Shared Dim tabControl1 As TabControl

2. 初始化TabControl1时，设置这个全局变量:

Private Sub InitializeTabControl()
    ' 在窗体加载或其他适当的地方
    If Not Me.TabControl1 Is Nothing Then
        tabControl1 = Me.TabControl1 ' 如果TabControl1是在Form上声明的
    ElseIf Me.IsType(Of Form) AndAlso MyBase.Controls.ContainsKey("TabControl1") Then
        tabControl1 = DirectCast(Me.TabControl1, TabControl) ' 如果TabControl1是控件数组的一部分
    End If
End Sub

3. 当需要获取选中选项卡时，调用`.tabControl1.SelectedIndex`:

Public Function GetCurrentTabPage() As TabPage
    InitializeTabControl()
    If tabControl1 IsNot Nothing Then
        Return tabControl1.TabPages(tabControl1.SelectedIndex)
    Else
        Throw New Exception("TabControl1未找到")
    End If
End Function

现在，你可以通过`GetCurrentTabPage()`函数获取TabControl1当前选中的选项卡。例如：

Dim tabPage As TabPage = GetCurrentTabPage()
Console.WriteLine("当前选中页名为：" & tabPage.Text)