《Visual Basic 6.0程序设计》课件

http:///电子教学参考资料包VisualBasic6.0程序设计主编张少杰目录第1章VisualBasic使用基础第2章VisualBasic编程语言第3章应用程序窗体设计第4章标准控件应用第5章多媒体程序设计第6章菜单与工具栏设计第7章文件访问与管理第8章数据库程序设计第9章学生成绩管理系统3／126任务1进入VB编程世界【知识点】VisualBasic集成开发环境

VisualBasic编程步骤

VisualBasic工程与模块对象的属性、方法和事件【任务描述】在本任务中创建第一个VisualBasic应用程序，运行该程序时在屏幕上打开一个窗口，窗口下部有一个“显示”按钮。当用户用鼠标单击此按钮时，将在窗口上部显示“欢迎您进入VisualBasic编程世界”信息，如图1-1所示。第1章目录4／126任务1进入VB编程世界【任务分析】根据应用程序的功能，需要使用窗体作为程序界面的容器，并在窗体上添加一个命令按钮和一个标签，前者用于执行命令，后者用来显示“欢迎您进入VisualBasic编程世界”。【操作步骤】（1）启动VisualBasic6.0。（2）创建标准EXE工程。（3）添加命令按钮。（4）添加标签控件。（5）设置命令按钮的Caption属性。（7）设置标签的字体属性。（7）设置标签控件显示的文字。（8）设置窗体Form1的标题文字。（9）打开窗体Form1的程序代码窗口，编写按钮的Click事件过程。（10）在代码窗口的第二行输入以下VisualBasic语句： Label1.Caption="欢迎您进入VisualBasic编程世界"（11）保存工程。（12）生成exe文件。第1章目录5／126任务1进入VB编程世界【程序测试】（1）按F5键运行程序。（2）用鼠标单击“显示”按钮时，窗口上部的标签将显示“欢迎您进入VisualBasic编程世界”。（3）单击窗口右上角的关闭按钮，或从“运行”菜单中选择“结束”命令，以退出程序，返回VisualBasic集成开发环境。第1章目录6／126任务1进入VB编程世界【知识链接】1.对象的基本概念（1）对象。（2）属性。在程序中用程序语句设置属性： 对象名.属性名称=属性值（3）事件。（4）方法。调用方法的语法格式为： 对象名.方法名（5）属性、方法和事件之间的关系。2.VisualBasic编程步骤（1）构建应用程序的用户界面。（2）设置窗体和控件的属性。（3）编写程序代码。3.VisualBasic工程与模块工程是VisualBasic应用程序开发过程中使用的文件集。VisualBasic工程主要由窗体模块、标准模块和类模块组成。（1）窗体模块。（2）标准模块。（3）类模块。第1章目录7／126VisualBasic编程步骤（1）建立应用程序界面：用户界面由窗体和控件组成。所有的控件都放在窗体上，一个窗体最多可容纳255个控件。程序中的所有信息都要经过窗体显示出来，它是用户应用程序的最终界面。在应用程序中需要用到什么样的控件，就利用工具箱在窗体上添加相应的控件。程序运行后，将在屏幕上显示由窗体和控件的用户界面。（2）设置界面对象属性：建立用户界面后，就可以设置在窗体和各个控件的属性。选中一个对象后，该对象所具有的全部或大多数属性值就会在属性窗口列表中显示出来。通过修改属性值就可以改变控件的标题、字体等属性。在实际的应用程序中，建立界面和设置属性可以同时进行，即每添加一个控件，接着就可设置该控件的属性。（3）编写事件驱动代码：visualbasic采用事件驱动的编程机制，当发生某个事件时，就会“驱动”预选一系列设置的动作，这种情况称为“事件驱动”；而预先设置的那些动作，即针对控件或窗体的事件驱动代码，称为“事件过程”。8／126VisualBasic工程与模块工程是VisualBasic应用程序开发过程使用的文件集。VisualBasic工程主要由窗体模块、标准模块和类模块组成。（1）窗体模块。窗体模块的文件扩展名为.

Frm，这类模块是大多数VisualBasic应用程序的基础。窗体模块可以包含处理事件的过程、通用过程及变量、常数、类型和外部过程的窗体级声明。如果在文本编辑器中观察窗体模块，还会看到窗体及其控件的描述，包括它们的属性设置值。写入窗体模块的代码是该窗体所属的具体应用程序专用的，它可以引用该应用程序内的其他窗体或对象。（2）标准模块。标准模块的文件扩展名为.bas,这类模块是应用程序内其他模块访问的过程和声明的容器。标准模块可以包含变量、常数、类型、外部过程和全局过程的全局声明或模块级声明，全局变量和全局过程可以在整个应用程序范围内有效。（3）标准模块的文件扩展名为.cls,这类模块是面向对象编程的基础。在这类模块中可以通过编写代码来建立新对象，这些新对象可以包含自定义的属性和方法。实际上，窗体正是这样一类模块9第2章VisualBasic编程语言

