过程概述

将程序分割成较小的逻辑部件就可以简化程序设计任务。称这些部件为过程，它们可以变成增强和扩展 Visual Basic 的构件。
　　过程可用于压缩重复任务或共享任务，例如，压缩频繁的计算、文本与控件操作和数据库操作。
　　用过程编程有两大好处：
　　1.过程可使程序划分成离散的逻辑单元，每个单元都比无过程的整个程序容易调试。
　　2.一个程序中的过程，往往不必修改或只需稍作改动，便可以成为另一个程序的构件。
　　在 Visual Basic 中使用下列几种过程：
　　　Sub 过程不返回值。
　　　Function 过程返回值。
　　　property 过程返回并指定值，以及设置对象引用。
　　详细信息 关于属性过程，请参阅第九章“用对象编程”。

Sub 过程

子过程是在响应事件时执行的代码块。将模块中的代码分成子过程后，在应用程序中查找和修改代码变得更容易了。
　　子过程的语法是：
　　[Private

Public][Static]Sub procedurename (arguments)
　　　　statements
　　End Sub
　　每次调用过程都会执行 Sub 和 End Sub 之间的 statements。可以将子过程放入标准模块、类模块和窗体模块中。按照缺省规定，所有模块中的子过程为 Public（公用的），这意味着在应用程序中可随处调用它们。
　　过程的 arguments 类似于变量声明，它声明了从调用过程传递进来的值。在 Visual Basic 中应区分通用过程和事件过程这两类子过程。

通用过程

通用过程告诉应用程序如何完成一项指定的任务。一旦确定了通用过程，就必须专由应用程序来调用。反之，直到为响应用户引发的事件或系统引发的事件而调用事件过程时，事件过程通常总是处于空闲状态。
　　为什么要建立通用过程呢？理由之一就是，几个不同的事件过程也许要执行同样的动作。将公共语句放入一分离开的过程（通用过程）并由事件过程来调用它，诚为编程上策。这样一来就不必重复代码，也容易维护应用程序。例如，VCR 示例应用程序使用了一个通用过程，几个不同滚动按钮的 Click 事件都调用这个通用过程。图 5.7 说明了通用过程的使用。Click事件中的代码调用按钮管理器的子过程，子过程运行自身的代码，然后将控制返回到 Click 事件过程。

事件过程当 Visual Basic 中的对象对一个事件的发生作出认定时，便自动用相应于事件的名字调用该事件的过程。因为名字在对象和代码之间建立了联系，所以说事件过程是附加在窗体和控件上的。
　　　一个控件的事件过程将控件的（在 Name 属性中规定的）实际名字、下划线 (_) 和事件名组合起来。例如，如果希望在单击了一个名为cmdPlay 的命令按钮之后，这个按钮会调用事件过程，则要使用cmdPlay_Click 过程。
　　　一个窗体事件过程将词汇 "Form"、下划线和事件名组合起来。如果希望在单击窗体之后，窗体会调用事件过程，则要使用 Form_Click 过程。（和控件一样，窗体也有唯一的名字，但不能在事件过程的名字中使用这些名字。）如果正在使用 MDI 窗体，则事件过程将词汇 " MDIForm" 、下划线和事件名组合起来，如 MDIForm_Load。

所有的事件过程使用相同的语法。

虽然可以自己编写事件过程，但使用 Visual Basic 提供的代码过程会更方便，这个过程自动将正确的过程名包括进来。从“对象框”中选择一个对象，从“过程框”中选择一个过程，就可在“代码编辑器” 窗口选择一个模板。
　　在开始为控件编写事件过程之前先设置控件的 Name 属性，这不失为一个好主意。如果对控件附加一个过程之后又更改控件的名字，那么也必须更改过程的名字，以符合控件的新名字。否则，Visual Basic 无法使控件和过程相符。过程名与控件名不符时，过程就成为通用过程。
　　详细信息 Visual Basic 可识别各种窗体和控件的各种事件。关于所有事件的说明，请参阅语言参考。

Function 过程

