应用程序窗体设计.pdfVIP

应用程序窗体设计

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

在VB的可视化的编程环境中，用户不必编写大量的代码，就可以利用

VB提供的功能强大的大量控件设计出丰富的界面，这样一来可以使程序

员从繁琐的代码编写任务中解脱出来，从而投入到更具有创造力和想象

力的工作中去，设计出有个性，有特色、友好的界面。

下面是一个利用ActiveX控件来进行程序界面设计的示例，在这个示例

程序中所用到的一些控件在程序的初始化阶段没有被加载，需在读者自

己把它们添加到工具箱中。

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

启动一个新的标准Exe工程，然后选择菜单[工程]/[部件]，在弹出的

对话框中选择选中部件对话框中的MicrosoftTableDialog

Control6.0,确认后返回设计状态，就会发现SSTab控件已经加入到

工具箱中。

2.设置SSTab控件属性

SSTab控件的状态可以在程序中动态的修改，比如在窗体的设计阶段双

击窗体，在窗体的Form_load（）事件中添加下列代码：

PrivateSubForm_load（）

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

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

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

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

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

4.添加事件响应代码

PrivateSubCommand1_Click()

End

EndSub

PrivateSubForm_Load()PrivateSubForm_Load()

加法加法加法

减法减法减法

乘法乘法乘法

除法除法除法

在设计时，将窗体上的两个文本框的属性

清空。

EndIf

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

EndSub

PrivateSubToggleButton2_Click()

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

EndSub

PrivateSubToggleButton1_Click()

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

EndSub

PrivateSubUpDown1_DownClick()

IfText1.Text0Then

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

EndIf

EndSub

PrivateSubUpDown1_UpClick()PrivateSubUpDown1_UpClick()

Text1.Text=0

EndIf

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

EndSub

PrivateSubUpDown2_DownClick()

IfText2.Text0Then

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

EndIf

EndSub

PrivateSubUpDown2_UpClick()PrivateSubUpDown2_UpClick()

Text2.Text=0

EndIf

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

EndSub

5.保存文件，运行程序

[程序演示][程序下载]

二、多窗体程序设计

当应用程序功能较强和分类较多，程序和用户的交互频繁时，如果只用

一个窗体和用户进行交互，一方面难以进行合乎美观原则的设计，另一

方面分类工作很难，设计出来的界面不符合友好原则。这时最好使用多

重窗体程序设计，增强程