任务1区分数据的类型任务2制作个人信息卡任务3计算圆的面积任务4判断闰年的问题任务5改变窗体的颜色任务6值班情况查询任务7棋盘上的麦粒数任务8计算阶梯问题任务9分析蛋糕销售情况任务10统计家庭支出情况任务11编写猜宝游戏任务12实现金额大写转换任务13查找程序中的错误10／126任务1区分数据的类型第2章目录任务1区分数据的类型【知识点】基本数据类型常量Print语句标识符命名规则【任务描述】在本任务中分别为每种数据类型提供一些常量，并使用Print语句将常量的值显示在窗体上，运行效果如图2-1所示。11／126任务1区分数据的类型第2章目录【设计步骤】【程序测试】1.基本数据类型12／126任务1区分数据的类型第2章目录2.常量（1）一般常量字符串常量数值常量布尔型常量日期型常量（2）符号常量VsiualBasic6.0定义了许多符号常量如vbRed（红色）、vbBlue（蓝色）、vbGreen（绿色）等，在程序设计中可以直接使用。用户定义的符号常量可以用Const语句来声明，语法格式如下。 Const常量名[As类型]=常量表达式3.Print语句 [对象名称.]Print[表达式][,|;][表达式][,|;]…4.标识符命名规则标识符必须以字母开头。最大长度为255。标识符不能使用VsiualBasic的保留字（关键字）。不能包含在VsiualBasic中有特殊含义的字符如：句号、空格、类型说明符、运算符等。VsiualBasic的标识符不区分大小写。标识符在标识符的同一范围内必须是唯一的。在VsiualBasic中，符号常量名、变量名、过程名、记录类型名、元素名等名称都必须遵循上述命名规则。13／126标示符命名的注意事项（1）为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型，尽量采用VisualBasic建议的变量名前缀或后缀的的约定来命名，以便区分变量的类型。如：intmax、strname。（2）取名最好使用有明确实际意义（描述性的）和容易记忆（完整的单词或音节）以及通用的变量名、即要见明知义。比如用:sum(或s)代表求和，用difference(或d)代表求差符。（3）变量名不能与过程名和符号常量名相同。（4）整型和长整型数据负数前有符号位“-”正数的“+”用空格代替。（5）单精度型数的有效数位为7位，当结果能用7位以内的数字表示时，用小数型是输出，否则用规范指数形式输出，用E表示底数。（6）双精度底数的有效数位为15位用规范的指数形式输出，用D表示底数10。14／126任务2制作个人信息卡第2章目录【知识点】变量和语句格式赋值语句、注释语句和结束语句【任务描述】在本任务中制作一个个人信息卡，卡片上的内容包括：姓名、性别、身高、体重、出生时间以及是否喜欢学习VsiualBasic6.0等信息，程序运行效果如图2-3所示。【设计步骤】【程序测试】15／126任务2制作个人信息卡第2章目录【知识链接】1.变量变量声明语句：<Dim|Private|Static|Public><变量名>[As类型][，<变量名>[As类型]]2.赋值语句 [Let]变量名=表达式3.注释语句 Rem|'[注释文本]4.结束语句EndUnload<对象名称>5.语句书写格式16／126赋值语句的说明变量和表达式的数据类型必须一致。若两者同为数值型但精度不同，则系统会强制将表达式的值转换为变量所要求的精度。赋值号“=”表示将表达式的值赋值给变量，与数学上的符号意义不同。方括号的项是可选的，方括号中的Let表示赋值，通常省略。例如：x=8=9语句的含义是将关系表达式8=9的结果赋给变量x，x的值为0（Flase）。赋值语句兼有计算与赋值的双重功能，它首先计算赋值号右边“源操作数”的值，然后把结果赋给赋值号左边的“目标操作数”。若把多个赋值语句放在一行，则各个语句之间必须用冒号隔开。例如：a=3:b=4:c=5。语句的书写格式：不区分大小写。标点符号，如逗号、分号需要在英文状态下输入。语句以回车键结束。一般要求“一句一行”，也可以使用复合语句，即把多句写在一行上，但每句代码之间必须用冒号（：）连接。当一行代码很长时可以用“空格+下画线”来续行。17／126任务3计算圆的面积第2章目录【知识点】算术运算符及其表达式连接运算符及其表达式【任务描述】在本任务中，要求计算半径为10cm的圆的面积，程序运行效果如图2-4所示。18／126任务3计算圆的面积第2章目录【设计步骤】【程序测试】【知识链接】1.算术表达式2.字符串表达式在VisualBasic中有一个专门的字符串连接运算符&，用于连接两个或更多个字符串并构成字符串表达式。例如，字符串表达式"xyz"&"123"&"abc"&"45"的运算结果为"xyz123abc45"。19／126任务4判断闰年的问题第2章目录【知识点】关系运算符及其表达式逻辑运算符及其表达式运算符的优先级【任务描述】在本任务中，创建一个应用程序，用于判断指定的年份是不是闰年，运行效果如图2-5所示。20／126任务4判断闰年的问题第2章目录【任务分析】判断是否指定年份是否闰年的条件为：该年份（Year）能被4整除但不能被100整除，或者能被400整除。【设计步骤】【程序测试】【知识链接】1.关系表达式2.布尔表达式3.运算符优先级一个表达式可能含有多种运算，系统会按预先确定的顺序进行计算，此顺序称为运算符的优先顺序。从高到低顺序为：算术运算符→字符串连接运算符→关系运算符→布尔运算符。21／126任务5改变窗体的颜色第2章目录【知识点】If语句IIf函数【任务描述】在本任务中创建一个应用程序，每当用鼠标单击窗口时，窗口的背景就变换一种颜色，窗口的背景颜色在红、绿、蓝三色之间循环，如图2-6所示。22／126任务5改变窗体的颜色第2章目录【任务分析】改变窗口背景颜色就是改变窗口的BackColor属性值。预定义符号常量vbRed、vbGreen和vbBlue分别表示三种颜色，单击窗口时依次把这些颜色值赋给窗口的BackColor属性，就可以实现窗口的三色循环。定义一个计数器，在程序运行过程中，单击窗口时，计数器的值加1，判断计数器的值，设置相应的颜色。颜色有三种，计数器的取值也只能是1～3，当计数器的值大于3时，使计数器的值归1。【设计步骤】【程序测试】23／126任务5改变窗体的颜色第2章目录【知识链接】1.If语句单行形式： If条件Then[语句1][Else语句2]块形式的If语句格式：If<条件1>Then[语句块1][ElseIf<条件2>Then[语句块2].[ElseIf<条件3>Then[语句块3]...[Else[语句块n]]EndIf2.IIf函数 Result=IIf(条件,True部分,False部分)24／126任务6值班情况查询第2章目录【知识点】Select语句【任务描述】在本任务中制作一个学校的电子值班安排表，供师生查询，运行结果如图2-7所示。

【任务分析】一个星期内的值班安排，最多有7种情况，输入1~7中的一个数字，根据输入的数字用SelectCase语句进行判断，并给出相应的提示信息。对于输入小于1、大于7的的情况也应进行适当处理。【设计步骤】25／126任务6值班情况查询第2章目录【知识链接】SelectCase语句根据测试表达式的值，从多个语句块中选择一个符合条件的语句块执行。语法格式如下：SelectCase<测试表达式>Case表达式列表1

