vb第3章剖析

《vb第3章剖析》由会员分享，可在线阅读，更多相关《vb第3章剖析（44页珍藏版）》请在金锄头文库上搜索。

1、第三章 Visual Basic程序设计初步,3.1窗体 3.2 VB语法基础 3.3 对象、属性、事件和方法的概念 3.4 窗体的属性 3.5 窗体的方法 3.6 窗体的事件,3.1窗体,在Windows系统中，窗体是最常用的对象。Windows的窗体有类似结构和特点。窗体右上方有三个按钮，自左而右分别是：“最小化” 按钮 , “最大化” 按钮和“关闭” 窗体按钮。,单击 “最小化” 按钮，窗体消失，窗体缩小为屏幕底部任务栏上的一个按钮，表示它不是当前打开的窗体；单击该按钮可以恢复窗体。 单击 “最大化” 按钮，使窗体充满屏幕，该“最大化” 按钮变成两个重叠的小方块；单击该按钮，恢复原来的窗

2、体。 单击“关闭” 按钮，关闭窗体。,3.1.1 窗体设计举例,例1:设计一个VB程序，窗体上画有三个命令按钮，标题分别是“窗体变小”、“窗体变大”和“关闭窗体”。运行程序时，在窗体上装入一幅图片。单击“窗体变大”命令按钮时，窗体变大；单击“窗体变小”按钮时，窗体就小；单击“关闭窗体”按钮，结束程序的运行。窗体界面设计如右图,3.1.1 窗体设计举例,编写有关事件过程： Private Sub Form_Load() Picture=LoadPicture(“D:flower.jpg“) End Sub 运行程序时,系统自动将窗体装入内存，触发Form_Load事件过程。Form_Load事件

3、过程通常用来对窗体的属性和变量进行初始化。,3.1.1 窗体设计举例,要改变窗体的大小尺寸，需要使用窗体的两个相关属性Height 和Width。Height 指窗体的高度，Width指窗体的宽度，单位为twip（缇），一英寸约等于1440twip。 使窗体变小的过程代码如下： Private Sub cmdSmall_Click() Form1.Height = Form1.Height - 500 Form1.Width = Form1.Width - 500 End Sub,3.1.1 窗体设计举例,单击“窗体变大”按钮，窗体的Height 及Width属性值在原有属性值的基础上增加50

4、0，使窗体的尺寸变大。窗体变大的过程如下： Private Sub cmdLarge_Click() Form1.Height = Form1.Height + 500 Form1.Width = Form1.Width + 500 End Sub 不断单击“窗体变大”命令按钮，Height和Width属性值不断递加，使窗体越变越大。,3.1.1 窗体设计举例,“关闭窗体”按钮的事件过程如下： Private Sub cmdExit_Click() End End Sub “End”语句命令的作用是结束程序的运行。 注意：一般来说，一个程序中应该包括结束程序运行的操作。,3.1.1 窗体设计举

5、例,例2:设计一个程序，当单击“改变位置”命令按钮时，使窗体的位置改变到屏幕的左上角，单击“还原位置”命令按钮又使它的位置还原，并在标签中显示出所在位置。,属性BackColor的值决定窗体的背景颜色。 属性BorderStyle决定窗体的“边界风格”（ BorderStyle）。它有4种可以选择的值： 0（None）：窗口无边界； 1(Fixed Single)：窗口的边界为单线条，且运行期间窗口的尺寸是固定的（即不能改变其大小）； 2(Sizable)：窗口的边界是双线条，且运行期间可以改变窗口的尺寸； 3(Fixed Double)：窗口的边界是双线条，且运行期间不可以改变窗口的尺寸。,

6、3.1.1 窗体设计举例,3.1.1 窗体设计举例,程序开始运行时, 执行Form_Load事件过程，进行初始化窗体的工作，该事件过程如下： Private Sub Form_Load() Form1.Left = 2000 Form1.Top = 2000 Label1.Caption = “Left值是:2000，Top值是:2000“ End Sub 运行程序，将2000分别赋给窗体的Left和Top两个属性。 Left属性指明窗体左边界距屏幕左边界的距离（x轴方向）。 Top属性指明窗体窗口顶部距屏幕顶部的距离（y轴方向）。 确定了Left和Top属性值，也就确定了窗体在屏幕上的位置。

7、,3.1.1 窗体设计举例,单击“改变位置”命令按钮时，把窗体移动到指定的位置，执行cmdMove_Click以下事件过程。 Private Sub cmdMove_Click() Form1.Left = 100 Form1.Top = 100 Label1.Caption = “Left值是:100，Top 值是:100“ End Sub 程序将窗体的位置改变到屏幕的左上角，即坐标为（100、100）的位置。分别将100赋给窗体的Left和Top两个属性，并把这两个值显示在标签中。,3.1.1 窗体设计举例,单击“还原位置”命令按钮，应恢复窗体的初始位置，只需将最初的Top和Left属性值

8、重新赋给这两个属性即可。其过程代码如下： Private Sub cmdReset_Click() Form1.Left = 2000 Form1.Top = 2000 Label1.Caption = “Left值是:2000，Top 值是:2000“ End Sub Left属性值及Top属性值均为2000，窗体回到原来位置。,3.2 VB语法基础,3.2.1 VB的数据类型 计算机能够处理不同类型的信息，如数值、文字、声音、图形、图像等，这些统称为数据。 数据可以分为不同的种类，称为数据类型。 不同类型的数据，在内存中的存储结构不同，占用空间不同，取值范围不同，能够对数据进行的操作也不同

