VB程序设计基础教程第10章

1、第10章 Visual Basic编程实例10.1 显示时间和信息110.2 改变字体大小和颜色程序210.3 色彩调节程序310.4 改变鼠标指针形状程序410.5 输入框和输出框实例510.6 运动的汽车610.7 “VB应用程序向导”自动生成应用程序710.1 显示时间和日期 通过时钟控件、Label控件及CommandButton控件来完成本例的功能。具体步骤如下： 图10-1 打开窗口（1）选择“文件/新建”菜单，打开如图10-1所示对话框。图10-2 添加控件后的VB界面（2）选中图10-1所示对话框中“标准EXE”，然后单击“打开”按钮创建一个新的应用程序。 （3）对窗体中各控件

2、的属性值进行设置。 图10-3 Label1的Font属性值 图10-4 完成各控件属性设置后的窗体图10-5 程序运行结果10.2 改变字体大小和颜色程序在窗体中添加如下Label1、Text1、Command1、Command2、CommonDialog控件。（1）Label1的属性值：Aligrment=Center,Caption=改变字体大小和颜色程序，Backstyle=0-Trans。（2）CommonDialog控件的添加方法： 图10-6 部件选择 图10-7 选择高级控件 图10-8 引入控件后的界面 图10-9 完成设置后的窗体 图10-10 完成代码添加后的代码框10.

3、3 色彩调节程序（1）在窗体中添加控件并设置属性值（2）完成属性设置后所得窗体如图10-12所示。 图10-11 属性窗口 图10-12 完成属性设置后的窗体（3）添加本程序代码如图10-13所示。（4）运行程序时把颜色值属性值设为74D377，结果如图10-14所示。 图10-13 程序源代码 图10-14 程序运行结果10.4 改变鼠标指针形状程序设置列表框属性Label1的主要属性 图10-15 Columns的属性值 图10-16 Caption等属性值Timer1的主要属性 图10-17 Font属性值 图10-18 Interval属性值 图10-19 引入控件后的界面 图10-2

4、0 完成属性设置后的界面添加程序代码 图10-21 添加代码 运行程序 图10-22 程序运行结果10.5 输入框和输出框实例输入框与输出框MsgBox函数 表10-1 Buttons参数可选值常量值说 明vbOkOnly0只显示“确定”按钮vbOkcancel1显示“确定”及“取消”按钮vbAbortRetryIgnore2显示“取消”、“重试”及“忽略”按钮vbYesNoCancel3显示“是”、“否”及“取消”按钮vbYesNo4显示“是”及“否”按钮vbRetryCancel5显示“重试”及“取消”按钮vbCritical16显示如图10-23所示图标vbQuestion32显示如图1

5、0-24所示图标vbExclamation48显示如图10-25所示图标vbInformation64显示如图10-26所示图标vbDefaultButton10以第一个按钮为缺省按钮vbDefaultButton2256以第二个按钮为缺省按钮vbDefaultButton3512以第三个按钮为缺省按钮vbDefaultButton4768以第四个按钮为缺省按钮vbApplicationModel0应用模式对话框。用户必须在当前应用程序工作之前对信息作出反应vbSystemModel4096系统模式对话框。所有应用程序在用户回应消息之前处于暂停状态 图10-23 “叹号”图标 图10-24 “

6、问号”图标 图10-25 “停止”图标 图10-26 “信息”图标表10-2 返回值列表常量值按钮Book1选择“确定”按钮vbCancel2选择“取消”按钮vbAbort3选择“终止”按钮vbRetry4选择“重试”按钮vbIgnore5选择“忽略”按钮vbYes6选择“是”按钮vbNo7选择“否”按钮建立窗体框架 图10-27 引入控件后的窗体界面 图10-28 完成属性设置后的窗体界面添加程序代码 （1）在通用声明中添加如下代码：Dim PosChk As Boolean它的功能是检查X、Y坐标是否有效。（2）在Check1_Click()的事件中添加如下代码：If Check1.Val

7、ue = 1 Then Label1(3).Enabled = True Label1(4).Enabled = True Text1(3).Enabled = True Text1(4).Enabled = True PosChk = True Else Label1(3).Enabled = False Label1(4).Enabled = False Text1(3).Enabled = False Text1(4).Enabled = False PosChk = False End If图10-29 “退出”对话框在程序运行时 图10-30 程序运行图之一 图10-31 程序运行图

8、之二图10-32 程序运行图之三10.6 运动的汽车主要控件的主要属性及相关事件 Line控件的BorderWidth属性 ToolTipText属性 Shape控件的形状 引入控制并设置属性 图10-33 引入控件后的窗体界面 图10-34 属性设置 图10-35 完成属性设置后的窗体界面添加代码 （1）Command1_Click()事件中添加如下代码：Timer1.Enabled = True它的功能为：激活时钟控件使程序开始运行。（2）Command2_Click()事件中添加如下代码：Timer1.Enabled = False它的功能为：禁止时钟控件使程序暂停运行。（3）Timer

9、1_Timer()事件中添加如下代码：Call aaShape1.Top = Shape1.Top + 2Shape1.Left = Shape1.Left - 4Shape2.Left = Shape2.Left + 6Shape3.Left = Shape3.Left + 6Shape4.Left = Shape4.Left + 6它的功能为：实现小车向右移动，天上的太阳向西落 （4）在程序中添加一个过程（或子程序） ：Sub aa()If Shape4.Left = 3000 ThenLine2.Visible = FalseTimer1.Enabled = FalseIf MsgBox

10、(小车现已到终点是否继续？, vbExclamation + vbYesNo, _提示框)= vbYes ThenLine2.Visible = FalseTimer1.Enabled = TrueElseUnload MeEnd IfEnd IfEnd Sub 图10-36 向VB自动创建的过程体中添加代码 图10-37 “添加过程”窗口运行程序显示其结果 图10-38 点击“开始”开始运行 图10-39 运行中 图10-40 障碍运行对话框10.7 “VB应用程序向导”自动生成应用程序制作多文档应用程序界面 图10-41 “新建工程”对话框 图10-42 “应用程序向导界面类型”对话框 图10-43 “应用程序向导资源”对话框 图10-44 “应用程序向导Internet连接”对话