《Visual Basic程序设计教程》全套教学课件

VisualBasic

程序设计教程

全套可编辑PPT课件第1章VisualBasic入门.pptx第2章窗体及其操作.pptx第3章VB程序设计语言基础.pptx第4章数据输入与输出.pptx第5章程序控制结构.pptx第6章VisualBasic常用标准控件.pptx第7章使用数组.pptx第8章过程.pptx第9章菜单、工具栏与对话框设计.pptx第10章多重窗体与MDI窗体程序设计.pptx第11章文件操作.pptx第12章VB数据库编程技术.pptx第一章VisualBasic入门CHAPTER了解VisualBasic熟悉VB6.0集成开发环境与VB工程VB应用程序开发步骤与开发基础163VisualBasic是

Microsoft公司

推出的，在Windows操作系统上运行的可视化的、面向对象的、采用事件驱动方式的高级程序设计语言。同时，VisualBasic也是一套完全独立的集成开发系统，它为开发Windows应用程序提供了迅速、便捷的方法。1.1了解VisualVisualBasic是Windows环境下最具吸引力的程序设计语言之一，它是从Basic语言发展而来的，继承了Basic语言易学易用的特点。1.1.1VisualBasic的特点实例1-1——VB的安装与启动1.1.2VisualBasic版本简介SectionVisualBasic1.1了解VisualBasicVisualBasic既是指VisualBasic编程语言，也指VisualBasic（以下简称VB）集成开发环境。VB集成开发环境功能非常强大，用户可以借助它来构建程序界面，编写程序代码，以及调试程序等，如右图所示。1.1.1VisualBasic的特点VB集成开发环境1）可视化编程“Visual”一词的意思是“视觉的，可视的”，因此，VB语言是一种可视化的编程语言。使用VB开发图形用户界面时，不再需要编写大量代码去描述界面元素的外观和位置，只要按照所见即所得的方式把预先建立的对象拖放到屏幕上并为其设置合适的属性值即可。如右图所示。VB编程语言是一种非常规范的面向对象的编程语言，用它编写的程序非常规范、清晰易读。因此，VB目前被很多学校作为非计算机专业学生学习编程的教学语言。总体而言，VB主要有如下一些特点：以可视化方式构建程序界面2）面向对象编程VB采用了面向对象（ObjectOrientedProgramming，简称OOP）的程序设计思想，它的基本思路是把复杂的程序设计问题分解为一个个能够实现独立功能的相对简单的对象。例如，可以把窗口分解为多个按钮控件、菜单控件、工具条控件等，编写程序时，我们只要针对窗口和各控件进行编程即可。在Windows环境下，程序的运行是以事件驱动的，即用户必须通过鼠标、键盘操作来“指示”电脑下面要干什么，这些“指示”就是所谓的“事件”。在VB中，当用户在搭建好用户界面后，主要的编程任务就是编写事件处理程序，即当某一事件发生时（如移动鼠标、按下按键、单击某个按钮等），系统将调用该事件处理程序来处理该事件。3）事件驱动机制VB的特点4）强大的数据库处理功能VB提供了强大的数据库处理功能，利用其数据控件和数据访问对象几乎可以访问和处理任何数据库，如Access、SQLServer等。5）强大的交互式集成开发环境VB集成开发环境的功能非常强大，例如，用户可借助它来设计程序界面，在输入程序代码时，系统会自动给出各种提示并能及时捕捉拼写错误；在调试程序时，系统能准确定位错误位置，显示出错信息等。此外，在该集成开发环境下，用户还可以把应用程序编译成可在Windows中直接运行的可执行文件，还可为应用程序生成安装程序包，这为程序开发者提供了极大的方便。1.1了解VisualBasic1.1.1VisualBasic的特点VB的特点1991年，Microsoft公司开发出了基于GUI（GraphicsUserInterface，图形用户界面）的VisualBasic1.0版；之后，随着Windows操作平台的不断完善，微软公司相继推出了VisualBasic的后续版本；到1998年，VisualBasic已经发展到了6.0版。此后，由于C#、Java、PHP等逐渐成为主流编程语言，Microsoft公司放弃了对VisualBasic的后续开发。Microsoft公司针对VisualBasic6.0提供了三种版本，它们分别是学习版、专业版和企业版，以满足不同的需求。由于企业版功能最为强大也最为流行，因此，本书将以该版本为基础进行讲解。实例1-1VB的安装与启动实例1-1VB的安装与启动1.安装VBone用户既可以直接从光盘安装VB6.0，也可以把光盘文件复制到硬盘之后再安装。VB的安装过程比较简单，其简要安装步骤如下：步骤1将VB6.0安装光盘插入CD-ROM驱动器中。如果光盘驱动器的“自动运行”功能是打开的（默认都是打开的），则插入光盘后，安装程序会自动执行；否则，就需要运行光盘根目录下的“Setup.exe”程序。若是复制到硬盘上再安装，则必须运行安装目录下的“Setup.exe”程序。步骤2选择安装类型。安装程序在用户输入合法的产品序列号后，提供了三种安装选择：典型安装、自定义安装和最小化安装。初学者一般可选择典型安装，有经验的用户可根据自己的需要进行自定义安装。1.安装VBone步骤3设置安装路径。VB系统缺省的安装路径为C:\ProgramFiles\MicrosoftVisualStudio\VB98，用户也可根据需要指定其他安装文件夹。步骤4复制文件。完成以上设置后，安装程序会把需要的文件从光盘解压缩后复制到硬盘上指定的文件夹中，并在“开始”菜单中创建“MicrosoftVisualBasic6.0中文版”程序组。步骤5如果需要使用VB6.0的帮助文档，还需要另外安装MSDN。系统在安装完VB6.0后会提示用户安装该文档。步骤6重新启动系统后，就可以运行VisualBasic6.0程序开发软件了。2.启动VBtwoVB安装结束并重新启动系统后，就可以像运行Windows中其他应用程序那样启动VB6.0集成开发环境了。

要启动VB，可首先单击任务栏上的“开始”按钮，选择“所有程序”，然后在“MicrosoftVisualBasic6.0中文版”子菜单中单击“VisualBasic6.0中文版”选项。

此外，用户也可通过在“我的电脑”或“Windows资源管理器”窗口中双击现有的VB工程文件来启动VB6.0集成开发环境。1.2熟悉VB6.0集成开发环境与VB工程1.2.1VB集成开发环境1.2.2关于VB工程Section启动VB6.0后，系统会首先打开“新建工程”对话框，如下图所示。

