DevExpress WinForm TabFormControl：按按钮打开窗体时选中对应标签页

嘿，这个需求其实很好实现，咱们可以用两种简单的方式来搞定——要么给frmImport加个带参数的构造函数，要么在窗体里暴露一个公共属性/方法来设置选中的标签页。我给你详细拆解下两种方案：

方案一：添加带参数的构造函数 #

这种方式比较直观，在打开frmImport时直接把要选中的标签页索引传给窗体，让窗体自己完成选中操作。

第一步：修改frmImport窗体代码 #

在frmImport类里添加一个重载的构造函数，接收标签页索引参数，然后初始化时设置选中的标签页：

Public Class frmImport
    ' 重载构造函数：接收要选中的标签页索引
    Public Sub New(selectedTabIndex As Integer)
        ' 必须先调用默认构造函数初始化所有控件
        Me.New()
        
        ' 检查索引是否合法，避免越界错误
        If selectedTabIndex >= 0 AndAlso selectedTabIndex < Me.TabFormControl1.Pages.Count Then
            ' 方式1：通过SelectedIndex设置
            Me.TabFormControl1.SelectedIndex = selectedTabIndex
            ' 方式2：直接指定SelectedPage（效果和上面一样）
            ' Me.TabFormControl1.SelectedPage = Me.TabFormControl1.Pages(selectedTabIndex)
        End If
    End Sub

    ' 保留默认的无参构造函数（设计器必须用到，不能删）
    Public Sub New()
        InitializeComponent()
    End Sub
End Class

第二步：修改主窗体按钮事件 #

在每个按钮的点击事件里，调用带参数的构造函数，传入对应标签页的索引（注意：DevExpress控件的集合默认是0起始索引，第一个标签页是0，第二个是1，第三个是2）：

Private Sub Button1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles Button1.ItemClick
    ' 打开时选中第一个标签页
    Dim F As New frmImport(0)
    F.ShowDialog()
End Sub

Private Sub Button2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles Button2.ItemClick
    ' 打开时选中第二个标签页
    Dim F As New frmImport(1)
    F.ShowDialog()
End Sub

Private Sub Button3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles Button3.ItemClick
    ' 打开时选中第三个标签页
    Dim F As New frmImport(2)
    F.ShowDialog()
End Sub

方案二：添加公共属性/方法 #

如果不想修改构造函数，也可以在frmImport里暴露一个公共属性或方法，让主窗体在打开前设置选中的标签页。

第一步：修改frmImport窗体代码 #

添加一个公共属性（或方法）来控制标签页选中状态：

Public Class frmImport
    ' 公共属性：用于设置/获取选中的标签页索引
    Public Property SelectedTabIndex As Integer
        Get
            Return Me.TabFormControl1.SelectedIndex
        End Get
        Set(value As Integer)
            ' 合法性检查
            If value >= 0 AndAlso value < Me.TabFormControl1.Pages.Count Then
                Me.TabFormControl1.SelectedIndex = value
            End If
        End Set
    End Property

    ' 或者用公共方法实现（效果一样，看你偏好）
    ' Public Sub SetSelectedTab(tabIndex As Integer)
    '     If tabIndex >= 0 AndAlso tabIndex < Me.TabFormControl1.Pages.Count Then
    '         Me.TabFormControl1.SelectedPage = Me.TabFormControl1.Pages(tabIndex)
    '     End If
    ' End Sub
End Class

第二步：修改主窗体按钮事件 #

在打开窗体后，通过公共属性（或方法）设置选中的标签页：

Private Sub Button1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles Button1.ItemClick
    Dim F As New frmImport()
    ' 设置选中第一个标签页
    F.SelectedTabIndex = 0
    ' 如果用方法的话：F.SetSelectedTab(0)
    F.ShowDialog()
End Sub

Private Sub Button2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles Button2.ItemClick
    Dim F As New frmImport()
    F.SelectedTabIndex = 1
    F.ShowDialog()
End Sub

Private Sub Button3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles Button3.ItemClick
    Dim F As New frmImport()
    F.SelectedTabIndex = 2
    F.ShowDialog()
End Sub

注意事项 #

• 确认TabFormControl的标签页索引：DevExpress的Pages集合默认是0起始，如果你的标签页在设计器里的顺序是1、2、3，那对应的索引就是0、1、2。如果不确定，可以在调试时查看TabFormControl1.Pages的元素来确认。
• 一定要加合法性检查，避免传入超出范围的索引导致运行时错误。

内容的提问来源于stack exchange，提问作者Stefan Meyer