VB程序设计基础教程

魏豪明制作10.1显示时间和信息110.2改变字体大小和颜色程序210.3色彩调节程序310.4改变鼠标指针形状程序410.5输入框和输出框实例510.6运动的汽车610.7“VB应用程序向导”自动生成应用程序7魏豪明制作10.1显示时间和日期通过时钟控件、Label控件及CommandButton控件来完成本例的功能。具体步骤如下：图10-1打开窗口（1）选择“文件/新建”菜单，打开如图10-1所示对话框。魏豪明制作图10-2添加控件后的VB界面（2）选中图10-1所示对话框中“标准EXE”，然后单击“打开”按钮创建一个新的应用程序。魏豪明制作（3）对窗体中各控件的属性值进行设置。图10-3Label1的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-15Columns的属性值图10-16Caption等属性值魏豪明制作Timer1的主要属性图10-17Font属性值图10-18Interval属性值魏豪明制作图10-19引入控件后的界面图10-20完成属性设置后的界面魏豪明制作添加程序代码图10-21添加代码魏豪明制作运行程序图10-22程序运行结果魏豪明制作10.5输入框和输出框实例输入框与输出框MsgBox函数表10-1Buttons参数可选值常量值说明vbOkOnly0只显示“确定”按钮vbOkcancel1显示“确定”及“取消”按钮vbAbortRetryIgnore2显示“取消”、“重试”及“忽略”按钮vbYesNoCancel3显示“是”、“否”及“取消”按钮vbYesNo4显示“是”及“否”按钮vbRetryCancel5显示“重试”及“取消”按钮vbCritical16显示如图10-23所示图标vbQuestion32显示如图10-24所示图标vbExclamation48显示如图10-25所示图标vbInformation64显示如图10-26所示图标vbDefaultButton10以第一个按钮为缺省按钮vbDefaultButton2256以第二个按钮为缺省按钮vbDefaultButton3512以第三个按钮为缺省按钮vbDefaultButton4768以第四个按钮为缺省按钮vbApplicationModel0应用模式对话框。用户必须在当前应用程序工作之前对信息作出反应vbSystemModel4096系统模式对话框。所有应用程序在用户回应消息之前处于暂停状态魏豪明制作图10-23“叹号”图标图10-24“问号”图标图10-25“停止”图标图10-26“信息”图标魏豪明制作表10-2返回值列表常量值按钮Book1选择“确定”按钮vbCancel2选择“取消”按钮vbAbort3选择“终止”按钮vbRetry4选择“重试”按钮vbIgnore5选择“忽略”按钮vbYes6选择“是”按钮vbNo7选择“否”按钮魏豪明制作建立窗体框架图10-27引入控件后的窗体界面图10-28完成属性设置后的窗体界面魏豪明制作添加程序代码（1）在通用声明中添加如下代码：DimPosChkAsBoolean它的功能是检查X、Y坐标是否有效。（2）在Check1_Click()的事件中添加如下代码：IfCheck1.Value=1ThenLabel1(3).Enabled=TrueLabel1(4).Enabled=TrueText1(3).Enabled=TrueText1(4).Enabled=TruePosChk=TrueElseLabel1(3).Enabled=FalseLabel1(4).Enabled=FalseText1(3).Enabled=FalseText1(4).Enabled=FalsePosChk=FalseEndIf图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()事件中添加如下代码：CallaaShape1.Top=Shape1.Top+2Shape1.Left=Shape1.Left-4Shape2.Left=Shape2.Left+6Shape3.Left=Shape3.Left+6Shape4.Left=Shape4.Left+6它的功能为：实现小车向右移动，天上的太阳向西落魏豪明制作（4）在程序中添加一个过程（或子程序）：Subaa()IfShape4.Left=3000ThenLine2.Visible=FalseTimer1.Enabled=FalseIfMsgBox(小车现已到终点是否继续？,vbExclamation+vbYesNo,_提示框)=vbYesThenLine2.Visible=FalseTimer1.Enabled=TrueElseUnloadMeEndIfEndIfEndSub魏豪明制作图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建立三个文档后的应用程序界面魏豪明制作