语句块1[Case表达式列表2

语句块2]...[CaseElse

语句块n]EndSelect其中测试表达式可以是数值或字符串表达式；每个“表达式列表”可以是一个表达式、一组用逗号分隔的枚举值（如1,2,3）、表达式1to表达式2（如1to5）、Is关系运算符表达式（如Is<3）。SelectCase语句执行的流程是：对测试表达式进行测试并检查表达式列表1，若为真，则执行语句块1并结束选择；若为假，继续检查下一个条件。如果都不为真，则执行语句块n。如果没有语句块n，则什么也不做就结束选择。26／126任务7棋盘上的麦粒数第2章目录【知识点】For循环语句While循环语句【任务描述】据传说记载，有位印度教宗师发明了国际象棋．国王非常喜欢，问宗师需要什么赏赐．宗师说：请您在棋盘上的第一个格子上放1粒麦子，第二个格子上放2粒，第三个格子上放4粒，即后面格子的麦粒数是它前一个格子的倍数，直到64格放满为止。“好吧！”，国王慷慨地答应了宗师的请求。国王要给宗师多少麦子呢？计算结果如图2-8所示。

【任务分析】棋盘上每一个格子的麦粒数是2n（n=0~63），对每个格子的麦粒数求和就得到了国王赏赐给宗师的麦粒数，这可以利用循环语句来实现。【设计步骤】27／126任务7棋盘上的麦粒数第2章目录【知识链接】1.For循环For循环变量=初值To终值[Step步长][循环体][ExitFor][循环体]Next[循环变量]2.While循环While<条件>[循环体]Wend28／126FOR循环执行过程说明循环变量=初值条件循环体循环变量=循环变量+步长循环变量用于循环计数，每重复一次循环之后，循环变量的值就会增加一个步长，在循环体中除非有特殊情况，一般不要改变循环变量的值，否则会改变循环体的执行次数。步长是循环变量的增量，其值可以是正数或负数，如果没有设置Setp，则步长默认值为1。循环体在下列两种情况下将不会执行：步长为正数时，循环变量的值大于终值；步长为负值时，循环变量的值小于终值。ExitFor通常用在选择语句中，用于提前结束循环。29／126任务8计算阶梯问题第2章目录【知识点】Do循环语句【任务描述】爱因斯坦曾提出这样一个问题：设有一阶梯，每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后余4阶；每步跨6阶，最后余5阶；只有每步跨7阶，正好到达阶梯顶。问共有多少阶梯？计算结果如图2-10所示。

【任务分析】由条件可知，阶梯数一定是7的整数倍，因此可以从7开始，分别对7、14、21、…数列进行测试，看哪一个符合题意。设阶梯数为Jieti，则题中的条件可以表示为：Jietimod2=1AndJietimod3=2AndJietimod5=4AndJietimod6=5AndJietimod7=0【设计步骤】30／126任务8计算阶梯问题第2章目录【知识链接】Do循环语句格式一Do[While|Until<循环条件>][语句块][ExitDo][语句块]Loop格式二Do[语句块][ExitDo][语句块]Loop[While|Until<循环条件>]31／126任务9分析蛋糕销售情况第2章目录【知识点】定长数组数组的初始化数组的清除【任务描述】“温馨”蛋糕房每天平均售出蛋糕50个左右，求出其一月份日销售量的平均数，并将低于平均数的日销售量打印出来，程序运行结果如图2-11所示。

【任务分析】声明一个数组，使用随机函数产生模拟31个0～100之间的整数，依次赋给数组的每一个元素，计算平均数，打印出低于平均数的日销售量。【设计步骤】32／126任务9分析蛋糕销售情况第2章目录【知识链接】1.定长数组Dim数组名([下标下界To]下标上界[,下标下界To下标上界])[As数据类型]2.默认数组在VisualBasic中，允许声明默认数组，即数据类型为Variant的数组：StaticVari(1To100)3.数组的初始化 数组名=Array(数组元素值)使用Array函数给数组赋初值时，数组变量只能是Variant类型。Array只适用于一维数组，不能对二维或多维数组赋值。4.数组的清除 Erase数组名[,数组名]……33／126任务10统计家庭支出情况第2章目录【知识点】动态数组访问数组的方法【任务描述】在本任务中制作一个家庭年度支出情况表，要求统计出月度支出的总金额、人均金额并打印出来，如图2-12所示。

【任务分析】定义一个二维数组，考虑到月份、月度支出的总金额、人均金额需要保存，数组的两个下标上界分别是12、6。【设计步骤】34／126任务10统计家庭支出情况第2章目录【知识链接】1.动态数组动态数组是指计算机在执行过程中才给数组开辟存储空间的数组，可以用ReDim语句再次分配动态数组占据的存储空间，也可以用Erase语句删除它，收回分配给所占存储空间。动态数组可以用变量作为下标值，在程序运行过程中完成声明，动态数组可以在任何时候改变大小。创建动态数组通常分为两步。首先在窗体级别、标准模块或过程中，用Dim语句（模块级数组）、Public语句（公用数组）、Private或Static（局部数组）声明一个没有下标的数组（括号不能省略），然后在过程中用ReDim语句定义带下标的数组。ReDim该语句： ReDim[Preserve]变量(下标,下标)As数据类型名称2.访问数组的方法（1）数组的引用。（2）访问数组的常用方法。35／126任务11编写猜宝游戏第2章目录【知识点】通用过程与事件过程参数的传递机制【任务描述】日常生活中，经常玩一种游戏叫猜宝，同时伸出左、右手，猜宝放在哪个手中。本任务就是一个模拟猜宝游戏，其运行效果如图2-13所示。

【任务分析】首先将宝放在左手，是否放到右手由随机函数决定，交换的过程通过两个自定义过程完成，这两个过程形式相同，参数相同，只是参数传递方式不同。一个是按值传递，一个是按地址传递，结果却截然不同。【设计步骤】36／126任务11编写猜宝游戏第2章目录【知识链接】1.事件过程窗体事件过程：PrivateSubForm_事件名[(参数列表)]

语句块EndSub控件事件过程：PrivateSub控件名_事件名[(参数列表)]