Visual Basic 包含内置的或内部的函数，如 Sqr、Cos 或 Chr。此外，还可用 Function 语句编写自己的 Function 过程。
　　函数过程的语法是：
　　Private

Public][Static]Function procedurename (arguments) [As type]
　　　　statements
　　End Function
　　与 Sub 过程一样，Function 过程也是一个独立的过程，可读取参数、执行一系列语句并改变其参数的值。与子过程不同，Function 过程可返回一个值到调用的过程。在Sub 过程与Function 过程之间有三点区别：
　　　一般说来，让较大的语句或表达式的右边包含函数过程名和参数(returnvalue = function)，这就调用了函数。
　　　与变量完全一样，函数过程有数据类型。这就决定了返回值的类型（如果没有 As 子句，缺省的数据类型为 Variant）。
　　　给 procedurename 自身赋一个值，就可返回这个值。Function 过程返回一个值时，该值可成为较大表达式的一部分。
　　例如，下面是已知直角三角形两直角边的值，计算第三边（斜边）的函数：
　　Function Hypotenuse (A As Integer, B As Integer) As String
　　　　　Hypotenuse = Sqr (A ^ 2 + B ^ 2)
　　End Function
　　在 Visual Basic 中调用 Function 过程的方法和调用任何内部函数的方法是一样的：
　　Label1.Caption = Hypotenuse(CInt(Text1.Text), _
　　CInt(Text2.Text))
　　strX = Hypotenuse (Width, Height)
　　详细信息 关于函数过程的详细信息，请参阅《Visual Basic 6.0语言参考手册》中的“Function 语句”。调用各种类型的过程的技巧，在本章后面的“调用过程”部分有详细讨论。

使用过程

创建新过程

要创建新的通用过程，请
　　　在“代码”窗口输入过程头并按下回车键。过程头以 Sub 或 Function 打头，再接一个名字。例如，可以用以下任一方式输入：
　　Sub UpdateForm ()
　　Function GetCoord ()
　　通过完成新过程的模板， Visual Basic 作出反应。

选择现有过程
　　要在当前模块中查看过程，请
　　　为了查看现有通用过程，在“代码”窗口的“对象框”中选择“通用”，然后在“过程框”中选择过程。
　　　－或者－
　　　为查看事件过程，在“代码”窗口的“对象框”中选择适当的对象，然后在“过程框”中选择事件。
　　要查看其它模块中的过程，请
　　1. 在“视图”菜单中选取“对象浏览器”。
　　2. 在“工程/库”框中选择工程。
　　3. 在“类/模块”列表中选择模块，并在“成员”列表中选择过程。
　　4. 选取“查看定义”。

调用过程

调用过程有诸多技巧，它们与过程的类型、位置以及在应用程序中的使用方式有关。下面的章节说明如何调用 Sub 过程和 Function 过程。

调用 Sub 过程
　　与 Sub 过程不同，在表达式中，Sub 过程不能用其名字调用。调用 Sub 过程的是一个独立的语句。Sub 过程还有一点与函数不一样，它不会用名字返回一个值。但是，与 Function过程一样，Sub 过程也可以修改传递给它们的任何变量的值。
　　调用 Sub 过程有两种方法：
　　'以下两个语句都调用了名为 MyProc 的 Sub 过程。
　　Call MyProc (FirstArgument, SecondArgument)
　　MyProc FirstArgument, SecondArgument
　　注意，当使用 Call 语法时，参数必须在括号内。若省略 Call 关键字，则也必须省略参数两边的括号。

调用函数过程
　　通常，调用自行编写的函数过程的方法和调用 Visual Basic 内部函数过程（例如 Abs）的方法一样；即在表达式中写上它的名字。
　　'下面的语句都调用函数 ToDec。
　　Print 10 * ToDec
　　X = ToDec
　　If ToDec = 10 Then Debug.Print "Out of Range"
　　X = AnotherFunction ( 10 * ToDec)
　　就像调用 Sub 过程那样，也能调用函数。下面的语句都调用同一个函数：
　　Call Year (Now)Year Now
　　当用这种方法调用函数时，Visual Basic 放弃返回值。