该对话框有三个选项卡，其功能有：“新建”选项卡用于建立新的工程。该选项卡下列出了VB6.0可以建立的应用程序类型。不过，对初学者而言，一般选择默认的“标准EXE”选项即可。“现存”选项卡用来选择和打开现有工程。“现存”选项卡列出了最近使用过的工程。“新建工程”对话框在“新建”选项卡中选择“标准EXE”选项，然后单击“打开”按钮，即可进入VB6.0应用程序集成开发环境了，如下图所示。VB6.0集成开发环境工程资源

管理器标题栏工具栏工具箱窗体

设计器菜单栏属性

窗口窗体布局

窗口总体而言，VB6.0集成开发环境和大多数Windows软件使用界面都差不多，因此，下面仅简要介绍一下其主要界面组成元素的用途和特点。1.标题栏与菜单栏one标题栏中显示了当前VB工程的名称，菜单栏中各菜单项及其子菜单提供了一组开发、调试VB应用程序和设置VB集成开发环境的命令。2.工具栏two工具栏位于菜单栏的下方，它提供了对常用命令的快速访问。单击工具栏上的按钮，则执行该按钮所代表的操作。启动VB后，一般只显示“标准”工具栏。除此之外，VB还提供了“编辑”“窗体编辑器”和“调试”工具栏。用户可以通过选择“视图”>“工具栏”菜单中的工具栏名称来打开或关闭各工具栏。3.工具箱three与工具栏不同，工具箱中提供的是一组应用程序控件。在设计窗体时，用户可以首先在工具箱中单击选中某个控件，然后在窗体中单击并拖动，即可在指定位置创建一个大小适当的控件对象，如下图所示。在窗体中创建对象提示双击工具箱中的控件按钮，可在窗体的中心位置创建一个缺省尺寸的控件对象。

若当前集成开发环境中没有显示工具箱，可选择“视图”菜单中的“工具箱”命令或单击“标准”工具栏中的“工具箱”按钮来显示它。4.窗体设计器four窗体是应用程序最终面向用户的窗口，使用窗体设计器可以通过可视化的方法直观地设计窗体及其包含的可视控件的初识外观、显示位置和其他属性等。当新建一个工程文件时，VB会自动建立一个空的新窗体，并命名为“Form1”。在VB中，每个窗体都有唯一的名称，以后再新建窗体时，其默名称分别为Form2、Form3等。不过，用户可以利用下面将要介绍的属性窗口修改窗体名称和提示信息，如下图所示。利用属性窗口修改窗体名称和窗体标题内容此外，窗体设计器中有很多网格，主要是为了方便用户设置窗体中各种控件对象的位置和尺寸，在运行应用程序时网格将不可见。5.工程资源管理器Five

工程是指用户开发应用程序时所创建的各种窗体、模块应用程序等文件的集合。工程信息保存在工程文件中，工程文件的扩展名是.vbp。保存在磁盘中的窗体文件名窗体名，在应用程序中使用启动VB时，用户创建的工程默认名称为“工程1”。要想修改工程名称，可首先在工程资源管理器中单击工程名，然后在属性窗口中修改工程名称，如右图所示。工程资源管理器用来管理当前工程中包含的各类文件，其显示文件的方式与Windows资源管理器显示文件夹的方式相仿。在VB中能建立多种类型的工程，其中最常用的是标准EXE类型的工程。提示若当前集成开发环境中没有显示工程资源管理器，可选择“视图”菜单中的“工程资源管理器”命令，单击工具栏中的“工程资源管理器”按钮

，或者按【Ctrl+R】组合键来显示它。修改工程名6.属性窗口six属性窗口的组成如右图所示，它主要用来查看或设置工程、窗体和控件的名称及各种属性。其中，属性是指对象的特征，如控件标题的内容、字体、字号和颜色，控件的位置和尺寸等。对象下拉列表框属性列表框属性含义说明属性窗口利用属性窗口上方的对象下拉列表可选择要设置或查看其属性的对象。此外，属性窗口中还可以分别以“按字母序”或“按分类序”两种方式显示对象属性。若当前集成开发环境中没有显示属性窗口，可选择“视图”菜单中的“属性窗口”命令，单击“标准”工具栏中的“属性窗口”按钮，或者按【F4】键来显示它。1.工程及其文件one如前所述，VB中的工程用来管理应用程序中所包含的各类文件，且工程信息保存在工程文件中（工程文件的扩展名为.vbp）。因此，在VB中，要开发一个应用程序，就要创建一个工程。1）了解工程及其文件组成我们新建了一个“标准EXE”工程，并且重新命名了窗体和工程，此时单击“标准”工具栏中的“保存工程”按钮，系统将打开“文件另存为”对话框，提示用户保存窗体文件。打开“保存在”下拉列表，选择保存窗体文件的文件夹；在“文件名”编辑框中输入要保存的窗体文件名（参考右图），然后单击“保存”按钮，即可保存窗体文件。保存窗体文件1.工程及其文件one1）了解工程及其文件组成接下来系统会自动打开“工程另存为”对话框，如右图所示。默认情况下，系统会自动将工程文件与窗体文件保存在同一个文件夹中。如果需要的话，用户还可以重新设置工程文件名。设置结束后，单击“保存”按钮，保存工程文件。保存工程文件1.工程及其文件one1）了解工程及其文件组成下图显示了指定文件夹中保存的窗体文件和工程文件。以后要打开该工程，可以直接在“我的电脑”窗口找到该工程文件并双击它即可。工程文件及窗体文件1.工程及其文件one2）工程中主要的文件类型VB工程中主要可包括如下3类文件（参见下图，详见下一页）：保存在磁盘中的工程文件名工程名，在应用程序中使用VB工程中的文件类型1.工程及其文件one2）工程中主要的文件类型窗体文件用来保存窗体设计信息及窗体中包含的程序代码。如果应用程序中包含了多个窗体，则工程中将包含多个窗体文件。窗体文件的扩展名为.frm。模块文件用来保存专门编写的程序模块。同样，工程中也可包含多个模块文件。模块文件的扩展名为.bas。设计器文件如果需要开发数据库应用程序，则需要向工程中增加设计器文件，这类文件主要用来保存数据库信息，以便VB应用程序操作数据库。设计器文件的扩展名为.Dsr。1.工程及其文件one3）向工程中添加文件要向工程中添加窗体、模块或设计器等，可以分别选择“工程”菜单中的“添加窗体”“添加模块”或“添加DataEnvironment”等命令。也可在工程资源管理器中右击，打开其快捷菜单，从中选择“添加”菜单中的各菜单项，如右图所示。工程资源管理器快捷菜单如果执行“添加窗体”命令，系统将打开如下图所示的“添加窗体”对话框。默认情况下，窗体类型列表区中的“窗体”类型被选中，如果此时直接单击“打开”按钮，则系统将向工程中添加一个新的空白窗体。3）向工程中添加文件“添加窗体”对话框1.工程及其文件one如果在窗体类型列表区中选择““关于”对话框”“对话框”等选项，则可向工程中添加相应类型的窗体。如果选择“VB数据窗体向导”，则系统会自动打开“数据窗体向导”，用户可根据向导提示创建一个用来管理数据库的窗体。如果希望将现有窗体添加到工程中，可打开“添加窗体”对话框的“现存”选项卡，然后选择希望添加到工程中的窗体。向工程中添加模块、设计器文件的方法与添加窗体类型，此处不再赘述。3）向工程中添加文件1.工程及其文件one1.工程及其文件one要想将选定的窗体、模块等文件从当前工程中移除（只是不再属于工程，但文件还在），可在工程资源管理器窗口中右击该文件，然后从弹出的快捷菜单中选择“移除×××”，如右图所示。此外，借助工程资源管理器快捷菜单，用户还可以保存、另存或打印文件。3）从工程中移除文件工程资源管理器快捷菜单2.工程属性two如果需要的话，用户还可以为工程设置属性，为此，可以选择“工程”菜单中的“工程属性”命令，打开“工程属性”对话框，如右图所示。利用“工程属性”对话框可以设置工程的类型、名称和启动对象。默认情况下，工程的启动对象是工程中第一个创建的窗体。不过，如果用户在某个模块文件中编写了“SubMain”过程，也可将该过程设置为启动对象。“工程属性”对话框1.3VB应用程序开发步骤与开发基础1.3.1VB集成开发环境1.3.2关于VB工程Section实例1-2——制作第一个VB程序实例1-2制作第一个VB程序实例1-2制作第一个VB程序编制一个应用程序，运行时显示一个窗口，其中包括了一个内容为“我的第一个VB程序”标签，以及“白色窗体”“红色文本”和“结束程序”3个按钮，其运行效果如下图所示。（1）单击“白色窗体”按钮时，将窗体的背景颜色设置为白色。（2）单击“红色文本”按钮时，将标签中文本的颜色（前景色）设置为红色。（3）单击“结束程序”按钮时，结束程序的运行。要求程序运行效果1.创建工程one启动VB，在出现的“新建工程”对话框中直接单击“打开”按钮，进入VB集成开发环境。此时，系统将自动创建一个名为“工程1”的工程，且该工程的窗体设计器中显示了一个有待设计的空白窗体，其默认名称为Form1。实例1-2制作第一个VB程序2.设计应用程序界面two步骤1单击选中工具箱中的Label控件图标