9、。 程序中的数据有两种表示形式：常量和变量。 常量是一个固定的值，如3、4.5。 变量的值在程序运行期间可以改变，也可以先后向一个变量赋予不同的值。,3.2.1 VB的数据类型,VB的两大类数据类型： 基本数据类型：包括数值类型、字符类型等 用户自定义数据类型：利用基本数据类型构造的数据类型。 数据的类型不同，能够进行的操作也不同。,3.2.1 VB的数据类型,某个变量的数据类型可通过函数VarType()测试。 Variant数据类型，称为变体类型或通用类型。变体类型可以表示上述任何一种数据类型。,3.2.1 VB的数据类型,Private Sub cmdTest_Click() Dim V

10、ar1 As Variant Int1 = 123 Long1 = 186& Single1 = 12.6! Double1 = 34.5 Str1 = “abcd“ Cur = 8886 Da = #10/21/1997# Print VarType(Var1), VarType(Int1), VarType(Long1), VarType(Single1) Print VarType(Str1), VarType(Cur), VarType(Double1), VarType(Da) End Sub,例：编写一段程序，给不同的变量赋予不同的值，利用VarType函数测试这些变量的数据类型。

11、在窗体上添加一个名称为cmdTest的命令按钮，编写相应的事件过程。,Var1被定义为Variant(变体型)变量，其它各变量(如Int1，Long1，Single1等)均未声明，因此都作为Variant类型处理。,3.2.1 VB的数据类型,当分别对7个Variant型变量赋值后，再用VarType函数测试这8个变量实际的数据类型。 运行此程序，输出结果如图。 Var1是变体型变量，由于程序中未对它赋值，因此VarType(Var1)的值为0。,3.2.1 VB的数据类型,仅有基本数据类型有时不能满足设计的需要。 有时需要将不同类型的数据组合成一个有机的整体，以便于引用。这样一个整体是由若干

12、不同类型的、互相有联系的数据项组成。 Type语句能够允许用户自定义数据类型。一般形式： Type 类型名 元素名 As 类型 元素名 As 类型 元素名 As 类型 End Type,例如 Type Employee EmpNo As Integer Name As String*10 Age As Integer Tel As String*10 Address As String*20 End Type,3.2.2 变量名和变量值,变量(variable)：在程序执行过程中，其值可以发生变化的量。变量需要有一个名称，作为标识，即变量名。 变量名的命名规则： 1）第一个字符必须是字母； 2

13、）第二个字符及其后的字符可以是字母、数字及下划线； 3）长度不能超过255个字符； 4）可用表示变量类型的字符（如：$，% 等）作为变量名的最后一个字符；,3.2.2 变量名和变量值,5）不能将VB语言中规定的保留字(如语句命令、函数名等)作为变量名使用； 6）在变量名中，大小写字母是等价的； 7）变量名中间不能有空格； 8）在同一个程序模块中，不能有相同的变量名； 9）变量名的前面可以有对象名，指明是哪个对象中的变量，在对象名和变量名之间用句点(.)相隔；,3.2.3 变量的声明,在VB程序中应当对变量进行声明 声明的作用是告诉VB系统该变量是什么类型，以便系统据此对该变量进行适当的内存分配

14、(不同类型的数据在内存中所占的存储空间和存储方式是不同的)。,3.2.1 VB的数据类型,1用Dim声明变量 Dim As Dim Name As String Dim Sum As Long Dim Num As Integer Dim X Integer，Y As Single Dim 省略As子句，未指定类型，系统默认为变体Variant类型的数据。 例如，声明名称为What的变体类型变量： Dim What 可以同时定义两个变量： Dim x as Integer,y as Integer,3.2.3 变量的声明,2.用Static声明变量 使用Static声明静态变量，语句格式如下：

15、 Static As 一个过程执行结束时，过程中所用到的Static变量值被保留，再次执行这个过程时，变量的初值是上次调用结束时被保留的值，而用Dim语句声明的变量在过程结束时不保留 。例：,Private Sub cmdExec_Click() Static a As Integer Dim b As Integer a = a + 1 b = b + 1 Print “a=“; a, “b=“; b End Sub,执行四次的结果：,3.2.4 数组,数组：把一组具有相同属性、相同类型的数据用一个统一的名字作为标识，为数组。 数组中的每一个数据称为一个数组元素 数组元素用数组名和该数据在数

16、组中的序号来标识，序号称作下标。 在VB中如果没有特别的说明，数组元素的下标是从0开始的，即第一个元素的下标为0。定义数组的一般格式为： Dim 数组名（下界 To 上界）As 数据类型,3.2.4 数组,例如，定义一个名称为Salary、含有101个元素的整型数组(数组元素的下标从0到100，共有101个元素): Dim Salary(100) As Integer 或：Dim Salary(0:100) As Integer 注意: （1）声明数组时必须说明数组的大小(即元素个数)。 （2）不能对数组进行整体赋值或整体运算，如： Salary(0)=3000 (把3000赋给Salary(0) 正确 Salary=3000 (企图给数组中所有元素赋予3000) 错误,把许多常用的功能编写成一个个子程序，称为函数(function)。 一个函数用来实现一个功能。 如果想调用一个函数，需要写出这个函数的名字，一般还要求给定参 系统提供了一批常用的标准函数。按功能