调用其它模块中的过程
　　在工程中的任何地方都能调用其它模块中的公用过程。可能需要指定这样的模块，它包含正在调用的过程。调用其它模块中的过程的各种技巧，取决于该过程是在窗体模块中、类模块中还是标准模块中。

窗体中的过程

所有窗体模块的外部调用必须指向包含此过程的窗体模块。如果在窗体模块 Form1 中包含 SomeSub 过程，则可使用下面的语句调用 Form1 中的过程：
　　Call Form1.SomeSub(arguments)

类模块中的过程

与窗体中调用过程类似，在类模块中调用过程要调用与过程一致并且指向类实例的变量。例如，DemoClass 是类 Class1 的实例：
　　Dim DemoClass as New Class1
　　DemoClass.SomeSub
　　但是不同于窗体的是，在引用一个类的实例时，不能用类名作限定符。必须首先声明类的实例为对象变量（在这个例子中是 DemoClass ）并用变量 名引用它。
　　详细信息 可在第九章“用对象编程”中查找关于对象变量和类模块的详细信息。

标准模块中的过程

如果过程名是唯一的，则不必在调用时加模块名。无论是在模块内，还是在模块外调用，结果总会引用这个唯一过程。如果过程仅出现在一个地方，这个过程就是唯一的。
　　如果两个以上的模块都包含同名的过程，那就有必要用模块名来限定了。在同一模块内调用一个公共过程就会运行该模块内的过程。例如，对于Module1 和 Module2 中名为 CommonName 的过程，从 Module2 中调用CommonName 则运行 Module2 中的CommonName过程，而不是 Module1中的 CommonName 过程。
　　从其它模块调用公共过程名时必须指定那个模块。例如，若在 Module1 中调用 Module2 中的 CommonName 过程，要用下面的语句：
　　Module2.CommonName (arguments)

向过程传递参数

过程中的代码通常需要某些关于程序状态的信息才能完成它的工作。信息包括在调用过程时传递到过程内的变量。当将变量传递到过程时，称变量为参数。

参数的数据类型

过程的参数被缺省为具有 Variant 数据类型。不过，也可以声明参数为其它数据类型。例如，下面的函数接受一个字符串和一个整数：
　　Function WhatsForLunch(WeekDay As String, Hour _
　　As Integer) As String　　
　　 　　'根据星期几和时间，返回午餐菜单。
　　　　If WeekDay = "Friday" then
　　　　　　　WhatsForLunch = "Fish"
　　　　Else
　　　　　　　WhatsForLunch = "Chicken"
　　　　End If
　　　　If Hour > 4 Then WhatsForLunch = "Too late"
　　End Function
　　详细信息 关于 Visual Basic 的数据类型，请参阅本章前面部分。也可以在语言参考中查找指定的数据类型。

按值传递参数按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。用 ByVal 关键字指出参数是按值来传递的。
　　例如：
　　Sub PostAccounts (ByVal intAcctNum as Integer)
　　.
　　. '这里放语句。
　　.End Sub

按地址传递参数

按地址传递参数使过程用变量的内存地址去访问实际变量的内容。结果，将变量传递给过程时，通过过程可永远改变变量值。按地址传递参数在Visual Basic 中是缺省的。

如果给按地址传递参数指定数据类型，就必须将这种类型的值传给参数。可以给参数传递一个表达式，而不是数据类型。Visual Basic 计算表达式，如果可能的话，还会按要求的类型将值传递给参数。

把变量转换成表达式的最简单的方法就是把它放在括号内。例如，为了把声明为整数的变量传递给过程，该过程以字符串为参数，则可以用下面的语句：
　　Sub CallingProcedure ()
　　　　　Dim intX As Integer
　　　　　intX = 12 * 3
　　　　　Foo (intX)
　　End Sub

Sub Foo (Bar As String)
　　　　　MsgBox Bar　　　　'Bar 的值为字符串‘ 36 ’。
　　End Sub

使用可选的参数