，然后将鼠标指针定位在窗体中的适当位置（此时鼠标指针呈十字状），拖动鼠标，画出适当大小的标签，其默认名称为Label1。步骤2双击3次工具箱中的CommandButton控件图标

，在窗体中心位置创建3个标准尺寸的命令按钮，其名称分别为Command1、Command2和Command3。步骤3用鼠标拖动前面创建的标签和3个命令按钮，将它们调整到合适的位置，如右图所示。窗体中创建1个标签和3个命令按钮并移动其位置实例1-2制作第一个VB程序提示按住【Ctrl】或【Shift】键，单击窗体中的对象，可同时选中多个对象，然后选择“格式”菜单中“对齐”“统一尺寸”“水平间距”“垂直间距”等子菜单中的各种命令，可统一调整这些控件在窗体中的位置、大小及间距。实例1-2制作第一个VB程序3.设置对象属性three步骤1在窗体设计器中单击选中窗体中的Label1对象，在其属性窗口左侧的属性名称中单击“Caption”，将其右侧的默认属性值“Label1”修改为“我的第一个VB程序”。步骤2在属性名称中单击“Font”，然后单击右侧的按钮，打开“字体”对话框，设置标签控件的字体大小为“四号”，如左图所示。设置标签控件的Font属性步骤3在窗体设计器中单击选中Command1对象，双击其属性窗口左侧的属性名称“Caption”，然后在其右侧的文本框中输入“白色窗体”四字，并参照步骤2修改其字体、字号为“楷体”“小四”。3.设置对象属性three步骤4参照步骤3，分别设置Command2的Caption属性为“红色文本”，Command3的Caption属性为“结束程序”，其Font属性均为楷体、小四。步骤5在窗体空白处单击，利用属性窗口设置其Caption属性为“窗体”，结果如右图所示。设置对象属性后效果实例1-2制作第一个VB程序实例1-2制作第一个VB程序4.编写程序代码four根据要求，需要在代码窗口编写相应的程序来处理单击3个按钮时需要完成的任务，具体操作如下：步骤1双击窗体中的“白色窗体”按钮，打开代码窗口，此时系统已自动给出Command1对象Click事件过程的过程头和过程尾，如右图所示。代码窗口实例1-2制作第一个VB程序4.编写程序代码four步骤2在过程头和过程尾之间输入以下程序代码：Form1.BackColor=vbWhite该事件过程的功能是：当鼠标单击Command1按钮时，将窗体的背景颜色设置为白色。其中，vbWhite为系统预定义常量，表示白色。实例1-2制作第一个VB程序4.编写程序代码four提示在代码窗口中输入“Form1.”时，代码窗口的“自动列出成员”功能会自动启动，并会自动列出当前对象的属性与方法供用户选择（参见图1-21），此时只要双击选择某个属性或方法即可。所谓方法，是指一组与对象相关的子程序，它们分别用于完成不同的功能。例如，窗体的Hide方法和Show方法分别用来隐藏和显示窗体。在“自动列出成员”列表中，属性以标识，方法以标识。另外，某些方法有参数，某些方法没有参数。代码窗口的“自动列出成员”功能4.编写程序代码four实例1-2制作第一个VB程序步骤3在代码窗口的对象下拉列表中选择Command2，在其Click事件过程中输入以下程序代码：Label1.ForeColor=vbRed该事件过程的功能是：当鼠标单击Command2按钮时，将标签文本的颜色设为红色。实例1-2制作第一个VB程序4.编写程序代码four步骤4在代码窗口的“对象”下拉列表中选择Command3，在其Click事件过程中输入以下程序代码：End该事件过程的功能是：当鼠标单击Command3按钮时，将结束程序运行。至此，程序设计工作结束，编写的3个事件过程如下图所示。实例1-2制作第一个VB程序事件过程代码4.编写程序代码four5.保存程序Five

