VB考试教程：利用ActiveX控件进行窗体的界面设计

一、利用ActiveX控件进行窗体的界面设计　

在VB的可视化的编程环境中，用户不必编写大量的代码，就可以利用VB提供的功能强大的大量控件设计出丰富的界面，这样一来可以使程序员从繁琐的代码编写任务中解脱出来，从而投入到更具有创造力和想象力的工作中去，设计出有个性，有特色、友好的界面。

下面是一个利用ActiveX控件来进行程序界面设计的示例，在这个示例程序中所用到的一些控件在程序的初始化阶段没有被加载，需在读者自己把它们添加到工具箱中。

1.启动一个新工程，向工具箱中添加ActiveX控件

启动一个新的标准Exe工程，然后选择菜单[工程]/[部件]，在d出的对话框中选择选中部件对话框中的Microsoft Table Dialog Control6.0,确认后返回设计状态，就会发现SSTab控件已经加入到工具箱中。

2.设置SSTab控件属性

SSTab控件的状态可以在程序中动态的修改，比如在窗体的设计阶段双击窗体，在窗体的Form_load（）事件中添加下列代码：

Private Sub Form_load（）

SSTab1.TabCaption(1)="选项1" '设置选项1上的文本。

SSTab1.TabVisible(2)=False '设置选项2上的可见状态为不可见。

SSTab1.TabEnabled(0)=False '设置选项0的有效状态为无效。

SSTab1.Tab=1 '设置选项1为选中的状态

SSTab1.Tabs=4 '添加一个选项

SSTab1.TabsPerRow = 4 '设置一行中出现的标签卡数为4

End Sub

3.向窗体上添加控件

设计一个用于算术运算的应用例子，先向窗体上添加一个CommandButton控件，两个TextBox控件，一个SSTab控件，四个ToggleButton控件、两个UpDown控件和四个Lable控件。

在部件对话框中选中 Micrsoft Forms 2.0 Object Liberary和Micrsoft Windows Common Controls_25.0(SP2),添加ToggleButton控件和UpDown控件到工具箱。

控件说明如下：

CommandButton 控件用来结束程序的运行，为程序的正常结束提供一个出口。

TextBox控件用来显示程序中的两个变量X和Y的值。

UpDown控件用来实现变量的更新。

ToggleButton控件用来实现不同的加减乘除运算。

Lable控件用来显示文本的运算结果。

SSTab控件用来显示不同的选项，同时作为ToggleButton控件的容器。

4.添加事件响应代码

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

SSTab1.TabCaption(0) = "加法"

SSTab1.TabCaption(1) = "减法"

SSTab1.TabCaption(2) = "乘法"

SSTab1.TabCaption(3) = "除法"

If Text1.Text = "" Then '在设计时，将窗体上的两个文本框的属性清空。

Text1.Text = "0.00000"

End If

If Text2.Text = "" Then

Text2.Text = "0.00000"

End If

End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)

ToggleButton1.Enabled = True

End Sub

Private Sub Text2_Change()

If Text2.Text = 0 Then

ToggleButton4.Enabled = False '如果Text2中的数字为0，除法无效。

Else

ToggleButton4.Enabled = True

End If

End Sub

Private Sub ToggleButton4_Click()

Label4.Caption = Val(Text1.Text) / Val(Text2.Text)

End Sub

Private Sub ToggleButton3_Click()

Label4.Caption = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub ToggleButton2_Click()

Label4.Caption = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub ToggleButton1_Click()

Label4.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub UpDown1_DownClick()

If Text1.Text >0 Then

Text1.Text = Val(Text1.Text) - 1

End If

End Sub

Private Sub UpDown1_UpClick()

If Text1.Text = "" Then

Text1.Text = 0

End If

Text1.Text = Val(Text1.Text) + 1

End Sub

Private Sub UpDown2_DownClick()

If Text2.Text >0 Then

Text2.Text = Val(Text2.Text) - 1

End If

End Sub

Private Sub UpDown2_UpClick()

If Text2.Text = "" Then

Text2.Text = 0

End If

Text2.Text = Val(Text2.Text) + 1

End Sub

SSTab 控件提供了一组选项卡，每个选项卡都可作为其它控件的容器。在控件中，同一时刻只有一个选项卡是活动的，这个选项卡向用户显示它本身所包含的控件而隐藏其它选项卡中的控件。

SSTab 控件就象笔记本中的分割线或一组文件夹上的标签一样。用 SSTab 控件，可以在应用程序中为某个窗口或对话框的相同区域定义多个页面。用这个控件的属性可以：

决定选项卡的数目。

把选项卡组织到多于一行中。

为每一个选项卡设置文本。

在每个选项卡上显示一幅图形。

决定所用选项卡的样式。

设置每个选项卡的大小。

为了使用这个控件，必须首先决定想怎样组织放置到不同选项卡中的控件。设置 Tabs 和 TabsPerRow 属性来创建选项卡，并把它们组织到各行中。然后在设计时通过单击每个选项卡来选择它。对每个选项卡，在用户选定该选项卡时希望显示控件，所以要将这些控件绘制出来。按照要求，设置Caption、Picture、TabHeight 和 TabMaxWidth 属性，由此定制选项卡的顶部。

在运行时，用户可按 CTRL+TAB 键或使用每个选项卡的标题中所定义的加速键在选项卡之间移动。

也可用 Style、ShowFocusRect、TabOrientation 和 WordWrap 属性定制整个 SSTab 控件。

发行注意 可在文件 TABCTL32.OCX 中找到 SSTab 控件。为在应用程序中使用 SSTab 控件，必须将该控件的 .OCX 文件添加到工程中。当发行应用程序时，把合适的 .OCX 文件安装到用户的 Microsoft Windows 的 System 或者 System32 子目录下。关于如何将附加控件添加到工程中去的详细信息，请参阅 Visual Basic《程序员指南》。

SSTab控件是ActiveX控件，使用前应在VB中选择＂工程＂→＂部件＂命令，打开＂部件＂对话框，在该对话框中选择＂Microsoft Tabbed Dialog Control 6.0(SP5)＂复选框。单击＂确定＂按钮，SSTab等控件将被添加到工具箱中，如下图：

---