Visual Basic 60教程.doc

VB6程序设计芅蚅羁肅蒇袁羇肄薀螄袃肃蚂薆膁肃莂螂肇肂蒄薅羃肁薆螀衿膀芆薃螅腿莈蝿肄膈薀薁肀膇蚃袇羆膇莂蚀袂膆蒅袅螈膅薇蚈肇膄芇袃羃芃荿蚆衿节蒁袂螅节蚄蚅膃芁莃薇聿芀蒆螃羅艿薈薆袁芈芈螁螇莇莀薄肆莆蒂蝿羂莆薄薂袈莅芄螈袄莄蒆蚀膂莃蕿袆肈莂蚁虿羄莁莁袄袀羈蒃蚇螆肇薅袃肅肆芅蚅羁肅蒇袁羇肄薀螄袃肃蚂薆膁肃莂螂肇肂蒄薅羃肁薆螀衿膀芆薃螅腿莈蝿肄膈薀薁肀膇蚃袇羆膇莂蚀袂膆蒅袅螈膅薇蚈肇膄芇袃羃芃荿蚆衿节蒁袂螅节蚄蚅膃芁莃薇聿芀蒆螃羅艿薈薆袁芈芈螁螇莇莀薄肆莆蒂蝿羂莆薄薂袈莅芄螈袄莄蒆蚀膂莃蕿袆肈莂蚁虿羄莁莁袄袀羈蒃蚇螆肇薅袃肅肆芅蚅羁肅蒇袁羇肄薀螄袃肃蚂薆膁肃莂螂肇肂蒄薅羃肁薆螀衿膀芆薃螅腿莈蝿肄膈薀薁肀膇蚃袇羆膇莂蚀袂膆蒅袅螈膅薇蚈肇膄芇袃羃芃荿蚆衿节蒁袂螅节蚄蚅膃芁莃薇聿芀蒆螃羅艿薈薆袁芈芈螁螇莇莀薄肆莆蒂蝿羂莆薄薂袈莅芄螈袄莄蒆蚀膂莃蕿袆肈莂蚁虿羄莁莁袄袀羈蒃蚇螆肇薅袃肅肆芅蚅羁肅蒇袁羇肄薀螄袃肃蚂薆膁肃莂螂肇肂蒄薅羃肁薆螀衿膀芆薃螅腿莈蝿肄膈薀薁肀膇蚃袇羆膇莂蚀袂膆蒅袅螈膅薇蚈肇膄芇袃羃芃荿蚆衿节蒁 1.1.1 VB6新特点l 增强了数据访问功能：ADO（ActiveX Data Object）l 更强大的Internet应用开发功能l 新增和加强了一些控件l 添加和增强了些向导1.2 VB6的集成开发环境VB6提供给用户的使用界面是一个集成开发环境，它在一个公共的环境中集成了设计、编辑、编译和调试等功能。1.2.1 启动集成开发环境1.2.2 集成开发环境的组成在VB6的集成开发环境中，通常显示有标题栏、控制菜单图标、窗口操作按钮、菜单栏、工具栏、窗体设计器、工程管理器、属性窗口、工具箱和窗体布局窗口。此外，还可以根据需要打开代码窗口、调色板、对象浏览器、菜单编辑器和三个用于程序调试的窗口：立即窗口、本地窗口和监视窗口。1.2.3 集成开发环境的菜单1.2.4 集成开发环境的选项设置1.3 使用VB的帮助系统l 联机帮助l 上下文相关帮助51第二章 VB6编程初步2.1 VB编程的基本概念2.1.1 Windows的工作机制Windows系统的工作机制可用三个词来概括：窗口、事件和消息。Windows系统的工作界面是由各种窗口组成的，所谓窗口是指屏幕上的一个矩形区域。事实上，对话框、文本框、图标、命令按钮和打开的菜单等，都可看作窗口。Windows系统给每一个窗口指定一个唯一的标识号，即窗口句柄，并通过窗口句柄来管理所有窗口。Windows系统中的事件可简单地理解成一种操作活动。它可以是由鼠标和键盘的操作产生，也可以由系统内部产生，甚至是由某个程序运行或窗口操作产生。Windows系统不断地监视着系统中每一个窗口的活动和每一个事件的发生。所谓消息是指事件的信号。每发生一件事件，就引发一条消息。Windows系统处理这条消息，并把它向系统中程序的各个窗口广播。各个窗口根据其程序中处理该消息的代码指令作出响应。2.1.2 Windows应用程序的事件驱动运行模式Windows应用程序的运行是事件（可以是用户通过鼠标和键盘操作产生，也可以是系统内部通过时钟计时产生，甚至也可以是由程序运行或窗口操作触发产生）驱动模式，是通过执行响应不同事件的程序代码进行运行的。因此，在使用VB提供的事件驱动的程序设计机制编写Windows应用程序时，是对程序中的对象需要响应的事件分别编写出程序代码。2.1.3 创建VB应用程序的步骤l 建立工程l 设计应用程序的界面l 设置界面对象的属性l 编写程序代码l 保存程序l 执行并调试程序l 生成可执行程序文件2.2 创建一个简单的VB应用程序该应用程序运行时将显示一个窗口，其中有“切换”和“退出”两个按钮：单击“切换”按钮，窗口的一个文本框中将交替显示红色的“VB编程不难学”和蓝色的“只要认真下功夫”文字；单击“退出”按钮，将清除窗口并退出程序。第三章 VB6的工程管理工程是在VB中进行Windows应用程序设计的一个重要概念。所谓工程就是组成一个应用程序的文件的集合。使用VB创建一个应用程序时，首先必须为它建立一个工程，在应用程序设计过程中，通过工程来管理应用程序所包含的所有文件。3.1 VB的工程在VB中可建立多种类型的工程，这里主要介绍标准EXE类型工程的建造和管理。3.1.1 工程工程是组成一个应用程序的文件的集合，一个工程通常包括以下几种类型的文件：l 工程文件（.vbp）l 窗体文件（.frm）l 窗体二进制数据文件（.frx）l 类模块文件（.cls）l 标准模块文件（.bas）l ActiveX控件文件（.ocx）l 资源文件（.res）3.1.2 工程管理器工程的操作管理主要是在工程管理器中进行。工程管理器窗口中显示当前工程所包含的文件列表。3.2 工程的基本操作工程的基本操作主要包括创建、打开和保存工程，在工程中添加、删除和保存文件，以及在工程中添加控件和对象等。l 创建、打开和保存工程l 在工程中添加、删除和保存文件l 在工程中添加和删除控件部件、对象和资源文件3.3 工程的属性设置 通用属性设置l 工程类型l 启动对象l 工程名称l 帮助文件名l 工程帮助上下文标识符l 工程描述l ActiveX控件升级 生成的可执行文件属性设置l 版本号 编译属性设置第四章 VB6编程基础VB应用程序的结构、代码窗口的使用、VB代码的书写规则、数据类型、变量、常量、数组、过程和结构控制语句等。4.1 VB代码编写基础4.1.1 VB应用程序的结构一个VB应用程序通常是由多种类型的文件组成的，其中最常见的是窗体模块、标准模块和类模块。这些模块都可以包含声明和过程。1、 窗体模块在窗体模块中包含窗体及其控件的属性设置值，同时还包含在该窗体的代码窗口中编写的对常量、变量、类型和外部过程的声明以及Sub、Function和Property过程。2、 标准模块标准模块存放与特定窗口或控件无关的代码，通常是其他模块共同使用的声明和过程的代码。3、 类模块类模块用来定义类，并可用它创建被应用程序中的过程所调用的对象。4.1.2 代码编辑窗口VB的代码编辑器具有一定智能，可同步显示相应的语法成份结构的提示，能自动填充语句、属性和参数，使代码编写更加方便。4.1.3 代码的书写规则VB程序代码不区分大小写。VB程序代码的主要的书写规则：l 可用续行符“ _”（一个空格后跟一个下划线）将一个长语句分成多行书写l 当一行中有多条语句时，语句间用冒号“：”分隔l 注释以注释符“”（单引号）引导，可放在一行语句的最后，或单独占据一行，但不能放在续行符的后面；注释也可以用关键字“Rem”引导，但它必须占据一行l VB中缺省数制是十进制数，也可以使用加前缀“&H”和“&0”分别表示的十六进制和八进制数l 标识符是为程序代码中的变量、常量、类型、过程、函数、类和其他对象的命名。VB中标识符的命名有如下规则：（1） 标识符必须是字母开头，后跟字母、数字或下划线（2） 标识符长度不能超过255个字符，其中窗体、控件、类和模块的标识符长度不能超过40个字符（3） 不能与VB中受到限制的关键字同名4.2 数据类型一个变量的数据类型指出该变量能存储何种类型的数据。VB提供了许多基本数据类型，用户也可以根据需要自定义数据类型。4.2.1 基本数据类型VB的基本数据类型见P46表4.2.1，注意它们的类型名、类型符、占用字节数和表示范围。例：Dim YesorNo As BooleanDim A As Byte,B As ByteDim I As IntegerDim L As LongDim A As SingleDim P As CurrencyDim X As Double,Y As DoublePrivate S As StringDim Name As String*20Dim D As DateDim VDim a%,b&,c!,d# a为整型，b为长整型，c为单精度型，d为双精度型，为货币型，$为字符串型YesorNo=12A=&H0F:B=&H01A=A+BX=1.88E18:Y=2.01D16X=X*YS=”Database”S=Left(S,4)D=#4/6/1999 8:30:50PM#V=”17”V=V-15V=”U”&V除了可以像其它标准类型一样操作外，Variants类型变量还包含四个特殊值：Empty，Nothing，Null和Error。4.2.2 用户自定义数据类型格式：Private|Public Type varname elementname as type End Type例：Private Type StuRecord Name As String*30 Birthday As Date Other As VariantEnd As VariantDim Record1 As StuRecord,Record2 As StuRecordRecord1.Name=”Abc”4.2.3 枚举类型在模块的声明段用Enum语句来声明枚举类型，例如：Private Enum ElementSet Sun Mon TueEnd Enum4.3 变量与常量在应用程序执行期间，变量用来存储可能变化的数值，常量表示固定不变的数值。通常，在使用变量和常量前必须事先声明，并且它们有着自己的有效范围。4.3.1 变量变量有名字，它是用来引用变量所包含的数据的标识符；变量具有数据类型，以确定变量能够存储的数据种类。l 变量的命名应遵循标识符命名的规则l 一般应用变量声明语句声明变量（显式声明、隐式声明、有效范围）4.3.2 常量VB中有两种常量，一种是系统预定义的常量，还有一种是用户定义的常量。l 用户定义常量的命名l 用户定义常量的声明Public|Private Const constantname As type=expressionl 用户定义常量的有效范围4.4 数组数组是指具有相同的数据类型的有序数据的集合，即一个数组中的所有元素具有相同的数据类型。当声明了Variant类型的数组时，其元素能够包含不同类型的数据。4.4.1 大小固定的数组1、 数组的命名2、 数组的声明根据声明的数组的有效范围不同，有三种方法声明大小固定的数组。l 过程级数组，在该过程中用Dim语句声明，例：Dim Number(10) As Integer或Dim K(1 To 5)或Static State(10) As Booleanl 模块级数组，在模块的声明段中用Private或Dim语句声明，例：Private A(10) As Integer或Dim Address(1 To 50) As String*30l 全局级数组，在模块的声明段中用Public语句声明，例：Public Price(10) As Double或Public Name(1 To 50) As String*203、 数组的引用Dim n As IntegerDim Number(10) As IntegerFor n=0 To 10 Number(2)=2Next n4、 多维数组例：Dim I As Integer,J As IntegerStatic MatrixA(1 To 10,1 To 10) As DoubleFor I=1 To 10 For J=1 To 10 MatrixA(I,J)=I*10+J Next JNext I4.4.2 动态数组1、 动态数组的声明l 过程级动态数组：Dim dynArray()或Dim dynList() As Singlel 模块级动态数组：Private dynA() As Integer或Dim dynArray()l 全局级动态数组：Public dynArray() As Double或Public dynList()2、 动态数组的定义动态数组声明后并不能立即使用，还必须在使用它的过程中，用ReDim语句对它的维数和上下界进行定义。例：ReDim dynArray(1 To 10)ReDim dynArray(2,1 To N)注意：l ReDim语句通常是一个执行语句，只能在过程中使用l 可使用ReDim语句反复改变动态数组的维数和上下界，但一般不能修改它的数据类型4.5 运算符和表达式4.5.1 运算符运算符是表示实现某种运算功能的符号。按运算的操作对象和操作结果的不同数据类型，VB中的运算符有自述运算符、连接运算符、比较运算符、逻辑运算符和位运算符等多种类型。1、 算术运算符算术运算符用来进行数学计算。P58表4.5.1按优先级别从高到低的顺序列出了VB中的算术运算符。例：V=232V的值为64，Double类型V=-(3.14+12)*5.2/3V=13.145.8V的值为13除以5的商2，Long类型V=15.14 Mod 3.8V的值为15除以4的余数3，Long类型2、 连接运算符连接运算符用来连接两个字符串。3、 比较运算符比较运算符，亦称关系运算符，被用作两个表达式之间的比较操作，结果是一个布尔类型的量。P59表4.5.3列出了VB中的比较运算符。4、 逻辑运算符逻辑运算符用作逻辑类型表达式之间的逻辑操作，结果一般是一个布尔类型的量。P60表4.5.4列出了逻辑运算符及它们运算的结果。5、 位运算符位运算符用于实现对操作数的二进制位操作。VB使用逻辑运算符作为位运算符，分别被称为按位取反（NOT）、按位与（AND）、按位或（OR）、按位异或（XOR）、按位相等（EQV）和按位蕴含（IMP）。4.5.2 表达式VB中的表达式是由常量、变量、运算符、函数和圆括号组成的有意义的式子。根据表达式结果的数据类型，可把表达式分为数值表达式、字符表达式和逻辑表达式等。在书写VB中的表达式时应注意以下几点：l 优先顺序从高到低排列为：函数-算术运算-比较运算符-逻辑运算符l 使用圆括号可明显地反映运算顺序或改变原定的优先顺序l 如有必要，应使用类型转换函数对表达式中操作数的数据类型进行转换，而尽可能不用VB的数据类型自动转换功能，以免不必要的错误4.6 过程过程是构成程序的逻辑模块，一般能完成一个相对独立的功能。利用过程能使程序结构模块化，以便于程序的开发、调试和维护；同时，利用过程还能实现多个程序对它的共享，可降低程序设计的工作量，提高软件开发的工作效率。在VB中有3种过程：Sub过程、Function过程和Property过程。4.6.1 Sub过程Sub过程，亦称为子过程，是实现某一特定功能的代码段。它或者由程序调用，或者由事件触发，没有返回值。Sub过程的语法是：Private|PublicStatic Sub Procedurename(arguments)过程头 statements过程体End Sub过程尾子过程可出现在窗体模块、标准模块和类模块中。在VB中子过程被分为通用过程和事件过程两类。通用过程出现在模块的通用段中，它必须在程序中通过语句来调用。例（见程序EX2）。事件过程主要出现在窗体模块的窗体段和各控件段中，也可以出现在类模块的类段中。事件过程是由对象的事件所触发调用的。事件过程的过程名。4.6.2 Function过程Function过程，亦称为函数过程，它是实现某一数据处理功能并返回处理结果的代码段。Function过程的语法：Private|Public Static Function functionname(arguments) As type statementsEnd Function例：Private Function Hypotenuse(A As Integer,B As Integer) As Double Hypotenuse=Sqr(A2+B2)End Function调用Function过程的方法和数学中使用函数的方法一样，即在表达式中可以通过使用函数名，并在其后用圆括号给出相应的参数列表来调用一个Function过程。也能像调用Sub过程那样调用函数。例：Y=Hypotenuse(3,4)Call Year(Now)Year Now当用这种方法调用函数时，VB放弃该函数的返回值。4.6.3 VB过程的参数传递1 参数的按值传递和按地址传递在过程定义中，按值传递的形式参数前要带有关键字ByVal。例如，下列过程中的参数x和y都是被声明为调用时按值传递的参数。Private Sub Change1(ByVal x As Integer,ByVal y As Integer) Dim intTemp As Integer intTemp=x:x=y:y=intTempEnd Sub要在过程定义中声明按地址传递（缺省方式）的形式参数，应加上关键字ByRef，例如：Private Sub Change2(ByRef m As Integer,ByRef n As Integer) Dim intTemp As Integer IntTemp=m:m=n:n=intTempEnd Sub例：见2#04032 数组参数的传递VB的过程中允许以数组作为参数。在使用时应注意：l 数组参数只能按地址传递，而不能按值传递。l 在形式参数表和实在参数表中，数组参数要忽略维数声明。例：编写求一维数组中所有元素之和的程序。程序如下：Private Sub Form_Click() Dim a(1 To 5) As Integer, k As Integer For k = 1 To 5 a(k) = k + 1 Next k Print Sum=; ArrSum(a()End SubPrivate Function ArrSum(x() As Integer) As Integer Dim i As Integer, t As Integer t = 0 For i = LBound(x, 1) To UBound(x, 1) t = t + x(i) Next i ArrSum = tEnd Function这里，系统内部函数LBound和UBound分别求数组指定维数的下界和上界，其中维数可缺省（指一维数组的唯一的一维）。在VB过程的参数表中，可使用关键字Optional建立可选参数，也可使用关键字ParamArray声明不定数量的参数。4.6.4 过程的递归VB中的过程可以是递归的，也就是说，过程可以调用自己来完成某个特定的任务。例如，计算阶乘的函数；求两个数的最大公约数等。注意：构成递归要有两个条件，一是要有确定的递归结束条件和结束值，二是具有能驱向递归结束条件的递归形式表示。4.6.5 系统内部函数VB提供了丰富的系统内部涵数，可在程序代码中直接调用。这些函数按处理功能可分为数学函数、字符串函数、日期函数、类型转换函数、格式输出函数和交互函数等。（注意：函数int()与函数fix()的区别）格式输出函数Format可使数值、日期或字符串按指定的格式输出，通常用Print方法中。交互函数MsgBox和InputBox可分别打开一个消息对话框和输入对话框，格式：MsgBox(prompt,buttons,title)InputBox(prompt,title,default)例：intAB=MsgBox(“是否继续？”,vbYesNo+vbExclamation,”消息框”)strAB=InputBox(“请输入姓名”,”输入框”)4.6.6 常用方法从本质上说，方法就是一种过程，是面向对象的过程。常见的方法有：Cls、Print、Move等。4.7 VB基本语句4.7.1 赋值语句赋值语句的语法：Let varname=expression4.7.2 选择语句选择语句，也称条件分支语句。1 If语句格式：(1)If 条件 Then 语句(2) If 条件 Then 语句End If(3) If 条件 Then 语句1 Else 语句2(4) If 条件 Then 语句1Else 语句2End If2 Select Case语句Select Case语句，亦称情况语句，语法如下：Select Case 测试表达式 Case 表达式列表1 语句组1 Case 表达式列表2 语句组2 Case Else 语句组End Select4.7.3 循环语句1 ForNext语句亦称计数循环，语法如下：For 循环变量=初值 To 终值 步长 语句组Next 循环变量例1：编写程序，使其能在窗体显示输入的6个整数和其中的最大数。例2：在窗体中，单击“判别”按钮，出现一个输入框，在输入框中输入一个整数后，在窗体文本框中即显示该整数是否为素数的字样；单击“退出”按钮，可退出程序。例3：用筛选法找出2到100之间的素数，并按一定的格式在窗体上显示出来。程序代码：Private Sub Form_Click() Dim a(2 To 100) As Boolean, n As Integer, m As Integer For n = 2 To 100 a(n) = True Next For n = 2 To 100 If a(n) Then For m = n + 1 To 100 If m Mod n = 0 Then a(m) = False Next m End If Next n m = 0 For n = 2 To 100 If a(n) Then Print Tab(m * 8); n;: m = m + 1 If m = 5 Then Print: m = 0 Next nEnd Sub例4：设计一个程序，启动后即能产生并显示10个随机二位正整数，单击窗体可将这10个数按从小到大的顺序显示。程序代码：Const N = 10Dim a(1 To N) As IntegerPrivate Sub Form_Activate() Dim m As Integer, k As Integer k = 0 For m = 1 To N a(m) = 10 + Int(Rnd * 90) Print a(m); ;: k = k + 1 If k = 5 Then Print: k = 0 Next m PrintEnd SubPrivate Sub Form_Click() Dim m As Integer, k As Integer, T As Integer For m = 1 To N - 1 For k = 1 To N - m If a(k) a(k + 1) Then T = a(k): a(k) = a(k + 1): a(k + 1) = T End If Next Next k = 0 For m = 1 To N Print a(m); ;: k = k + 1 If k = 5 Then Print: k = 0 Next m PrintEnd Sub2 For EachNext语句亦称遍历循环3 DoLoop语句有当型循环（While）和直到型循环（Until）两种l 当型循环Do While 循环条件 语句组Loop或Do 语句组Loop While 循环条件l 直到型循环Do Until 条件 语句组Loop或Do 语句组Loop Until 条件注意：l DoLoop语句可以嵌套使用。如果Exit Do使用在嵌套的DoLoop语句中，则Exit Do会将控制权转移到外层循环。l 在循环体中，或者有退出循环的Exit Do语句，或者有使循环向结束转化的语句，防止陷入“死循环”。4 WhileWend语句语句如下：While 条件 语句组Wend例5：已知自然对数的底数e的级数表示如下：利用上述公式求e，其中绝对值小于1E-8的项被忽略。程序代码：Private Function fac(n As Integer) As Single If n = 0 Then fac = 1 Else fac = n * fac(n - 1) End IfEnd FunctionPrivate Sub Form_Click() Dim e As Single, term As Single Dim m As Integer e = 1: m = 1 term = 1 / fac(m) Do While Abs(term) = 0.00000001 e = e + term m = m + 1 term = 1 / fac(m) Loop Print e=; Format(e, #.#)End Sub4.7.4 其他控制语句1 Go To语句例：Go To Line1Line1:注意：l 本过程内无条件转移l 尽可能少用此语句2 End语句例：End、End Sub、End If、End With等3 Exit语句Exit Do、Exit For、Exit Sub、Exit Function等。第五章 窗体和标准控件5.1 VB的对象5.1.1 对象的概念对象是数据和代码的集合，可以看成一个编程的单元。VB中的常用对象多为“可视”的，其中工具箱中控件都是对象。5.1.2 对象的属性属性是对象的特征（外观和行为），表现为一些属性值。可以通过改变对象的属性来改变对象的特征。属性可以在设计进设定，也可以在运行时设定。5.1.3 对象的事件对象事件是指对象所能识别并响应的动作。例如：单击按钮等。5.1.4 对象的方法对象的方法是指对象能执行的动作。例如：Move即表示对象有移动这样一种方法。使用使用对象方法的语句为：对象名称.对象方法 参数例：Form2.LoadForm1.Move 0,05.2 窗体5.2.1 窗体的属性窗体对象是VB应用程序的基本构造模块，是运行应用程序时与用户交互操作的实际窗口。窗体的常用属性有：名称、Caption、Icon、MaxButton、MinButton、Height、Width、Left、Top、WindowState等5.2.2 窗体的事件窗体常用事件：Click、Load、DragOver、MouseMove、GotFocus、MouseUp、DblClick、UnLoad、Deactivate、LostFocus、DragDrop、MouseDown5.2.3 窗体的方法窗体的常用方法有：Hide、Print、Show、Move、Refresh、PrintForm、SetFocus等。5.3 控件使用基础在VB程序中，除了窗体对象外，还有包含在窗体对象中的对象控件。5.3.1 控件的分类VB6.0中的控件分为三类：标准控件、ActiveX控件和可插入的对象。l 标准控件又称为内部控件，是VB本身提供的。l ActiveX控件包含在ActiveX控件部件中。l 可插入对象是指由其它应用程序创建的不同格式的数据。5.3.2 控件的基本操作l 建立控件l 选中控件l 改变控件大小l 删除、移动控件l 复制控件5.3.3 控件数组控件数组由一组相同的类型的控件组成，具有共同的名称，它们的事件过程相同。控件数组的Index属性区分控件数组中的元素。5.3.4 控件的焦点焦点是对象接收用户鼠标或键盘输入的能力。可以在代码中用控件的SetFocus方法来动态设置焦点。当控件得到或失去焦点时，会产生以下事件：GotFocus、LostFocus。5.4 标准控件在缺省情况下，VB工具箱显示General选项卡，提供最常用的标准控件。5.4.1 命令按钮（CommandButton）命令按钮是VB中最常用的基本控件之一，几乎各种应用程序都有命令按钮。l 常用属性：Name、Caption（定义快捷键）、Font、Enabled、Visible、BackColor、Default、Cancel、Index等l 主要事件：Click、MouseDown、MouseUp等（不支持双击事件）5.4.2 文本框（TextBox）文本框是一个多功能控件，可以显示或者接收用户输入的文本信息。l 常用属性：Text、MultiLines、MaxLength、Locked、ScrollBars、Passwordchar、SelStart、SelLength、SelText等l 主要事件：KeyPress、 Change、Lostfocus、Gotfocus等l 方法：Setfocus等5.4.3 标签（Label）标签控件主要用来显示文本。与文本框不同的是，在标签中只能显示文本，而不能编辑文本。l 常用属性：Name、Caption、Font、Enabled、Visible、BackColor、ForeColor、Alignment、AutoSize、WordWrap、BackStyle、BorderStyle等 应用举例：2#P104例5.2、P107例5.3、P108例5.4、P110例5.5 实验：用命令按钮改变窗体颜色文字颜色。（见1#P21例2-7）5.4.4 复选框（CheckBox）复选框是应用程序中允许用户进行多项选择的控件。l 常用属性：Name、Caption、Font、Enabled、Visible、BackColor、ForeColor、Value等l 主要事件：Click等，不支持双击事件5.4.5 单选按钮（OptionButton）单选按钮通常以按钮组的形式出现，用户可从中选择一个选项。l 常用属性：Name、Caption、Font、Enabled、Visible、BackColor、ForeColor、Value等l 主要事件：Click等5.4.6 框架（Frame）框架控件用来对其他控件进行分组，以便于用户识别和功能上分区。l 常用属性：Name、Caption、Font、Enabled、Visible、BackColor、ForeColor等5.4.7 列表框（ListBox）列表框控件显示项目列表，用户可从中选择一个或多个项目。l 常用属性：Name、Caption、Font、Enabled、Visible、BackColor、ForeColor、List、ListCount、ListIndex、Selected、Sorted、Text等l 主要事件：Click、DbClick等l 常用方法：AddItem、RemoveItem、Clear等List属性包含一个数组，用于访问列表框中的项目。列表框中的每个项目都是数组的元素，每个项目以字符串形式表示。引用列表框的项目时使用格式：列表框名称.List(index)第一个项目的index为0，最后一个项目的索引号为ListCount-1。ListCount属性只能在程序中引用。ListIndex属性只能在程序中设置或引用，表示在列表框控件中当前所选项目的索引号。如果没有选择项目，其值为-1。Selected属性只能在程序中引用，反映列表框中的项目是否被选中。例：若Selected(0)为True，表示第一项被选中。Sorted属性指定控件中的项目是否自动按字母顺序排序。Text属性只能在程序中引用，返回列表框中所选择的项目内容。其返回的内容与表达式List(ListIndex)的返回内容相同。l 主要事件：Click、DbClick等l 常用方法：AddItem、RemoveItem、Clear等 应用举例：2#P117例5.8编写能对列表框中的项目进行添加、删除和统计的应用程序。要求：单击“添加”按钮，可将文本框中输入的内容添加到下面的列表框；单击“删除”按钮可删除列表框中选定的项目；单击“统计人数”按钮，可将列表框中的项目总数输出到右边的文本框（该文本框不允许用户编辑）。 5.4.8 组合框（ComboBox）组合框是将文本框和列表框结合在一起的控件，用户既可以在文本框中输入文本，又可以在列表框中选择需要的表项。组合框的常用属性、事件和方法与列表框相同。组合框有三种式样：下拉式组合框、简单组合框和下拉式列表框。5.4.9 滚动条（HScrollBar、VScrollBar）5.4.10 定时器（Timer）定时器是应用程序控制定时发生事件的控件。l 常用属性：Enabled、Interval等l 主要事件：Timer 应用举例：2#P122例5.11建立一个数字时钟，要求在每天早上6点发出60下声音。 5.4.11 其它标准控件VB的工具箱还提供图像控件、图片框、直线控件、形状控件、驱动器列表框、目录列表框、文件列表框、数据控件和OLE容器控件。5.5 应用举例例1：编写程序，运行时的界面如图所示。要求：用户可以从“姓名”列表中选择项目或输入新的姓名，对于列表中没有的姓名可自动添加到列表中；“班级”及“性别”只允许选择；单击OK按钮，即可在“选择结果”下面的标签中输出选择结果；单击Delete按钮，可删除“姓名”组合框中的所选项目；单击Exit按钮，则退出程序；设置“字体”和“字号”，其效果反映在“选择结果”标签中。第六章 对话框对话框是一种特殊的窗体，通过它可以向用户显示各种信息，或者提示用户提供应用程序继续执行所需要的数据。6.1 预定义对话框6.1.1 消息对话框消息对话框用来显示信息，让用户选择按钮，并可将用户的选择作为程序继续执行的依据。MsgBox函数是VB中用来生成各类消息框的函数，常用格式如下：MsgBox(prompt,buttons,title)6.1.2 输入对话框输入对话框用于在程序运行时提示用户输入信息。InputBox函数是VB中用来生成输入对话框的函数，常用格式如下：InputBox(prompt,title,default,xpos,ypos)6.2 通用对话框通用对话框是一种控件，称为CommonDialog。使用该控件，可以创建“打开”、“另存为”、“颜色”、“字体”、“打印”五种标准对话框，以及打开指定的帮助文件的“帮助”窗口。6.2.1 通用对话框控件启动VB后，选择“工程”菜单中的“部件”命令，在对话框的“控件”选项卡中找到并选定“Microsoft CommonDialog Control 6.0”控件部件。通过调用对话框的方法可以显示相应的对话框：l ShowOpen：显示“打开”对话框l ShowSave：显示“另存为”对话框l ShowColor：显示“颜色”对话框l ShowFont：显示“字体”对话框l ShowPrinter：显示“打印”对话框l ShowHelp：打开帮助文件窗口在程序运行时，通过对CommonDialog控件的Action属性赋值，也可以显示相应的对话框。Action属性值及其含义如下：l 0：不显示对话框l 1：显示“打开”对话框l 2：显示“另存为”对话框l 3：显示“颜色”对话框l 4：显示“字体”对话框l 5：显示：“打印”对话框l 6：显示帮助文件基本属性：DialogTitle、CanceError等。在设计时设置通用对话框的属性，可在属性窗口中直接设置；也可以右击通用对话框控件，选择“属性”，通过“属性页”对话框进行设置。在程序运行时，可通过赋值语句设置通用对话框的属性。6.2.2 “打开”对话框常用属性：FileName、FileTitle、Filter、InitDir等。例： CommonDialog1.FileName = c:windows*.bmp CommonDialog1.ShowOpen s = CommonDialog1.FileName n = CommonDialog1.FileTitle6.2.3 “另存为”对话框“另存为”对话框的常用属性与“打开”对话框相同。6.2.4 “颜色”对话框常用属性：Color等例：Private Sub Command1_Click() CommonDialog1.ShowColor Form1.BackColor = CommonDialog1.ColorEnd Sub6.2.5 “字体”对话框常用属性：Flags、Color、FontBold、FontItalic、FontStrikethru、FontUnderline、FontName、FontSize等。例：Private Sub Command1_Click() CommonDialog1.Flags = 1 + 256 CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontItalic = CommonDialog1.FontItalic Text1.FontBold = CommonDialog1.FontBold Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.ColorEnd Sub6.2.