6.1VB的过程设计及子过程(Sub)的定义与调用4 w/ h$ r6 N" D$ b! q/ n$ U% M
1.什么是过程
5 n5 }1 l2 [# c 在程序设计中,为各个相对独立的功能模块所编写的一段程序称之为过程。
; z3 V" s1 X- x' G8 s9 y 2.VB中的自定义过程分类
$ m7 ] A/ ^: ~& L g (1)以“Sub”保留字开始的子程序过程 (包括事件过程和通用过程),不返回值;1 t( I# X6 m- E7 W
(2)以“Function” 保留字开始的函数过程,返回一个值;
4 `8 F/ }2 f* ? (3)以“Property” 保留字开始的属性过程,可以返回和设置窗体、标准模块以及类模块的属性值,也可以设置对象的值。
! E* p7 X3 X8 S4 U+ Z+ f 3. 事件过程6 V3 G- r8 G9 ]: I
(1)窗体事件过程: A0 f4 I4 @9 N' g) e5 v
语法:Private Sub Form_事件名([参数列表])! Y- J: ^4 Z2 A5 i* X
[局部变量和常数声明]- S+ {4 `5 }. g
语句块
% G* g" A4 g* H$ H( _$ D9 u Y End Sub
4 Q. a: W$ }& Y$ ?* X( T# d 注意:# t3 W t: N! b% S
1)窗体事件过程名由Form_事件名组成,多文档窗体用MDIForm_事件名;
- }7 V0 `: U8 p6 G% X9 | 2)每个窗体事件过程名前都有一个Private的前缀,表示该事件过程不能在它自己的窗体模块之外被调用;
* m( M4 W2 d* e$ W1 @4 i! ~ 3)事件过程有无参数,完全由VB提供的具体事件本身决定,用户不可以随意添加。
5 n |% e4 t8 @5 `6 [$ H2 R# a+ m (2)控件事件过程
% L8 }5 d2 s6 K 语法:Private Sub 控件名_事件名([参数列表])
% v& n2 D; A5 U% s' t% k [局部变量和常数声明]
8 _* a C* ~. T/ H# z# S( N 语句块. Q3 S7 J$ M) z9 K! r( M
End Sub
0 w0 Y# m& {9 k6 f/ V5 _; Y& C% y 注意:其中的控件名必须与窗体中某控件相匹配,否则VB将认为它是一个通用过程。/ z" P$ W, E% Y- }) r& H! y; g/ `. G
(3)建立事件过程的方法
! m5 D& b. S4 F, Y4 |5 c 1)打开代码编辑器窗口(两种方法:双击对象或从工程管理器中单击“查看代码”按钮)% D+ `* ]# C- u, n6 R5 g. p
2)在代码编辑器窗口中,选择所需要的“对象”和“事件过程”+ |! i9 }" f' Q9 T( y
3)在Private Sub …… End Sub之间键入代码
- A8 ~) F, s4 d7 o6 w g1 L 4)保存工程和窗体
( f: F& U3 B9 l0 f0 E! H6 k" T3 V (4)事件过程的调用
/ V @& j p" h: F 事件过程由一个发生在VB中的事件来自动调用或者由同一模块中的其他过程显示调用。" n* {2 _+ p+ I7 h {
2.通用过程
4 s" X3 M+ ~/ c" V! R 通用过程是一个必须从另一个过程显示调用的程序段,通用过程有助于将复杂的应用程序分解成多个易于管理的逻辑单元,使应用程序更简洁、更易于维护。
" O& ^, |2 K1 x* J3 h. q( |0 X8 O; F 通用过程分为公有(Public)过程和私有( Private)过程两种,公有过程可以被应用程序中的任一过程调用,而私有过程只能被同一模块中的过程调用。
Z9 [3 }2 H) ` (1)定义方法:2 l+ I( @1 D+ L4 g/ e
[ Private | Public ] [ Static] Sub 过程名([参数列表])8 y3 r8 d _, |. B
[局部变量和常数声明] ‘用Dim 或Static声明
4 {' [5 D7 o& L( T c 语句块) g3 C% s2 h5 z1 H P d
[Exit Sub]# Q( k* j" ]! |/ l& o% v, v( B
语句块
# Q7 w. U2 e% n. y End Sub
& R9 f! I) i2 T6 V u 注意:+ N. _( b9 ^9 w! ?' k- Q
1)缺省[ Private | Public ]时,系统默认为 Public ;+ N4 @6 s3 T, h1 z0 L
2)Static 表示过程中的局部变量为“静态”变量;
% U# O9 G! ?6 g. |5 C& s( I 3)过程名的命名规则与变量命名规则相同,在同一个模块中,同一符号名不得既用作Sub过程名,又用作Function过程名。% L; U2 B6 X( a3 g m3 ?/ ~
4)参数列表中的参数称为形式参数,它可以是变量名或数组名,只能是简单变量,不能是常量、数组元素、表达式;若有多个参数时,各参数之间用逗号分隔,形参没有具体的值。VB的过程可以没有参数,但一对圆括号不可以省略。不含参数的过程称为无参过程。1 i2 x& m; r# ?& j j J: Z# _
形参格式为:1 `7 x! g }0 j6 D
[ ByVal ] 变量名[()] [As 数据类型]
' W- L7 L& N" {8 ? 式中:
8 G3 ?$ m y, ^% ^ 变量名[()]:变量名为合法的VB变量名或数组名,无括号表示变量,有括号表示数组。
# V# J& l$ n$ P0 ^- \ ByVal :表明其后的形参是按值传递参数(传值参数 Passed By Value),若缺省或用ByRef,则表明参数是按地址传递的(传址参数)或称“引用”(Passed By Reference)。0 E, X/ N2 `: ?
As: 数据类型:缺省表明该形参是变体型变量,若形参变量的类型声明为String,则只能是不定长的。而在调用该过程时,对应的实在参数可以是定长的字符串或字符串数组,若形参是数组则无限制。
; f7 y7 O& j5 [9 \7 f 5)Sub 过程不能嵌套定义,但可以嵌套调用。. z6 @- H& P9 y
6) End Sub 标志该过程的结束,系统返回并调用该过程语句的下一条语句。8 \4 ^) j- V2 f6 X& t
7) 过程中可以用Exit Sub提前结束过程,并返回到下调用该过程语句的下一条语句。, |0 n8 m! m6 \& s2 S8 \1 W
(2)建立Sub过程的方法0 }$ o, s) G2 t, l
方法一:
& l1 e( g3 Z# h; t9 K7 ]& m 1)打开代码编辑器窗口1 _9 Q3 ?* e1 J) a7 O0 W; A9 R% u% r
2)选择“工具”菜单中的“添加过程”
8 k, b. l* J" G' y1 \ 3)从对话框中输入过程名,并选择类型和范围( o8 u7 l8 i) D' b' B/ s9 a( }
4)在新创建的过程中输入内容: i) o" | ?8 b! ?% P' N& f f
方法二:: M- t" B# \! ~' I! `2 ^
1)在代码编辑器窗口的对象中选择“通用”,在文本编辑区输入 Private Sub 过程名# S5 W# E: x g7 [" w- c3 t( G( @4 {3 E
2)按回车键,即可创建一个Sub过程样板( F: y! N* G5 S! p
3)在新创建的过程中输入内容$ C, ]$ R& U7 A9 ?4 U* p
3.Sub子过程的调用: @9 q/ L8 f0 Y7 |# C
(1) 用Call语句调用Sub过程
! d* [1 Y+ W# ~6 p% L; e( B 语法:Call 过程名(实在参数表)
4 d* Q, l; @- n' E$ i2 b( t 实在参数的个数、类型和顺序,应该与被调用过程的形式参数相匹配,有多个参数时,用逗号分隔。
6 D" U4 q+ l9 U, Y$ A (2)把过程名作为一个语句来用& y, B* M" {+ [
语法:过程名 [实参1[,实参2……]]( J3 q, p' S' h; P' l
它与(1)的不同点是:去掉了关键字和实参列表的括号
# \$ r6 ^, v) m3 C 如上例中可以改成:area a,b,c,w |