语句块EndSub37／126任务11编写猜宝游戏第2章目录【知识链接】2.通用过程[Private|Public][Static]Sub过程名[(参数列表)][语句块][ExitSub][语句块]EndSub3.参数传递[Optional][ByVal|ByRef][ParamArray]变量名[()][As数据类型名称]（1）按值传递参数。（2）按地址传递参数。4.Sub过程的调用Call过程名[(实际参数)]过程名[实际参数]38／126任务12实现金额大写转换第2章目录【知识点】常用内部函数用户自定义函数【任务描述】顾客在购买商品后，商家会开出一张发票，如果注意看一下，上面的金额有大小写两种，这就是人民币金额大小写转换问题。在本任务中编写了一个金额大小写转换函数，程序运行结果如图2-14所示。

【任务分析】人民币金额大小写转换可以按照这样的流程理解：把一个定点小数扩大100倍并去掉小数，以转换为整数，再转换为字符串，依次从字符串中取出每一位，对照转换为大写，依次插入计数单位，结束。【设计步骤】39／126任务12实现金额大写转换第2章目录【知识链接】1.常用内部函数（1）数学函数。（2）字符串函数。（3）日期和时间函数。（4）格式输出函数。 Format(表达式[,格式字符串])（5）数据类型转换函数。40／126任务12实现金额大写转换第2章目录【知识链接】2.自定义函数[Private|Public][Static]Function<函数名>([参数列表])[As数据类型][语句块][函数名=表达式][ExitFunction][语句块][函数名=表达式]EndFunctionFunction过程的调用 函数名（[参数列表]）41／126任务13查找程序中的错误第2章目录【知识点】VisualBasic程序错误种类VisualBasic程序错误处理【知识链接】1.错误类型错误可分为编译错误、实时错误和逻辑错误三种类型。2.错误处理（1）使用调试工具。（2）使用错误捕捉。OnErrorGoto[行号]常用错误处理程序结构SubErrorDemo()[没有错误的语句块]OnErrorGotoErrorHandler'启用错误捕捉

[可能会有错误的语句块]ExitSubErrorHandler:'错误处理由此开始

[错误处理语句]EndSub42／126第3章应用程序窗体设计

任务1在窗体指定位置显示文本任务2保持窗体上的标签文本居中任务3制作键盘按键程序测试任务4制作简单绘图程序任务5创建输入框和消息框任务6创建标准对话框任务7创建多文档界面应用程序43／126任务1在窗体指定位置显示文本第3章目录【知识点】窗体的常用属性窗体的常用方法窗体的Load事件和Click事件【任务描述】在本任务中创建一个应用程序，在程序执行时窗体背景色被设置成白色，字体设置为“楷体”，字体大小设置为20。每单击一次窗体，将在窗体的不同位置上以不同颜色显示文字信息“欢迎使用VisualBasic6.0”，如图3-1所示。

【任务分析】在VisualBasic中，每种颜色都是由一个Long整数表示。在本任务中，利用随机函数产生0至255之间的三个整数并为RGB函数赋值，实现文字颜色随机变换的结果。对文字显示位置的控制，可以通过窗体的CurrentX、CurrentY属性实现。44／126任务1在窗体指定位置显示文本第3章目录【知识链接】1.窗体的常用属性（1）Caption。（2）BackColor。（3）ForeColor。（4）FontName。（5）FontSize。（6）CurrentX、CurrentY。2.窗体的常用方法（1）Print。（2）Cls。3.窗体的常用事件（1）Click。（2）Load。45／126任务2保持窗体上的标签文本居中第3章目录【知识点】窗体的ScaleHeight和ScaleWidth属性窗体的Resize事件窗体的UnLoad事件【任务描述】本任务利用响应窗体Resize事件来改变标签控件Label的顶点坐标和宽度的值，从而实现当改变窗体大小时，标签文本始终出现在窗体中央。当退出程序时，通过响应窗体UnLoad事件，提示确认关闭操作，如图3-2所示。

【任务分析】要想实现标签文本在窗体中一直居中，首先要保证文本在标签控件中保持居中，还要在窗体大小发生改变时使使标签控件的顶点一直处于窗体最左侧1/2处，宽度一直与窗体宽度保持一致。46／126任务2保持窗体上的标签文本居中第3章目录【知识链接】2.窗体的Resize和Unload事件（1）Resize：当窗体第一次显示或窗体的外观尺寸被改变时发生。（2）Unload：当窗体从内存中卸载时发生。当窗体被加载时，它的所有控件的内容均被重新初始化。当使用在控制菜单中的关闭命令、关闭按钮或Unload语句关闭该窗体时，此事件被触发。语法如下： PrivateSubForm_Unload(CancelAsInteger)其中参数Cancel为整数，用来确定窗体是否卸载。如果Cancel为0，则窗体被卸载。将Cancel设置为任何一个非零的值可防止窗体被删除。通过将参数Cancel设置为任何非零的值可防止窗体被删除，但不能阻止其他事件，诸如从Windows操作环境中退出等。可以用QueryUnload事件阻止从Windows中的退出。在窗体被卸载时，可以用Unload事件过程来确认窗体是否应被卸载或用来指定想要发生的操作。在本任务中，利用Unload事件这一特性来实现关闭程序时提示是否关闭。47／126任务3制作键盘按键测试程序第3章目录【知识点】窗体的KeyPreview属性窗体的KeyDown、KeyUp和KeyPress事件【任务描述】在本任务中创建了一个键盘程序测试。当程序运行后，当在键盘上按下任一个键时，在窗体上显示出该键的代码和相应的字符并显示Shift、Ctrl和Alt键的状态，当按Esc键时退出程序，运行情况如图3-3所示。