实例1-2制作第一个VB程序步骤1单击工具栏中的“保存工程”按钮，打开“文件另存为”对话框。打开“保存在”下拉列表，选择希望保存窗体文件的文件夹；在“文件名”编辑框中输入要保存的窗体文件名“Form1-2-1.frm”，如左侧上图所示。步骤2单击“保存”按钮，保存窗体文件。接下来系统将自动打开“工程另存为”对话框，在“文件名”编辑框中输入要保存的工程文件名“课堂实例1-2.vbp”，如左侧下图所示。单击“保存”按钮，保存工程文件。“文件另存为”对话框与“工程另存为”对话框6.属性窗口six实例1-2制作第一个VB程序单击“标准”工具栏中的“启动”按钮，或者按【F5】键，执行当前的应用程序。如果程序出现错误或未能实现要求，则需要进行调试修改，直到正确为止。此外，VB提供了多种终止程序运行的方法，例如，单击“标准”工具栏中的“结束”按钮，关闭窗体，单击事先定义好的结束程序运行的按钮等。如果需要的话，用户还可单击“标准”工具栏中的“中断”按钮，临时中断程序，然后在修改好程序后单击“标准”工具栏中的“启动”按钮继续运行程序。提示当程序处于运行状态时，工具箱、属性窗口等被自动关闭，并且工具栏中的很多工具都变成了不可使用的灰色，如下图所示。因此，要修改程序，用户必须首先退出程序运行状态。处于运行状态的应用程序7.生成可执行文件seven对于调试好的程序，选择“文件”菜单中的“生成……”命令，可将该程序生成能够脱离VB集成环境而在Windows平台上独立运行的可执行文件（.exe文件）。本例中，选择“文件”菜单下的“生成课堂实例1-2.exe”命令，打开如右图所示的“生成工程”对话框。选择文件保存路径并输入文件名，然后单击“确定”按钮即可。“生成工程”对话框实例1-2制作第一个VB程序8.执行可执行文件eight退出VB后，在硬盘上找到保存的文件“课堂实例1-2.exe”，双击运行程序并观察程序运行结果。实例1-2制作第一个VB程序实例1-2制作第一个VB程序9.程序的打包与发布nine对于一些复杂的程序，用户可能需要生成带安装程序的程序包。为此，可选择“外接程序”菜单中的“外接程序管理器”命令，打开“外接程序管理器”对话框。在“可用外接程序”列表中单击选中“打包和展开向导”，然后单击“确定”按钮，如左图所示。“外接程序管理器”对话框实例1-2制作第一个VB程序9.程序的打包与发布nine接下来系统将打开如下左图所示“打包和展开向导”对话框，单击“打包”按钮，即可按照向导生成应用程序的标准安装包，如下右图所示。以后用户只要执行setup.ex程序，系统会自动把应用程序安装到计算机中，并会在“开始”菜单中创建相应的菜单项。“打包和展开向导”对话框标准安装包文件本例详细介绍了一个VB应用程序的完整开发步骤。虽然程序功能很简单，但其开发步骤完全适用于其他大型VB程序的开发。由该例可以看出，在VB中开发应用程序的步骤大致如下：实例1-2制作第一个VB程序建立工程保存程序设置

对象属性编写

程序代码停止Stop开始Start运行

调试程序生成

可执行文件程序打包与发布在VB集成开发环境中，窗体布局窗口用来设置窗体启动时在屏幕上的位置。对于代码窗口，我们在前面已多次使用，由于此窗口使用较多，故此处再做一些介绍。窗体布局窗口主要用来指定应用程序运行时窗体的初始位置，如下图所示。该窗口中的黑色区域为虚拟的显示器窗口，Form1小图像为虚拟的当前窗体。使用鼠标直接拖动Form1小图像可调整其位置。当程序运行时，当前窗体就会显示在真实显示器窗口的相应位置。1.窗体布局窗口one虚拟的显示

器窗口虚拟的当前窗体“窗体布局”窗口1.窗体布局窗口one另外，在虚拟屏幕上选中窗体后，右击鼠标会弹出一个快捷菜单，选择“启动位置”子菜单中的命令，用户可以方便地设置应用程序启动时窗体在屏幕上的位置，这几个选项的意义如下：Windows缺省屏幕中心手工所有者中心窗体的位置随机确定。窗体将显示在调用它窗口的中心。窗体将显示在屏幕的中心。窗体将显示在屏幕的左上角。提示若当前集成开发环境中没有显示窗体布局窗口，可选择“视图”菜单中的“窗体布局窗口”命令，或单击“标准”工具栏中的“窗体布局窗口”按钮。2.代码窗口two通过前面的例子，大家已经看到，代码窗口主要用于为窗体或模块文件编写程序。要打开代码窗口，有以下3种方法。选择“视图”菜单中的“代码窗口”命令。双击窗体编辑器中的控件或者窗体。选中工程资源管理器中的一个窗体或标准模块，然后单击“查看代码”按钮

。如下图所示，代码窗口主要由以下几个部分组成：过程下拉列表框代码编辑区对象下拉列表框过程查看按钮全模块查看按钮代码窗口对象下拉列表框显示选定对象的名称。单击下拉列表框中的下拉箭头，可显示窗体中所有对象的名称。需要特别注意的是，其中的“（通用）”选项表示通用代码，与特定对象无关，一般用于声明模块级变量或编写自定义过程。此时过程名称为“（声明）”。过程下拉列表框显示与选定对象相关的事件过程名称（或用户自定义过程名）。单击下拉列表框中的下拉箭头，可显示当前选定对象的所有事件过程名称。代码编辑区选定对象名称和事件名称后，代码框中将显示所选对象的事件过程模板，用户只需在模板内输入相应的程序代码即可。过程/全模块查看按钮单击这两个按钮，可以查看所选过程或当前模块中全部过程的代码。很多人在学习面向对象的程序设计时都感到比较困难，尤其是一些概念感到不好理解。为此，我们下面再来简要介绍一些与面向对象程序设计相关的概念，以便读者更好地学习VB。1.类与对象one类是对象的模型，规定了对象的公共特征和功能。对象是类的具体实例，它继承了类的特征和功能，但用户可以设置对象的特征值并使用类提供的功能。例如，“人”属于类，每个人属于对象。“人”具有人的共同特征，例如，都有头、胸、腿等。但是，具体到每个人，其长相、身高、体重等又有所不同。提示程序设计角度来看，类相当于封装了数据与程序的实体。由于对象源于类，因此，对象也可以这样看。同样，VB中的窗体和工具箱中的控件都是类（控件类）。当用户创建具体的窗体，以及在窗体上画出具体的控件时，这个具体的窗体和控件便成为类的实例，即对象。在应用程序中，我们只能针对对象进行编程，例如，修改对象的属性值，为对象编写事件处理程序，以及调用对象的方法等。2.对象与对象属性two每一个对象都需要有一组属性来描述其特征，如大小、位置和色彩等。如前所述，我们可以利用属性窗口来设置对象的属性。3.对象的事件和事件过程three事件（Event）是能够被对象识别和响应的动作。VB中的事件分为系统事件和用户事件两类。系统事件由系统触发，如窗体的Load事件在加载窗体时由系统触发；用户事件则由用户操作触发，如单击窗体或按钮时将分别触发窗体或按钮的Click事件。当对象上发生某一事件后，对象对该事件的反应是通过事件过程来实现的。因此，VB编程很大程度上就是编写各种事件处理程序。要为某个对象编写事件处理程序，可首先在代码窗口的“对象”下拉列表中选择该对象，再在“过程”下拉列表选择该对象需响应的事件，然后编写事件处理程序即可。在VB中，大多数对象都有多个可能发生的事件，此时务必搞清楚每个事件触发的条件，然后决定响应哪些事件，最后再为所要响应的事件编写事件处理程序。4.对象的方法four方法是内置于对象的一组特殊子程序（由类继承而来），用于让对象完成某项操作。一个对象可以有多个方法，每个方法都代表着对象为用户提供的一种功能，如窗体的Hide和Show方法分别用来隐藏和显示窗体。VB通过程序代码调用方法的格式为：Debug.Print“你好!”创建孔特征对象名称.方法名称例如：4.对象的方法four运行时，程序将会在“立即”窗口中显示字符串“你好！”。这里的Debug对象表示“立即”窗口（该窗口主要用来调试程序）。如果调用方法时省略了“对象名称”，那么所调用的方法被默认为当前对象的方法。因此，如果当前对象为窗体，若将前面的例子改为：Print"你好!"则运行程序时将在当前窗体中显示字符串“你好！”。THEEND谢谢观看！VisualBasic

