VB程序设计基础教程第10章.ppt
第10章 Visual Basic编程实例,10.1 显示时间和日期,通过时钟控件、Label控件及CommandButton控件来完成本例的功能。具体步骤如下：,图10-1 打开窗口,（1）选择“文件/新建”菜单，打开如图10-1所示对话框。,图10-2 添加控件后的VB界面,（2）选中图10-1所示对话框中“标准EXE”，然后单击“打开”按钮创建一个新的应用程序。,（3）对窗体中各控件的属性值进行设置。,图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 色彩调节程序,（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-20 完成属性设置后的界面,添加程序代码,图10-21 添加代码,运行程序,图10-22 程序运行结果,10.5 输入框和输出框实例,输入框与输出框MsgBox函数,表10-1 Buttons参数可选值,图10-23“叹号”图标 图10-24“问号”图标,图10-25“停止”图标 图10-26“信息”图标,表10-2 返回值列表,建立窗体框架,图10-27 引入控件后的窗体界面 图10-28 完成属性设置后的窗体界面,添加程序代码,（1）在通用声明中添加如下代码：Dim PosChk As Boolean它的功能是检查X、Y坐标是否有效。,（2）在Check1_Click()的事件中添加如下代码：If Check1.Value=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 程序运行图之二,图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）Timer1_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(小车现已到终点是否继续？,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连接”对话框,图10-45“应用程序向导标准窗体”对话框 图10-46“窗体模板”对话框,图10-47“应用程序向导数据访问窗体”对话框 图10-48“应用程序向导已完成”对话框,运行多文档应用程序,图10-49“登录”对话框,图10-50 应用程序界面图 图10-51 建立三个文档后的应用程序界面,Thank You!,
