ch6(过程).pptVIP

第6章 过程 Visual Basic程序(工程)的构成 VB程序：由窗体界面和程序代码组成 程序代码：由过程和说明部分组成 模块：过程及说明组织在模块之中 过程 过程具有特定的书写格式，包含若干个可作为一个整体执行的代码行 1.事件过程 事件过程由VB中的事件调用，存储在窗体模块的文件中（.frm） 2.通用过程 不同窗体或不同事件可共享的代码。 模块 是VB用于将不同类型过程代码组织到一起而提供的一种结构。 窗体模块 一个窗体对应一个窗体模块 窗体模块含用于处理发生在窗体中的各个对象的事件过程 窗体模块含窗体中各个控件的对象属性及相关说明 标准模块 应用程序中可被多个窗体共享的代码 标准模块文件的扩展名是“.bas 类模块 6.1 Sub过程 事件过程 事件就是能被对象(窗体或控件)所识别的动作，对发生的事件进行处理的代码放在过程中，这样的过程叫事件过程。 事件过程种类： 窗体事件过程 控件事件过程 通用Sub过程 1. 定义窗体事件过程 格式： Private Sub Form_事件名（[参数列表]） [局部变量和常数声明] 语句块 End Sub 注： 窗体事件过程的组成； Private表示该事件过程仅在本窗体模块中使用 2.窗体的Initialize、Load、Activate、GotFocus事件 Initialize事件： 在窗体被加载(Load)之前，窗体被分配时触发 Load事件： 窗体读入内存时发生 Activate事件： 窗体已装入内存，变成激活的窗体时触发 GotFocus事件： 在窗体成为当前焦点时触发 注： 启动一程序时：Initialize事件、Load事件、Activate事件相继发生 窗体的Initialize和Load事件发生在窗体被显示之前 可放命令来初始化应用程序 用print 将看不到输出内容 不可用对象名.SetFocus Activate事件可多次发生 3. 定义控件事件过程 格式：Private Sub 控件名_事件名([参数列表]) [局部变量和常数声明] 语句块End Sub 注： 控件事件过程由控件名、下划线和事件过程名组成 控件事件过程是私有过程，属于包含它的窗体模块 4. 建立事件过程 5. 通用过程 1. 通用Sub过程的定义 格式：[Private] Sub 过程名([参数列表]) [局部变量和常数声明] 语句块 End Sub Private可换为Public、Static 缺省为Public 注： 语法格式：开头、结尾、参数 可内含语句：Exit Sub 参数类型： [Byval] 变量名[()] [As 数据类型] Byval: 参数的是值传递 Byval可换为ByRef: 地址传递(默认) 数据类型缺省是变体类型 过程通过参数返回值 2.建立方式 法一： 打开“代码编辑器”窗口 打开“工具”|“添加过程”对话框确定基本信息 输入代码 法二： “打开代码编辑器”窗口 “对象”中选通用，键入Private Sub 过程名，创建样板 输入代码 3.建立的位置 窗体模块 标准模块 例： Private Sub factor(ByVal n As Integer, s As String) Dim i As Integer For i = 1 To n - 1 If n Mod i = 0 Then s = s Str(i) Next i End Sub 入口参数、出口参数 6.2 函数过程 格式： Private Function 名([参数]) As 类型 [局部变量和常数声明] 语句块 End Function Private可换为Public、Static Private缺省意为Public 注： 语法格式： 开头、结尾、参数、类型 函数体内含语句： 函数名=表达式 Exit function语句 函数的返回值 例：求阶乘的函数 function fact(byval n as integer) as long dim k as integer fact=1 if n=0 or n=1 then exit function else for k=1 to n fact=fact*k next k end if end function 例：求三角形的面积 利用过程编写 Private Sub Area( x,y,z,s) Dim p as single p=(x+y+z)/2 s=sqr(p*(p-