程序设计教程

第二章窗体及其操作CHAPTER窗体的结构与属性窗体事件与方法2.1窗体的结构与属性2.1.1窗体结构2.1.2窗体属性Section窗体主要由标题栏和窗体区域两部分构成。标题栏上从左至右依次为系统菜单图标、窗体名称、最小化按钮、最大化按钮和关闭按钮。单击窗体左上角的系统菜单图标，将显示一个系统命令菜单。若在运行程序时双击该图标，将关闭窗口。一是在设计程序时利用属性窗口设置二是运行应用程序时通过程序代码设置窗体属性决定了窗体的外观和操作。用户可以用如下两种方法来设置窗体属性：大部分属性既可以在设计时在属性窗口中设置，也可以利用程序代码设置，而有些属性只能用程序代码或属性窗口设置。通常把只能通过属性窗口设置的属性称为“只读属性”，如窗体的名称就是只读属性，在应用程序运行期间是不能修改的。1.

Name（名称）ONE该属性用来定义窗体的名称，它是在程序代码中使用的对象名，它与对象的标题（Caption）属性完全是两回事。Name属性属于只读属性，在程序运行期间是不能改变的。提示在属性窗口中，Name属性通常位于属性列表的最上方，并显示为“（名称）”和属性值，如左图所示。属性窗口中的Name属性2.

Caption（标题）TWO该属性用来定义窗体的标题。启动VB或者执行“工程”菜单中的“添加窗体”命令后，窗体使用的是默认标题，如Form1、Form2等。通过设置Caption属性可以把窗体标题改为所需要的名字。该属性既可以通过属性窗口设置，也可以通过程序代码设置，其格式如下：窗体名称.Caption[=字符串]例如提示值得指出的是VB中窗体和控件的很多属性既可用于设置属性值，也可以用于返回属性值。具体是哪种情况，取决于如何使用属性。如果属性位于赋值语句中“=”的左侧，则表示设置属性值。否则，如果属性位于赋值语句中“=”的右侧，则表示获取属性值，如前面的例子所示。Form1.Caption="VisualBasicTest"上述语句的作用是把窗体标题设置为“VisualBasicTest”。如果省略“=字符串”，则系统将返回窗体的当前标题。例如：DimmyFormCasString '定义字符串变量myForm=Form1.Caption '获取窗体标题2.1窗体的结构与属性2.1.2窗体属性3.

Height、Width（高、宽）three这两个属性用来指定或返回窗体的高度和宽度（含边框和标题栏），其单位为twip（缇）。缇是一个与屏幕无关的单位，用来保证应用程序对屏幕元素的定位和比例在所有的显示系统上的一致性。一缇等价于1/20个打印机的磅。一逻辑英寸大约有1440缇，一逻辑厘米约567缇（打印时的一英寸或一厘米所对应的屏幕上的长度）。例如：'在窗体被加载时，将窗体的大小设置为屏幕大小的百分之七十五并使窗体居中显示PrivateSubForm_Click()Width=Screen.Width*.75 '设置窗体的宽度Height=Screen.Height*.75 '设置窗体的高度Left=(Screen.Width-Width)/2 '在水平方向上居中显示Top=(Screen.Height-Height)/2 '在垂直方向上居中显示EndSub这两个属性用来设置或返回窗体顶边和左边距屏幕顶边和左边的距离，单位为twip。对于控件对象而言，Left和Top分别指控件的左边和顶边与窗体的左边和顶边的相对距离。4.

Top、Left（顶边、左边位置）three5.

BackColor（背景颜色）Five

设置背景颜色该面板有两个选项卡，默认显示“系统”选项卡，其中给出了系统的配色方案。要选择某种颜色，可直接单击选择。如果希望选择其他颜色，可打开“调色板”选项卡，然后单击选择某种颜色，如左图所示。设置背景颜色在VB中，颜色是通过一组十六进制数表示的，其格式是在两个&之间包含一个以H开头的8位16进制数，如&HED34755&。该属性用来设置窗体的背景颜色。在属性窗口中单击选中BackColor属性，单击右侧出现的下拉箭头

，系统将显示一个面板，如左图所示。6.

BorderStyle（边框类型）six设

置

值含

义0-None窗体无边框1-FixedSingle固定单边框。此时窗体标题栏中只包含控制菜单按钮、窗体标题和关闭窗口按钮。程序运行时窗口大小不能调整2-Sizable（默认值）可调整的边框。窗体标题栏中可包含控制菜单按钮、窗体标题，以及窗口最大化、窗口最小化和关闭窗口按钮。程序运行时窗口大小可调3-FixedDialog固定对话框。与1-FixedSingle作用相同4-FixedToolWindow固定工具窗口。与1-FixedSingle、3-FixedDialog作用相同，但标题栏高度被压缩5-SizableToolWindow可变大小工具窗口。作用同4-FixedToolWindow，但程序运行时窗口大小可调VisualBasic该属性用于确定窗体边框的类型，共有六个预定义值，其意义如表所示：BorderStyle属性是“只读属性”，它只能在设计阶段设置，不能在程序运行期间修改。要改变BorderStyle的属性值，可以通过双击属性名称“BorderStyle”进行切换，也可以在右侧的下拉列表中进行选择，如图所示。设置BorderStyle属性除窗体外，BorderStyle属性还可用于多种控件。但是对于不同的控件，其设置值并不完全一样。7.

