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

二级VB基础教程:8.2多选项卡对话框——页框（TabStrip）（1） 先在窗体上画出一个TabStrip对象； 　（2） 右击该对象，从快捷菜单中选择“属性”； 　（3） 在TabStrip属性窗口里选择通用（General）标签，在样式（Style）列表框里选择样式； 　（4） 在TabStrip属性窗口里选择选项卡（Tabs）标签，在标题（Caption）框里输入标题和关键字； 　（5） 假如需要的话，在工具提示文本（ToolTipText）框里输入提示信息； 　（6） 在TabStrip属性窗口里选择字体（Font）标签，设置标题的字体（可以直接采纳默认值） 2．增减标签总数 　在TabStrip属性窗口里选择选项卡标签，单击插入选项卡按钮增加标签，单击删除选项卡按钮删除标签 3．在TabStrip上显示图形 1) 在窗体里拖入一个图象列表（ImageList）控件； 2) 在此对象上右击，选择属性，翻开属性页窗口； 3) 选择图象标签， 单击插入图片按钮，在选定图片对话框里选择想使用的位图或图标，然后单击翻开按钮；为每个想添加图形的选项卡重复此步； 4) 单击确定按钮， ImageList里就存储了需要的图片。

5) 选择TabStrip， 进入TabStrip属性窗口并选择通用标签，在图象列表框里选择ImageList1； 6) 选择选项卡标签，单击紧挨索引框的向左或向右箭头以选择一个Tab序号在图象框里输入一个数，输入为1，则显示刚刚ImageList控件里的第一个图形，输入为2，则显示刚刚ImageList控件里的其次个图形，单击确定按钮完成 4．在TabStrip上放置其它控件 　在窗体上象添加一般控件一样，把每一页需要的控件添上，控件不止一个时，应当用Frame来分组，留意：除了默认的第一页上的Frame控件外，其他全部Frame的Visible属性都应当设为假 5．设计代码 在用户选择了标签后，TabStrip要求编写代码来显示或隐蔽控件可用类似下面的代码来识别用户在哪一个工程上单击 Private Sub TabStrip1_Click() 　　　　Select Case TabStrip1.SelectedItem.key　　　　　 　　Case 1　　　　　　　　　　　　　　　　 　　Case 2　　　　　　　　　　　　　　　　　　　　　　 ……　　　　End Select　 End Sub 例： Private Sub TabStrip1_Click() 　　　　　　　 Select Case TabStrip1.SelectedItem.Key　　　　　　　　　　　 Case “statubar“　　　　　　　　　　　　　　　　　　 Frame2.Visible = False　　　　　　　　　　　　　　　　　　 Frame1.Visible = True　　　　　　　　　　　 Case “toolbar“　　　　　　　　　　　　　　　　　　 Frame1.Visible = False　　　　 　　　　　　　　　　　　　　Frame2.Visible = True　　　　 　　　End Select　　　　 End Sub 。