Ecel VBA编程 TabStrip分析和总结.docxVIP

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() Private Sub SpinButton1_SpinDown() Me.TabStrip1.Value = 0 End Sub Private Sub SpinButton1_SpinUp() Me.TabStrip1.Value = 1 End Sub 提 提 示 TabStrip 的方法有 Move 和 SetFocus 方法，常用事件有 Change、Click、DblClick、 Enter、Error 等事件。