【任务分析】要想实现这一任务的目标，需要使用窗体的KeyDown、KeyUp和KeyPress这三个键盘事件，利用每个事件响应不同的按键，以获得所有键盘按键的事件响应，并通过标签控件把响应的结果显示出来。48／126任务3制作键盘按键测试程序第3章目录【知识链接】1.窗体的KeyPreview属性窗体名.KeyPreview=boolean2.窗体的KeyPress事件PrivateSubForm_KeyPress(keyasciiAsInteger)3.窗体的KeyUp和KeyDown事件PrivateSubobject_KeyDown(keycodeAsInteger,shiftAsInteger)PrivateSubobject_KeyUp(keycodeAsInteger,shiftAsInteger)49／126任务4制作简单绘图程序第3章目录【知识点】窗体的MouseDown、MouseUp和MouseMove事件窗体的Line方法【任务描述】在本任务中创建一个简单的绘画程序。当程序运行时，可通过拖动鼠标左键连续画线，释放鼠标左键时停止画线，如图3-21所示；若单击鼠标右键，则画一条从上次画图位置出发的线段，如图3-22所示。

【任务分析】要想实现这一任务的目标，首先要定义保存鼠标在窗体中坐标的全局变量，有了全局变量，程序无论响应那一个鼠标事件，均可得到当前鼠标的坐标。用窗体的鼠标事件MouseMove和MouseDown完成连续画线，MouseUp事件结束画线。用窗体的鼠标事件MouseDown和MouseMove实现从上次画图位置到当前画直线。50／126任务4制作简单绘图程序第3章目录【知识链接】1.窗体的MouseDown、MouseUp和MouseMovePrivateSubForm_MouseDown(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)PrivateSubForm_MouseUp(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)PrivateSubFormMouseMove(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)2.窗体的Line方法 窗体名.Line(x1,y1)-(x2,y2),[颜色],[B][F]其中参数(x1,y1)是可选的，其数值类型为Single，指定直线或矩形的起点坐标。如果省略，线起始于由CurrentX和CurrentY指示的位置。参数(x2,y2)是必需的，其数值类型为Single，指定直线或矩形的终点坐标。参数color可选的，其数值类型为Long，画线时用的RGB颜色。如果省略该参数，则使用ForeColor属性值。可用RGB函数或QBColor函数指定颜色。B是可选的。如果包括，则利用对角坐标画出矩形。F是可选的。如果使用了B选项，则F选项规定矩形以矩形边框的颜色填充。不能不用B而用F。如果不用F只用B，则矩形用当前的FillColor和FillStyle填充。FillStyle的缺省值为transparent。51／126任务5创建输入框和消息框第3章目录【知识点】用InputBox函数创建输入框用MsgBox函数创建消息框窗体的Activate事件【任务描述】在本任务中创建一个应用程序，当运行程序时首先弹出一个输入框提示输入用户名，如图3-7所示；输入用户名并单击“确定”按钮后，在窗体上显示用户显示欢迎信息，如图3-8所示；当关闭窗口时将弹出一个对话框，单击“确定”按钮退出程序，单击“取消”按钮则返回窗口，如图3-9所示。

【任务分析】要想实现这一任务的目标，需要在程序窗体被激活以前通过Load事件过程调用InputBox函数来获取客户输入的信息；得到客户信息后，可使用窗体的Activate事件在窗体显示时输出得到的客户姓名。52／126程序设计过程PrivateusernameAsStringPrivateSubForm_Activate()PrintPrintPrintTab(4);"欢迎"&username&"使用本程序!"EndSubPrivateSubForm_Load()Me.FontSize=20username=InputBox("输入您的名字","欢迎您的到来")EndSubPrivateSubForm_Unload(CancelAsInteger)DimchoiceAsIntegerchoice=MsgBox("您确实要关闭窗口吗？",vbQuestion+vbOKCancel,"信息提示")Ifchoice=vbCancelThenCancel=1EndIfEndSub53／126任务5创建输入框和消息框第3章目录【知识链接】1.窗体的Activate事件2.用户对话框3.MsgBox函数4.InputBox函数54／126任务6创建标准对话框第3章目录【知识点】在窗体上添加CommandDialog控件CommandDialog控件的常用属性CommandDialog控件的常用方法【任务描述】在本任务中创建一个应用程序，当运行程序时，通过单击“改变图标”命令按钮，弹出“打开”对话框，选择图标文件，改变窗体标题栏上的图标并在窗体上显示图标文件的路径，如图3-10所示；单击“设置颜色”命令按钮，弹出“颜色”对话框，可以改变窗体上文本的颜色，如图3-11所示；单击“设置字体”命令按钮，弹出“字体”对话框，可用于设置窗体上文本的字体、样式、大小以及文本的颜色，如图3-12所示。55／126任务6创建标准对话框第3章目录【知识链接】1.通用对话框控件（CommonDialog）通用对话框控件不是标准控件工具箱中，需要添加“MicrosoftCommonDialogControl6.0”部件。调用CommonDialog控件的方法：ShowOpen：显示“打开”对话框。ShowSave：显示“另存为”对话框。ShowColor：显示“颜色”对话框。ShowFont：显示“字体”对话框。ShowPrinter：显示“打印”对话框。ShowHelp方法：显示“帮助”对话框。（1）显示“打开”对话框。（2）显示“颜色”对话框。（3）显示“字体”对话框。2.错误处理（1）OnError语句用于设置错误陷阱。（2）Err对象是一个包括关于运行错误信息的对象。56／126任务7创建多文档界面应用程序第3章目录【知识点】创建MDI窗体设置MDI子窗体创建快速显示窗体设置应用程序启动对象【任务描述】在本任务中创建一个应用程序，当启动该应用程序时首先出现一个快速显示窗体，如图3-15所示；当该窗体消失后出现一个多文档界面窗体，其中包含两个子窗体，如图3-16所示。57／126任务7创建多文档界面应用程序第3章目录【知识链接】1.多文档界面（MDI）应用程序MDI应用程序的特性创建MDI应用程序的步骤2.快速显示窗体快速显示窗口一般作为程序的封面使用，这种窗口一般没有命令按钮，没有标题栏。当出现快速显示窗口时，按任意键或鼠标单击窗口，它就会被卸载并调用应用程序主窗体。58／126第4章标准控件应用

任务1制作阴影字效果任务2制作注册窗体任务3制作登录窗体任务4改进用户注册窗体任务5创建简单选课系统任务6制作颜色编辑器任务7制作简单动画59／126任务1制作阴影字效果【知识点】

