二级VB基础教程:8.2多选项卡对话框——页框（TabStrip）

1.设置页面框架的外观样式
(1)先在表单上绘制一个TabStrip对象；

(2)右键单击对象并从快捷菜单中选择属性；

(3)在TabStrip属性窗口中选择常规选项卡，在样式列表框中选择样式；

(4)在TabStrip属性窗口中选择Tabs选项卡，在Caption框中输入标题和关键字；

(5)如有必要，在工具提示文本框中输入提示信息；

(6)在TabStrip属性窗口中选择字体选项卡，设置标题的字体(可以直接使用默认值)。

2.增加或减少标签总数

在TabStrip属性窗口中选择选项卡标签，单击“插入选项卡”按钮添加标签，然后单击“删除选项卡”按钮删除标签。

3.在TabStrip上显示图形

1)将ImageList控件拖到表单中；

2)右键单击该对象，选择属性，打开属性页窗口；

3)选择图像标签，单击插入图片按钮，在选择图片对话框中选择要使用的位图或图标，然后单击打开按钮；对要添加图形的每个选项卡重复此步骤；

4)单击确定按钮，所需的图像将存储在ImageList中。

5)选择TabStrip，进入TabStrip属性窗口选择通用标签，选择ImageList1在图像列表框中；

6)选择标签，点击索引框旁边的向左或向右箭头，选择标签号。在图像框中输入一个数字。输入1以显示刚才ImageList控件中的第一个图形。输入2以显示刚才ImageList控件中的第二个图形。单击确定完成。

4.将其他控件放在TabStrip上

在表单上，就像添加普通控件一样，添加每个页面需要的控件。当有多个控件时，应该按帧分组。注意:除了第一页上的默认框架控件，所有其他框架的Visible属性都应设置为false。

5.设计规范

用户选择标签后，TabStrip需要编写代码来显示或隐藏控件。下面的代码可以用来识别用户点击了哪个项目。

private Sub tab strip 1 _ Click()
Select Case tab strip 1。SelectedItem.key
情况1

情况2

……
End Select
End Sub

示例:private sub strip 1 _ click()
select case tab strip 1 . selecteditem . key
case " statubar "
frame 2。Visible = False
Frame1。Visible = True
Case“工具栏”
Frame1。Visible = False
Frame2。visible = True
End Select
End Sub