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

首先，使用ActiveX控件设计表单的界面。

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

下面是一个使用ActiveX控件设计程序界面的例子。本示例程序中使用的一些控件在程序的初始阶段没有加载，因此读者应该自己将它们添加到工具箱中。

1.启动一个新项目并将ActiveX控件添加到工具箱中。

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

2.设置SSTab控件属性

SSTab控件的状态可以在程序中动态修改。例如，在窗体的设计阶段双击窗体，并在窗体的Form_load()事件中添加以下代码:

私有子窗体_load()

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

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

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

SSTab1。Tab=1 '将选项1设置为选中状态

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

SSTab1。TabsPerRow = 4 '将一行中出现的标记卡数量设置为4。

末端接头

3.向窗体添加控件

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

在部件对话框中选择Micrsoft Forms 2.0 Object Liberary和micr soft windows common controls _ 25.0(SP2)，在工具箱中添加ToggleButton控件和UpDown控件。

控件描述如下:

命令控制用于结束程序的运行，为程序的正常结束提供一个出口。

TextBox控件用于显示程序中两个变量x和y的值。

UpDown控件用于更新变量。

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

Lable控件用于显示文本的操作结果。

SSTab控件用于显示不同的选项，也用作ToggleButton控件的容器。

4.添加事件响应代码

Private Sub命令1_Click()
End
End Sub

private form _ load()
sstab1 . tab caption(0)= "加法"
sstab 1。tab caption(1)= " subtraction "
sstab 1。TabCaption(2) = "乘法"
sstab = "除法"
If Text1。Text = "" Then "在设计时，清除表单上两个文本框的属性空。
Text1。text = " 0.00000 "
End If
If text 2。Text = " "然后
Text2。text = " 0.00000 "
End If
End Sub

private Sub sstab 1 _ Click(previous tab为整数)
ToggleButton1。Enabled = True
End Sub

private Text2 _ change()
If text 2 . text = 0 then
toggle button 4 . enabled = false '如果text 2中的数字为0，则除法无效。
Else
切换按钮4。enabled = True
End If
End Sub

private Sub toggle button 4 _ Click()
label 4。Caption = Val(Text1。Text) / Val(Text2。text)
结束Sub

private Sub toggle button 3 _ Click()
label 4。Caption = Val(Text1。文本)* Val(文本2。text)
结束Sub

private Sub toggle button 2 _ Click()
label 4。Caption = Val(Text1。Text) - Val(Text2。text)
结束Sub

private Sub toggle button 1 _ Click()
label 4。Caption = Val(Text1。Text) + Val(Text2。text)
结束Sub

私有Sub UpDown1_DownClick()

如果文本1。Text > 0，然后
Text1。Text = Val(Text1。Text) - 1
End If
End Sub

private Sub up down 1 _ up click()
If text 1。Text = " "然后
Text1。Text = 0
End If
Text1。Text = Val(Text1。Text) + 1
End Sub

private Sub up down 2 _ down click()
If text 2。Text > 0，然后
Text2。Text = Val(Text2。Text) - 1
End If
End Sub

private Sub up down 2 _ up click()
If text 2。Text = " "然后
Text2。Text = 0
End If
Text2。Text = Val(Text2。Text) + 1
End Sub