标签控件的常用属性标签控件的常用方法标签控件的常用事件控件的基本操作【任务描述】本任务说明如何应用标签控件的属性、方法和事件。在程序运行期间，若用鼠标指针指向标签文字时，则会出现阴影字效果，如图4-1所示；当鼠标指针离开标签文字时，阴影字随即消失，如图4-2所示。若单击“关闭窗口”，则结束程序运行。第4章目录60／126任务1制作阴影字效果【知识链接】1.标签控件的属性NameBackColorCaptionEnabledForeColorFontHeight和WidthLeft和TopVisibleAlignmentAutoSizeBackStyleBorderStyleWordWrap2.标签控件的方法Move方法： object.Moveleft,top,width,height3.标签控件的事件ChangeClickDblClickMouseDown和MouseUpMouseMove第4章目录61／126任务1制作阴影字效果【知识链接】4.控件的基本操作（1）添加控件。（2）选取控件。（3）移动控件。（4）调整控件大小。（5）复制控件。（6）删除控件。（7）设置控件的格式。（8）把多于两个的控件设置相同间距。第4章目录62／126任务2制作注册窗体【知识点】文本框控件的常用属性文本框控件的常用方法文本框控件的常用事件为文本框控件设置访问键【任务描述】本任务说明如何使用文本框控件的属性、方法和事件。当程序运行时，通过如图4-9所示的窗体输入用户信息，单击“确定”按钮时对输入的信息进行检查，若这些信息符合要求，则通过如图4-10所示的窗体显示出用户注册信息。第4章目录63／126任务2制作注册窗体【知识链接】1.文本框的常用属性。MaxLengthMultiLinePasswordCharScrollBarsSelLength、SelStar和SelTextTabIndexTabStopText2.文本框的常用方法object.SetFocus3.文本框的常用事件ChangeKeyDownKeyUpKeyPress4.为文本框设置访问键第4章目录64／126任务3制作登录窗体【知识点】命令按钮控件的常用属性命令按钮控件的常用事件【任务描述】在本任务中创建一个登录窗体。只要有一个文本框为空，则“确定”按钮将被禁用，如图4-10所示。当通过文本框输入用户名和密码后，“确定”按钮可用，如图4-11所示。当输入正确的用户名和密码时，隐藏登录窗体，并通过另一个窗体显示登录成功信息，如图4-12所示。若用户名或密码错误，则弹出对话框显示出错信息。第4章目录65／126任务3制作登录窗体【知识链接】1.命令按钮的常用属性CancelDefaultStyleValueToolTipText2.命令按钮的常用事件Click事件是命令按钮的最常用事件。若要为命令按钮创建Click事件过程，在窗体上双击命令按钮控件即可。第4章目录66／126任务4改进用户注册窗体【知识点】单选按钮控件的应用框架控件的应用复选框按钮控件的应用【任务描述】在本任务中创建一个用户注册窗体，其中包含文本框、单选按钮、复选框和命令按钮控件，如图4-13所示。当在用户注册窗体中输入用户信息单击“确定”按键时，隐藏用户注册窗体，打开另一个窗体并显示用户的注册信息，如图4-14所示。第4章目录67／126任务4改进用户注册窗体【知识链接】1.单选按钮控件单选按钮的属性AlignmentCaptionValue2.框架控件框架（Frame）控件为其他控件提供可标识的分组，可以在功能上进一步分割一个窗体，例如，把单选按钮控件分成几组。3.复选框控件复选框的属性AlignmentCaptionValue第4章目录68／126任务5创建简单选课系统【知识点】列表框控件的应用组合框控件的应用【任务描述】在本任务中创建了一个简单的选课系统。当从组合框中选择不同专业时，通过列表框列出相关的课程，可以从中选择所需的课程，并允许添加或删除课程，如图4-15所示；当选择一些课程并单击“确定”按钮时，通过另一个窗体列出选课结果，如图4-16所示。第4章目录69／126任务5创建简单选课系统【知识链接】1.列表框控件列表框控件的常用属性ListListCountListIndexSelCountSelectedSortedStyle列表框控件的常用方法AddItemRemoveItem2.组合框控件组合框控件的常用属性StyleText第4章目录70／126任务6制作颜色编辑器【知识点】滚动条的常用属性滚动条的常用事件【任务描述】在本任务中创建了一个颜色编辑器，通过滚动条或文本框设置红、绿、蓝三基色的比例，以生成所需的颜色值，并用于设置标签的前景颜色，如图4-17所示。第4章目录71／126任务6制作颜色编辑器【知识链接】1.滚动条的属性LargeChangeSmallChangeMaxMinValue2.滚动条的常用事件Change事件是水平滚动条和垂直滚动条的常用事件。该事件在进行滚动或通过代码改变Value属性的设置时发生。第4章目录72／126任务7制作简单动画【知识点】计时器控件的常用属性计时器控件的常用事件【任务描述】在本任务中利用计时器的Timer事件移动标签控件在窗体上的位置，以生成滚动文字效果，并允许通过复选框开启或停止动画，如图4-18所示。第4章目录73／126任务7制作简单动画【知识链接】计时器控件的常用属性EnabledInterval计时器控件的Timer事件第4章目录74／126第5章多媒体程序设计任务1绘制正弦曲线任务2绘制圆、椭圆和扇形任务3制作变换的图形任务4制作图像处理程序任务5飞舞的蝴蝶任务6制作音乐播放器任务7制作Flash动画播放器任务8制作视频播放器75／126任务1绘制正弦曲线【知识点】窗体坐标系使用颜色PSet和Line语句【任务描述】在多媒体教学时，经常需要动态地画出各种曲线进行教学演示，以加深学生对知识的理解。本任务实现的是动态绘制一个正弦曲线，效果如图5-1所示。第5章目录76／126任务1绘制正弦曲线【知识链接】1.窗体坐标系2.使用VisualBasic颜色3.PSet方法 object.PSet[Step](x,y),[color]4.Line方法 object.Line[Step](x1,y1)[Step](x2,y2),[color],[B][F]第5章目录77／126任务2绘制圆、椭圆和扇形【知识点】Circle方法应用【任务描述】在本任务中演示的是通过Circle方法在窗体上绘制圆、椭圆和扇形，效果如图5-3所示。第5章目录78／126任务2绘制圆、椭圆和扇形【知识链接】Circle方法object.Circle[Step](x,y),radius,[color,start,end,aspect]其中object是一个可选参数，用于指定执行Circle方法的对象，如果省略该参数，则以当前具有焦点的窗体作为执行对象。Step关键词是一个可选项，用此选项可将圆、椭圆或弧的中心指定为相对坐标，参考点的坐标即当前对象的CurrentX和CurrentY属性值。(x，y)和radius都是必选参数，它们的值为单精度浮点数。(x，y)用于指定圆、椭圆或弧的中心坐标。radius用于指定圆、椭圆或弧的半径。圆心坐标和半径所用的度量单位由对象的ScaleMode属性决定，默认值为1，此时的度量单位是缇（twip）。color是一个可选参数，其值是一个长整型数，用于指定圆周的RGB颜色，可以用VisualBasic预定义的符号常量来设置color参数，也可以用RGB函数或QBColor函数指定颜色。如果省略color参数，则使用窗体的ForeColor属性值。start、end和aspect也都是可选参数，它们的值为单精度浮点数。start和end以弧度为单位，取值范围为−2π～2π。当弧、或部分圆或椭圆画完以后，这两个参数指定弧的起点和终点的位置。起点的默认值是0，终点的默认值是2π。aspect参数用于指定圆的纵横尺寸比，其默认值为1.0（标准圆），当该参数不等于1时，将画出椭圆。第5章目录79／126任务3制作变换的图形【知识点】Line控件的常用属性Shape控件的常用属性【任务描述】在本任务中创建一个应用程序，运行时每单击一次按钮，会出现一个不同的图形，并用不同的颜色、效果填充，效果如图5-4所示。第5章目录80／126任务3制作变换的图形【知识链接】1.Line控件Line控件的常用属性BorderColorBorderStyleBorderWidthX1、Y1、X2、Y22.Shape控件Shape控件的常用属性BorderColorBorderStyleBorderWidthShapeFillColorFillStyle第5章目录81／126任务4制作图像处理程序【知识点】图像框控件的常用属性图像框控件的常用方法【任务描述】在本任务中创建一个应用程序，用于对图像进行放大、缩小、水平翻转或垂直翻转处理，效果如图5-5～5-8所示。第5章目录82／126任务4制作图像处理程序【知识链接】1.图像框控件的常用属性AutoRedrawAutoSizeHeightWidthPicture2.图像框控件的常用方法（1）PaintPicture： object.PaintPicturepicture,x1,y1,width1,height1,x2,y2,width2,height2,opcode（2）LoadPicture object.Picture=LoadPicture([filename])第5章目录83／126任务5飞舞的蝴蝶【知识点】图像控件的应用计时器控件的应用【任务描述】在本任务中制作一个简单的动画程序，有一只蝴蝶在窗体的图像框中不断地飞舞，通过命令按钮可以控制蝴蝶的运动和停止，效果如图5-9所示。第5章目录84／126任务5飞舞的蝴蝶【知识链接】图像控件的主要属性PictureStretchTag图像控件的Move方法 object.Moveleft,top,width,height第5章目录85／126任务6制作音乐播放器【知识点】用Declare声明API函数通过调用API函数mciSendString执行相关命令【任务描述】在本任务中制作一个音乐播放器，用于播放MP3、MIDI和WAV文件并对播放过程进行控制，结果如图5-10所示。第5章目录86／126任务6制作音乐播放器【知识链接】1.Declare语句[Public|Private]DeclareSubnameLib"libname"[Alias"aliasname"][([arglist])][Public|Private]DeclareFunctionnameLib"libname"[Alias"aliasname"][([arglist])][Astype]2.API函数mciSendStringAPI函数mciSendString函数使用字符串作为操作命令来控制媒体的设置，常用的操作命令如下。Open：打开媒体设备。Close：关闭媒体设备。Play：播放媒体设备。Pause：暂停播放媒体文件。Stop：停止播放媒体文件。Seek：设置播放位置。Set：设置设备状态。Status：确定设备当前的状态。第5章目录87／126任务7制作Flash动画播放器【知识点】