在过程的参数列表中列入 Optional 关键字，就可以指定过程的参数为可选的。如果指定了可选参数，则参数表中此参数后面的其它参数也必是可选的，并且要用 Optional 关键字来声明。下面两段示例代码假定有一个窗体，其内有一命令按钮和一列表框。
　　例如，这段代码提供所有可选参数：
　　Dim strName As String
　　Dim strAddress As String

Sub ListText(Optional x As String, Optional y _
　　As String)
　　　　　List1.AddItem x
　　　　　List1.AddItem y
　　End Sub

Private Sub Command1_Click ()
　　　　　strName = "yourname"
　　　　　strAddress = 12345　　　'提供了两个参数。
　　　　　Call ListText (strName, strAddress)
　　End Sub
　　而下面的代码并未提供全部可选参数：
　　Dim strName As String
　　Dim varAddress As Variant

Sub ListText (x As String, Optional y As Variant)
　　　　　List1.AddItem x
　　　　　If Not IsMissing (y) Then
　　　　　　List1.AddItem y
　　　　　End If
　　End Sub

Private Sub Command1_Click ()
　　　　　strName = "yourname"　　'未提供第二个参数。
　　　　　Call ListText (strName)
　　End Sub
　　在未提供某个可选参数时，实际上将该参数作为具有 Empty 值的变体来赋值。上例说明如何用 IsMissing 函数测试丢失的可选参数。

提供可选参数的缺省值

也可以给可选参数指定缺省值。在下例中，如果未将可选参数传递到函数过程，则返回一个缺省值。
　　Sub ListText(x As String, Optional y As _
　　Integer = 12345)
　　　　List1.AddItem x
　　　　List1.AddItem y
　　End Sub

Private Sub Command1_Click ()
　　　　strName = "yourname"　　　'未提供第二个参数。
　　　　Call ListText (strName)　　　'添加“yourname”和“12345”。
　　End Sub
　　使用不定数量的参数一般说来，过程调用中的参数个数应等于过程说明的参数个数。可用ParamArray 关键字指明，过程将接受任意个数的参数。于是可以这样来编写计算总和的 Sum 函数：
　　Dim x As Integer
　　Dim y As Integer
　　Dim intSum As Integer

Sub Sum (ParamArray intNums ())
　　　　　For Each x In intNums
　　　　　y = y + x
　　　　　Next x
　　　　　intSum = y
　　End Sub

Private Sub Command1_Click ()
　　　　　Sum 1, 3, 5, 7, 8
　　　　　List1.AddItem intSum
　　End Sub

用命名的参数创建简单语句

对许多内建函数、语句和方法，Visual Basic 提供了命名参数方法来快捷传递参数值。对命名参数，通过给命名参数赋值，就可按任意次序提供任意多参数。为此，键入命名参数，其后为冒号、等号和值 (MyArgument :="SomeValue") ，可以按任意次序安排这些赋值，它们之间用逗号分开。注意，下例中的参数顺序和所要参数的顺序相反：
　　Function ListText (strName As String, Optional strAddress As String)
　　　　　List1.AddItem strName
　　　　　List2.AddItem strAddress
　　End Sub

Private Sub Command1_Click ()
　　　　　ListText strAddress:="12345", strName:="Your Name"
　　　　　End Sub
　　如果过程有若干不必总要指定的可选参数，则上述内容更为有用。

确定对命名参数的支持

要确定哪一个函数、语句和方法支持命名参数，用“代码”窗口中的“AutoQuickInfo”功能，检查“对象浏览器”，或者参阅语言参考。使用命名参数时要注意以下几点：

在 Visual Basic (VB) 对象库中的对象的方法不支持命名参数。而 VisualBasic for applications (VBA) 对象库中的所有的语言关键字都支持命名的参数。
　　　在语法中，命名参数是用粗体和斜体字表示的。所有其它参数只用斜体字表示。
　　重点 使用命名参数时不能省略所需参数的输入。可以只省略可选参数。对于 Visual Basic (VB) 和 Visual Basic for applications (VBA) 对象库，“对象浏览器”对话框将可选参数用方括号 [ ] 括起来。
　　详细信息 请参阅语言参考中的 "ByVal"、"ByRef"、"Optional" 和"ParamArray"。