Picture（图像）seven该属性用于为窗体设置背景图像，如图所示：为窗体设置背景图像在设计阶段，从属性窗口中单击选择该属性，单击右侧出现的

按钮，将打开“加载图片”对话框。利用该对话框选择一个图像文件，即可将该图像作为窗体背景。该属性的缺省值为“（None）”，表示未指定图像。设置图像后，其数值变为“（Bitmap）”。要删除设置的图像，可双击属性值，然后按【Del】键。该属性支持多种格式的图像文件，如.JPG.、BMP、.WMF、.GIF等。该属性用于控制窗体在应用程序运行时是否允许使用。其默认值为True，表示在程序运行时窗体可用。如果将该属性值设置为False，表示在程序运行时禁止使用该窗体。此时窗体将呈浅灰色，表示窗体出于不活动状态8.Enabled（允许）eight该属性既可以在设计时在属性窗口中设置，也可以在程序运行期间通过程序代码设置，其格式如下：对象.Enabled[=Boolean值]提示窗体被禁止时，其窗口控制按钮和窗体中的各种对象均无法操作。9.

Visible（可见性）nine该属性用来控制程序应用程序运行时窗体是否可见。如果将该属性设置为False，表示隐藏窗体；如果设置为True，表示窗体可见。对象.Visible[=Boolean值]对于窗体而言，设置其Visible属性值为True，相当于调用窗体的Show方法；类似地，设置Visible属性值为False，相当于调用窗体的Hide方法。如下例所示：Form1.Visible=True '设置Visible属性值为TrueForm1.Show '调用窗体的Show方法Form1.Visible=False '设置Visible属性值为FalseForm1.Hide '调用窗体的Hide方法该属性既可在设计时设置，也可用程序设置。利用程序设置该属性的格式如下：提示只有在运行程序时，该属性才起作用。也就是说，在设计阶段，即使把窗体或控件的Visible属性设置为False，窗体也仍然可见，程序运行后才会消失。默认情况下，应用程序运行时，只有启动窗体可见，其他窗体被自动隐藏。要显示其他窗体，可设置该窗体的Visible属性值为True或者调用该窗体的Show方法。10.

ControlBox（控制框）ten该属性用来设置是否在窗体的标题栏中显示控制菜单按钮，以及窗口最大化、最小化、关闭等控制按钮，其默认值为True。如果将该属性设置为False，即使在设计状态，窗体的标题栏中也将不再显示控制菜单按钮，以及窗口最大化、最小化、关闭等控制按钮。11.Icon（图标）eleven该属性用来设置窗体最小化时的图标。通常把该属性设置为.ICO格式的图标文件。如果在设计阶段设置该属性，可以从属性窗口的属性列表中单击选择该属性，然后单击设置框右侧的

按钮，再从打开的“加载图标”对话框中选择一个图标文件。Moveable属性用于设置应用程序运行时窗口是否可以移动，其默认值为True，此时用户可以在窗口标题栏区单击并拖动来移动窗口在屏幕上的位置。如果将该属性值设置为Flase，则窗口将不能再被移动。12.

MousePointer（鼠标指针）与Moveable（可移动）twelveMousePointer属性用于设置当应用程序运行时，当鼠标位于窗口内时鼠标指针的形状。鼠标指针的默认形状为

，通过修改MousePointer属性，可设置鼠标指针形状为

、

、

、

等。13.

StartUpPosition（窗口启动位置）thirteen1-所有者中心窗口显示在所属项目的中心。0-手工未指定初始位置2-屏幕中心窗口显示在屏幕中心。该属性用于设置当应用程序运行时，窗口启动时的初始位置。其默认值为“3-窗口缺省”，表示窗口的初始位置为屏幕的左上角。其他几个选项的意义如下：14.

WindowState（窗口状态）fourteen该属性用来设置应用程序运行时窗口的状态。该属性既可以在属性窗口设置，也可以用程序代码设置，具体的格式如下：对象.WindowState[=设置值]WindowsState的设置值可为0、1、2，各数值的含义如下：0：窗口处于正常状态。1：最小化窗口。2：最大化窗口。2.2窗体事件与方法2.2.1常用的窗体事件实例2-1——使用鼠标绘制线条2.2.2常用的窗体方法Section实例2-2——编写加法计算程序1）Activate（活动）事件与Deactivate（不活动）事件当一个窗口变为活动窗口时将触发Activate事件，当一个窗口不再是活动窗口时将触发Deactivate事件。可以通过在运行应用程序时在窗体中单击，将窗体的Visible属性设置为True，调用窗体的Show方法或SetFocus方法来激活窗体，从而触发窗体的Activate事件。VB的常用窗体事件2）Click（单击）事件与DblClick（双击）事件在窗口内用鼠标单击窗口空白处将触发Click事件，用鼠标双击窗口空白处将触发DbClick事件。所谓“双击”，实际触发了两个事件，第一次按键时触发Click事件，第二次按键时触发DblClick事件。提示对于不同的控件，产生Click事件的时机可能稍有不同。例如，当一个命令按钮获得焦点时用户按下空格键也会产生命令按钮的Click事件。3）DragDrop（拖放）事件与DragOver（拖动）事件当一个完整的拖放动作完成后，将触发DragDrop事件；当用户进行拖放操作时将触发DragOver事件，可使用此事件对鼠标指针在一个有效目标上的进入、离开或停顿等进行监控。例如：'将一个PictureBox控件拖放到另一个PictureBox控件上，即将一幅图像拖到'另一幅图像上PrivateSubPicture3_DragDrop(SourceAsControl,XasSingle,YAsSingle)IfTypeOfSourceIsPictureBoxThen'将Picture3位图设置为与源控件相同Picture3.Picture=Source.PictureEndIfEndSubPrivateSubPicture1_DragOver(SourceAsControl,XAsSingle,_YAsSingle,StateAsInteger)SelectCaseStateCasevbEnter 'vbEnter常数数值为0，表示源控件拖入目标 '装载图标Source.DragIcon=LoadPicture("ICONS\ARROWS\POINT03.ICO")CasevbLeave 'vbLeave常数数值为1，表示源控件拖出目标Source.DragIcon=LoadPicture() '卸载图标EndSelectEndSub

PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.DragIcon=LoadPicture() '卸载图标EndSub又如，当一个TextBox控件被拖过一个PictureBox控件时，指针从缺省的箭头变为特定的图标。当源被拖到其他地方时，指针恢复到缺省的状态。4）

GotFocus（获得焦点）事件与LostFocus（失去焦点）事件当窗体获得焦点时将触发GotFocus事件，当窗体失去焦点时将触发LostFocus事件。其中，窗体获得焦点可以通过按【Tab】键，在窗体中单击，或用代码调用窗体的SetFocus方法来实现。同时，只有当窗体的Enabled和Visible属性都设置为True时，窗体才能接收焦点。5）KeyDown（按下按键）事件与KeyUp（松开按键）事件当窗体获得焦点时，按下或松开某个按键将分别触发KeyDown事件与KeyUp事件。这两个事件的过程定义如下：PrivateSubForm_KeyDown(keycodeAsInteger,shiftAsInteger)PrivateSubForm_KeyUp(keycodeAsInteger,shiftAsInteger)'响应F2键以及与F2键与Alt，Shift和Ctrl组合的键盘处理程序PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)DimShiftDown,AltDown,CtrlDown,TxtShiftDown=(ShiftAndvbShiftMask)>0 '是否按下Shift键AltDown=(ShiftAndvbAltMask)>0 '是否按下Alt键CtrlDown=(ShiftAndvbCtrlMask)>0 '是否按下Ctrl键IfKeyCode=vbKeyF2Then '如果按下F2键 '如果同时按下Shift、Ctrl和Alt键 IfShiftDownAndCtrlDownAndAltDownThen Txt="Shift+Ctrl+Alt+F2." ElseIfShiftDownAndAltDownThen Txt="Shift+Alt+F2." ElseIfShiftDownAndCtrlDownThen Txt="Shift+Ctrl+F2.” 其中，keycode为键代码，shift用来指明是否按下或松开了【Shift】、【Ctrl】或【Alt】键（分别对应值1、2、4）。如果同时按下或松开了【Shift】、【Ctrl】或【Alt】键，则将其对应数值相加。例如，如果shift为6，表示同时按下或松开了【Ctrl】和【Alt】键。例如：ElseIfCtrlDownAndAltDownThen Txt="Ctrl+Alt+F2." ElseIfShiftDownThen Txt="Shift+F2." ElseIfCtrlDownThen Txt="Ctrl+F2." ElseIfAltDownThen Txt="Alt+F2." ElseIfShift=0Then Txt="F2." EndIf Print"Youpressed"&TxtEndIfEndSub6）KeyPress（按下并松开按键）事件当用户按下和松开一个ANSI键时将触发该事件，具有焦点的对象接收该事件。该事件的过程定义如下：PrivateSubForm_KeyPress(keyasciiAsInteger)7）MouseDown（按下鼠标按键）事件、MouseUp（释放鼠标按键）事件当鼠标指针在窗体中，用户按下鼠标按键时将触发MouseDown事件；当鼠标指针在窗体中，用户释放鼠标按键时将触发MouseUp事件。这两个事件的过程定义如下：PrivateSubForm_MouseDown(buttonAsInteger,shiftAsInteger,xAsSingle,_ yAsSingle)PrivateSubForm_MouseUp(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)button返回一个整数，用于表明用户按下或释放了鼠标的左键、右键或中键（分别对应数值1、2、4）。shift用来指明是否同时按下或松开了【Shift】、【Ctrl】或【Alt】键（分别对应值1、2、4）。x，y返回鼠标指针的当前坐标。8）

MouseMove（移动鼠标）事件当鼠标指针在窗体中移动时将触发MouseMove事件。MouseMove事件伴随鼠标指针在对象间移动时连续不断地产生。除非有另一个对象捕获了鼠标，否则，当鼠标指针在对象的边界范围内时，该对象就能接收MouseMove事件。该事件的过程定义如下：PrivateSubForm_MouseMove(buttonAsInteger,shiftAsInteger,xAsSingle,_ yAsSingle)DimPaintNowAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)PaintNow=True '启动绘图EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)PaintNow=False '禁止绘图EndSub例如，下面演示了一个简单的绘图应用程序。当任意鼠标按钮按下并拖动时，MouseDown事件过程和一个相关的MouseMove事件过程协同工作以启动绘图。MouseUp事件过程禁止绘图。PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfPaintNowThenPSet(X,Y) '画一个点EndIfEndSubPrivateSubForm_Load()DrawWidth=10 '使用更宽的刷子ForeColor=RGB(0,0,255) '设置绘图颜色EndSub9）Load（装入）事件与Unload（卸载）事件当应用程序加载窗体时将自动触发Load事件；当从内存中清除一个窗体（关闭窗体或执行窗体的UnLoad方法）时将触发Unload事件。例如，下面给出了一个关闭窗体时弹出询问对话框（是否保存数据）的例子。PrivateSubForm_Unload(CancelAsInteger)DimMsg,Response '声明变量Msg="SaveDatabeforeclosing?“ '显示一个带帮助按钮及“是”“否”按钮的询问对话框Response=MsgBox(Msg,vbQuestion+vbYesNoCancel,"SaveDialog")SelectCaseResponseCasevbCancel '不允许关闭 Cancel=-1 Msg="取消操作！"CasevbYes '这里输入保护数据的代码。Msg="数据已保存！"'CasevbNo Msg="数据未保存！"EndSelectMsgBoxMsg,vbOKOnly,"确认" '显示信息EndSub1）Hide（隐藏）方法与Show（显示）方法这两个方法分别用于隐藏和显示窗体。如下例所示：该方法用于使窗体获得焦点。例如：2）SetFocus（设置焦点）方法VB的常用窗体方法Form1.Hide '隐藏窗体Form1.Show '显示窗体Form1.SetFocus '使窗体获得焦点调用SetFocus方法以后，任何的用户输入将指向指定的窗体。此外，如果窗体的Enabled属性设置为False，此时由于窗体被禁止，故SetFocus方法无效。3）Cls（清除）方法该方法用来清除在窗体中输入的文本或绘制的图形。例如：Form1.Cls ‘清除在窗体中输入的文本或绘制的图形4）Circle（画圆）方法与Line（画线）方法Circle方法用于在窗体中绘制圆、椭圆或弧，其过程定义如下：object.Circle(x,y),radius,[color,start,end,aspect](x，y)：指定圆、椭圆或弧的中心坐标。color：指定圆、椭圆或弧轮廓线的颜色。objec：窗体名称，如Form1等。如果省略Object，则对象为当前获得焦点的窗体。radius：指定圆、椭圆或弧的半径。start和end：以弧度为单位指定弧的起点和终点位置，其范围从-2π到2π。start的缺省值是0，end的缺省值为2π。过程定义中各参数的意义aspect：设置圆的纵横尺寸比，缺省值为1.0，表示绘制正圆。例如，为窗体的Click事件编写如下程序，则每次在窗体中单击，都可绘制一组不同颜色的同心圆。SubForm_Click()DimCX,CY,Radius,Limit'声明变量.ScaleMode=3 '以像素为单位。当使用图形方法或调整控件 '位置时，该值指示对象坐标的度量单位CX=ScaleWidth/2 '圆心的X坐标。ScaleWidth为窗体的内部宽度CY=ScaleHeight/2 '圆心的Y坐标。ScaleHeight为窗体的内部高度IfCX>CYThenLimit=CYElseLimit=CX 'Limit取CX与CY之中的较小值ForRadius=0ToLimit '执行0到Limit次循环，Radius每次加1 'Rnd函数用来产生0到1之间的随机数 Circle(CX,CY),Radius,RGB(Rnd*255,Rnd*255,Rnd*255)NextRadiusEndSub5）Line（画线或绘制矩形）方法该方法用于在窗体中绘制直线或矩形，其过程定义如下：object.Line(x1,y1)-(x2,y2),[color],[B][F]01(x1，y1)-(x2，y2)：指定直线或矩形的起点和终点坐标。如果省略(x1,y1)，则线起始坐标由CurrentX和CurrentY确定。03B：利用对角坐标绘制矩形。04F：如果使用了B选项，则F选项规定矩形以矩形边框的颜色填充。02color：设置直线或矩形轮廓线颜色。实例2-1使用鼠标绘制线条在本例中，我们将编写一个使用鼠标在窗口中绘制线条的小程序，其效果如图所示。本例主要用到了MouseDown（按下鼠标左键）和MouseMove（移动鼠标）两个事件，并用到了Line方法。使用鼠标绘制线条步骤1新建一个“标准EXE”工程，在默认的Form1窗体下方绘制一个命令按钮，并将其Caption属性设置为“清除窗口”。步骤2在工程资源管理器窗口中单击上面的“查看代码”

