2024年4月2日发(作者：湛圣杰)
Excel VBA编程 TabStrip
TabStrip控件的外观与多页控件很相似，但它们的作用时不同的。TabStrip控件允许使
用相同的控件来显示多套相同的数据。例如，可用一组控件显示工作组中各个成员的日程安
排，控件组所显示的不同信息集合对应小组中不同的人。通过编写代码实现如下功能：在单
击标签时更新控件组，以显示该标签的相关信息。
TabStrip控件包含由一个或多个标签组成的集合。每一个标签都是一个可选择的单独的
对象。TabStrip还包含有一个客户区，客户区由TabStrip中的所有标签共享。默认情况下，
一个TabStrip包含两个页面，称作Tab1和Tab2，其中的每个页面为一个Tab对象。合在一
起表示为TabStrip的Tabs集合。
其中，TabStrip的常用属性有以下几种
Style属性
用于设置TabStrip控件中标签的显示风格。其属性值如表13-15所示。
表13-15 Style属性值
常量
fmTabStyleTabs
fmTabStyleButtons
fmTabStyleNone
属性值
0
1
2
说明
在标签条中显示标签（默认）。
在标签条中显示按钮。
不显示标签。
SelectedItem属性
返回当前选中的TabStrip控件对象。
TabOrientation属性
指定TabStrip控件上标签的位置。其属性值如表13-16所示。
表13-16 TabOrientation属性值
常量
fmTabOrientationTop
fmTabOrientationBottom
fmTabOrientationLeft
fmTabOrientationRight
属性值
0
1
2
3
说明
标签显示于控件顶部（默认值）。
标签显示于控件底部。
标签显示于控件左边。
标签显示于控件右边。
例如，利用旋转按钮控制TabStirp，如图所示。
图 TabStirp控件
Private Sub SpinButton1_SpinDown()
= 0
End Sub
Private Sub SpinButton1_SpinUp()
= 1
End Sub
Enter、Error等事件。
提 示
TabStrip的方法有Move和SetFocus方法，常用事件有Change、Click、DblClick、
2024年4月2日发(作者：湛圣杰)
Excel VBA编程 TabStrip
TabStrip控件的外观与多页控件很相似，但它们的作用时不同的。TabStrip控件允许使
用相同的控件来显示多套相同的数据。例如，可用一组控件显示工作组中各个成员的日程安
排，控件组所显示的不同信息集合对应小组中不同的人。通过编写代码实现如下功能：在单
击标签时更新控件组，以显示该标签的相关信息。
TabStrip控件包含由一个或多个标签组成的集合。每一个标签都是一个可选择的单独的
对象。TabStrip还包含有一个客户区，客户区由TabStrip中的所有标签共享。默认情况下，
一个TabStrip包含两个页面，称作Tab1和Tab2，其中的每个页面为一个Tab对象。合在一
起表示为TabStrip的Tabs集合。
其中，TabStrip的常用属性有以下几种
Style属性
用于设置TabStrip控件中标签的显示风格。其属性值如表13-15所示。
表13-15 Style属性值
常量
fmTabStyleTabs
fmTabStyleButtons
fmTabStyleNone
属性值
0
1
2
说明
在标签条中显示标签（默认）。
在标签条中显示按钮。
不显示标签。
SelectedItem属性
返回当前选中的TabStrip控件对象。
TabOrientation属性
指定TabStrip控件上标签的位置。其属性值如表13-16所示。
表13-16 TabOrientation属性值
常量
fmTabOrientationTop
fmTabOrientationBottom
fmTabOrientationLeft
fmTabOrientationRight
属性值
0
1
2
3
说明
标签显示于控件顶部（默认值）。
标签显示于控件底部。
标签显示于控件左边。
标签显示于控件右边。
例如，利用旋转按钮控制TabStirp，如图所示。
图 TabStirp控件
Private Sub SpinButton1_SpinDown()
= 0
End Sub
Private Sub SpinButton1_SpinUp()
= 1
End Sub
Enter、Error等事件。
提 示
TabStrip的方法有Move和SetFocus方法，常用事件有Change、Click、DblClick、