8．1  概述

     这里的ActiveX控件是指VB标准工具箱里没有的控件，用时需从“工程”菜单里选择“部件…”（或右键单击工具箱，从快捷菜单中选择“部件…”），从部件窗口里勾上需要的控件。

常用ActiveX控件

8.1    多选项卡对话框——页框（TabStrip）

1.  设置页框的外观样式

　（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

[1] [2] [3] [4] [5] 下一页