按钮，打开代码窗口。打开对象下拉列表，选择“（通用）”，然后输入以下语句：VB中可使用英文状态下的单引号“'”为程序代码添加注释。上述代码中，每行“'”后面的内容即为注释。注释的作用是方便自己或他人理解程序，以便将来可以方便地进行程序维护和修改。不过，注释并不会影响程序的运行结果。DimsngdrawwidthAsSingle'模块级变量，保存线条宽度提示步骤3在对象下拉列表中选择Command1，此时Click事件被自动选中。在Command1_Click()事件过程中输入如下代码：PrivateSubCommand1_Click() Form1.Cls '清除窗口EndSub步骤4在对象下拉列表中选择Form，在事件过程列表中选择ouseDown，然后在事件过程中输入如下代码：CurrentX和CurrentY属性为窗体属性，但这两个属性设计时不可用，故未出现在属性窗口中窗体的属性列表中。

CurrentX、CurrentY与DrawWidth属性的严格用法应为Form1.CurrentX、Form1.CurrentY和Form1.DrawWidth，但由于MouseDown事件过程为Form1的事件过程，故属性前的对象名可以省略不写。'按下鼠标事件PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_ XAsSingle,YAsSingle)IfButton=1Then '如果按下鼠标左键CurrentX=X:CurrentY=Y '记录鼠标指针所在位置，将其作为 '在窗口中绘图时的起始坐标sngdrawwidth=1 '设置初始线宽为1DrawWidth=sngdrawwidth '设置在窗口中绘制线条的宽度属性 'DrawWidth（初始值为1）EndIfEndSub提示步骤5在事件过程列表中选择MouseMove，然后在事件过程中输入如下代码：'移动鼠标事件PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,_ XAsSingle,YAsSingle)DimlngdrawcolorAsLong '定义绘制线条时的颜色变量IfButton=1Then '如果按下鼠标左键IfShift=1Then '如果同时按下Shift键lngdrawcolor=RGB(255,0,0) '设置颜色变量为红色ElseIfShift=2Then '如果同时按下Ctrl键lngdrawcolor=vbGreen '设置颜色变量为绿色ElseIfShift=4Then '如果同时按下Alt键lngdrawcolor=&HFF0000 '设置颜色变量为蓝色EndIfsngdrawwidth=sngdrawwidth+0.1 '加宽线条DrawWidth=sngdrawwidth '为DrawWidth属性赋值Line-(X,Y),lngdrawcolor '画线。起点坐标为CurrentX， 'CurrentY，终点坐标为鼠标指针 '所在位置，线条颜色为lngdrawcolorEndIfEndSub值得说明的是，由于MouseMove事件在移动鼠标指针的过程中连续产生，因此，随着鼠标指针的移动，线条被不断加宽。“新建工程”对话框此时代码窗口如图所示:步骤6按住鼠标左键并拖动，绘制线条。按住【Shift】键，按住鼠标左键并拖动，绘制线条。按住【Shift】键，按住鼠标左键并拖动，绘制线条。按住【Shift】键，按住鼠标左键并拖动，绘制线条。单击“清除窗口”按钮，清除窗口中的内容。步骤7单击“标准”工具栏中的“保存工程”按钮

，保存窗体和工程文件。单击“标准”工具栏中的“启动”按钮

，执行当前的应用程序。分别测试以下内容：实例2-2编写加法计算程序编写加法计算程序，程序运行初识界面如图所示。（1）当单击“输入”按钮时，系统出现输入对话框要求输入第一加数，输入并确定后，该数据显示在第一个文本框中，并要求输入第二加数。要求“加法计算程序”初始运行界面（2）输入第二加数并确定后，该数据显示在第二个文本框中，此时“计算”按钮可用而其他两个按钮不可用。（3）单击“计算”按钮时，结果显示在第三个文本框中，“输入”按钮和“退出”按钮可用而“计算”按钮不可用。（4）单击“退出”按钮时，关闭当前窗体，结束程序运行。步骤1启动VB6.0后，首先建立一个标准工程。步骤2适当调整窗体大小，在窗体上画出4个标签控件、3个文本框控件和3个按钮控件，如图所示。“加法计算程序”窗体设计效果步骤3按照表所示设置窗体的属性。属性名称属性值Caption加法计算程序BackColor浅灰色（&H00E0E0E0&）BorderSt