在工具箱中添加ShockwaveFlash控件

ShockwaveFlash控件的常用属性

ShockwaveFlash控件的常用方法【任务描述】在本任务中制作一个Flash动画播放器，用于打开Flash动画文件（.swf）并对播放过程进行控制（播放、停止、重播），运行效果如图5-11所示。第5章目录88／126任务7制作Flash动画播放器1.ShockWaveFlash控件的常用属性ShockWaveFlash控件的常用属性如下。（1）Movie：指定要播放的Flash动画文件。（2）TotalFrames：返回总共帧数。（3）CurrentFrame：返回当前帧编号。2.ShockWaveFlash控件的常用方法ShockWaveFlash控件的常用方法如下。（1）Play：开始播放动画。（2）Back：跳到动画的上一帧。（3）Forward：跳到动画的下一帧。（4）Rewind：返回动画的第一帧。（5）Stop方法：暂停Flash动画播放。第5章目录89／126任务8制作视频播放器【知识点】添加WindowsMediaPlayer控件。WindowsMediaPlayer控件的常用属性。【任务描述】在本任务中制作一个视频播放程序，用于播放Windows视频文件和电影文件并对播放过程进行控制。运行结果如图5-12所示。第5章目录90／126任务8制作视频播放器【知识链接】1.媒体播放器控件的主要属性MediaPlayer控件的主要属性如下。URLenableContextMenufullScreenstretchToFituiModeplayState2.媒体播放器控件的主要对象（1）controls相关属性和方法：通过WindowsMediaPlayer.controls可以对播放器进行控制并取得相关的一些信息。

controls.play方法：播放媒体。

controls.stop方法：停止播放。

controls.pause方法：暂停播放。

controls.currentPosition属性：返回当前播放进度。

controls.currentPositionString：返回时间格式的字符串，例如“0:32”。（2）currentMedia相关属性：通过WindowsMediaPlayer.currentMedia可以取得当前媒体的信息。

currentMedia.duration：返回媒体的总长度。

currentMedia.durationString：返回时间格式的字符串，例如“4:34”。（3）settings：通过WindowsMediaPlayer.settings可以对播放器进行设置，包括设置音量和左右声道等。

settings.volume：设置音量，设置为0～100。

settings.balance：设置立体声的左声道和右声道的音量。第5章目录91／126第6章菜单和工具栏设计任务1制作写字板程序任务2为写字板添加工具栏92／126任务1制作写字板程序

【知识点】菜单控件RichTextBox控件StatusBar控件Clipboard对象【任务描述】在本任务中制作一个写字板程序，要求在窗体上添加系统菜单和ActiveX控件RichTextBox，并通过菜单命令打开文件、保存文件以及完成常见的编辑操作，程序运行效果如图6-1所示。第6章目录93／126任务1制作写字板程序

【设计步骤】打开菜单编辑器第6章目录94／126任务1制作写字板程序

【设计步骤】添加RichTextBox控件从“工程”菜单中选择“部件”命令。在“部件”对话框的“控件”选项卡中，选中“MicrosoftRichTextboxControl6.0”旁边的复选框。单击“确定”按钮。添加通用对话框控件。从“工程”菜单中选择“部件”命令。在“部件”对话框的“控件”选项卡中选中“MicrosoftCommonDialogControl6.0”旁边的复选框。单击“确定”按钮。添加状态栏控件。从“工程”菜单中选择“部件”命令。在“部件”对话框的“控件”选项卡中选中“MicrosoftWindowsCommonControl6.0”旁边的复选框。单击“确定”按钮。第6章目录95／126任务1制作写字板程序

【知识链接】1.菜单控件菜单控件的常用属性CaptionCheckedEnabledIndexNameShortcutVisibleWindowList菜单控件的只有一个事件，即Click事件。2.RichTextBox控件RichTextBox控件的常用属性FileNameMaxLengthMultiLineRightMarginScrollBarsSelAlignmentSelBold、SelItalic、SelStrikethru、SelUnderlineSelBulletSelCharOffsetSelColorSelFontNameSelFontSizeSelHangingIndent、SelIndent、SelRightIndentSelLength、SelStart、SelTextSelRTFSelTabCount、SelTabsTextRTFRichTextBox控件的常用方法FindGetLineFromCharLoadFileSaveFileSelPrint第6章目录96／126任务1制作写字板程序

【知识链接】3.状态栏控件状态栏（StatusBar）控件提供窗体，该窗体通常位于父窗体的底部，应用程序通过这一窗体可以显示各种状态数据。StatusBar最多能被分成16个Panel对象，这些对象包含在Panels集合中。4.Clipboard对象Clipboard对象的常用方法ClearGetDataGetTextSetDataSetText第6章目录97／126任务2为写字板添加工具栏【知识点】工具栏控件图像列表控件为工具栏按钮编写事件过程【任务描述】在任务1已经创建了一个写字板程序，本任务在这个写字板应用程序的基础上向窗体上添加一个工具栏，使得用户可以快速访问一些常用的菜单命令，包括“文件”菜单中的“新建”、“打开”、“保存”、“打印”以及“编辑”菜单中的“剪切”、“复制”、“粘贴”等命令，如图6-9所示。第6章目录98／126任务2为写字板添加工具栏【任务分析】工具栏主要用于快速访问使用频繁的菜单命令。要制作工具栏，需要用到两个ActiveX控件：Toolbar和ImageList。Toolbar控件可以提供所需要的按钮，ImageList控件则为每个工具按钮提供图像。要把工具栏按钮与菜单命令关联起来，可对工具栏的ButtonClick事件编程。【设计步骤】添加一个ImageList控件，向其中添加图像。添加一个Toolbar控件，把控件Toolbar1与控件ImageList1关联起来。向工具栏中添加按钮。第6章目录99／126任务2为写字板添加工具栏【知识链接】1.工具栏控件工具栏控件的常用属性ButtonsImageList工具栏控件的ButtonClick事件PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)2.图像列表控件图像列表（ImageList）控件包含ListImage对象的集合，该集合中的每个对象都可以通过其索引或关键字被引用。ImageList控件不能独立使用，只是作为一个便于向其它控件提供图像的资料中心。第6章目录100／126第7章文件访问与管理

任务1制作图片浏览器任务2制作记事本程序任务3制作学生信息管理系统任务4制作文本浏览器101／126任务1制作图片浏览器【知识点】驱动器列表框目录列表框文件列表框【任务描述】在本任务中使用文件管理控件制作一个图片浏览器，可以从不同驱动器上的不同文件夹中选择图片文件并在窗体上显示图片，程序运行效果如图7-1所示。【任务分析】在本任务中，需要同时使用驱动器列表框、目录列表框和文件列表框，为了使这些控件之间彼此同步，可以对驱动器列表框和目录列表框的Change事件过程编程。为了在用户从文件列表框中选择一个图片时显示该图片，可以对文件列表框的Click事件过程编程。第7章目录102／126任务1制作图片浏览器【知识链接】1.驱动器列表框控件常用属性DriveListListCountListIndexChange事件，该事件当改变所选择的驱动器，即选择一个新的驱动器或通过代码改变Drive属性的设置时发生。2.目录列表框控件常用属性ListListCountListIndexPathChange事件，该事件在双击一个新的目录从而改变所选择的目录，或者通过代码改变Path属性的设置时发生。3.文件列表框控件常用属性Archive、Hidden、Normal和SystemFileNameListListCountListIndexMultiSelectPathPattern文件列表框的常用事件ClickPathChangePatternChange第7章目录103／126任务2制作记事本程序【知识点】打开顺序文件从文件中读取字符串把字符串写入文件【任务描述】在本任务中制作一个类似于记事本的文本编辑程序，可以用于打开、编辑和保存文本文件，运行结果如图7-2所示。【任务分析】制作记事本程序时可使用文本框作为显示、输入和编辑文本的容器，并通过Open语句来打开顺序文件。要从已打开的顺序文件中读出数据并将数据指定给变量，可通过Input#语句来实现；要把数据写入顺序文件中，可通过Print#语句来实现。完成文件读写后，还需要通过Close#语句关闭文件。第7章目录104／126任务2制作记事本程序【知识链接】1