第09章 vb过程.pptVIP

一、建立Sub过程 二、调用Sub过程 事件过程 例2：求6的平方 Sub Multi(fir As Integer, sec As Integer, Optional third) n = fir * sec If Not IsMissing(third) Then n = n * third End If Print n End Sub Private Sub Form_Click() Multi 10, 20 End Sub Private Sub Form_Click() Multi 10, 20, 30 End Sub 结果：200 结果：6000 二、可变参数 参数可变的过程称为可变参数过程，可以 向这样的过程传递一个或多个参数。 格式：Sub过程名(ParamArray数组名)　 注： “数组名”是一个形式参数，只有名字和括 号，没有上下界。由于省略了变量类型，“数 组”的类型默认为Variant。 Sub Multi(ParamArray Numbers()) n = 1 For Each x In Numbers n = n * x Next x Print n End Sub Private Sub Form_Click() Multi 2, 3, 4, 5, 6 End Sub 结果：720 Private Sub Form_Click() Dim a As Integer, b As Long, c As Variant, d As Integer a = 6: b = 8 c = 12: d = 2 Multi a, b, c, d End Sub 由于可变参数过程中的参数Variant类型， 因此可以把任何类型的参数传送给该过程。如： 第五节　对象参数 一、窗体参数 Visual Basic中，可以向过程传递对象， 包括窗体和控件。 格式：Sub过程名(形参表)　　　　 语句块　　　　 [Exit Sub]　　　　 ……　　　End Sub　 “形参表”中形参的类型通常为Control或Form。 注： 在调用含有对象的过程时，对象只能通过传 地址方式传递。因此在定义过程时，不能在其参 数前加关键字ByVal。 如：有4个窗体要求大小和位置都相同。 Left、Top、Width、Height 窗体作为参数，编写通用过程 Sub FormSet(FormNum As Form) FormNum.Left = 2000 FormNum.Top = 3000 FormNum.Width = 5000 FormNum.Height = 3000 End Sub 如： 二、控件参数 和窗体参数一样，控件也可以作为通用过 程的参数。即在一个通用过程中设置相同性质 控件所需要的属性，然后用不同的控件作为实 参调用此过程。 例9.10 编写一个通用过程，在过程中设置字体 属性，并调用该过程显示指定的信息。 该例过程中有两个参数，其类型均为Control。 在用控件作为参数时，必须考虑到作为实参的 控件是否具有通用过程中所列的控件的属性。 控件参数的使用比窗体参数要复杂一些，因为 不同的控件所具有的属性也不一样。 在用指定的控件调用通用过程时，如果通用过 程中的属性不属于这种控件，则会发生错误。 格式：{If|ElseIf}TypeOf控件名称Is控件类型 　 注： “控件名称”实际上指的是控件参数(形参) 的名字，即“AsControl”前面的参数名。“控件 类型”是代表各种不同控件的关键字。 * * 第一节　Sub过程 第六节　局部内存分配 第七节　Shell函数 第三节　参数传递 第二节　Function过程 第四节　可选参数与可变参数 第五节　对象参数 第九章 过程 VB应用程序是由过程组成的。多个不同的事件过程可能需要使用一段相同的程序代码，因此可以把这一段代码独立出来，作为一个过程——“通用过程”。 VB中通用过程分为两类，即子程序过程和函数过程。前者叫Sub过程，后者叫Function过程。 第一节　Sub 过程 格式：　[Static][Private][Public]Sub过程名[(参数表列)]　　　　 语句块　　　　　[Exit Sub]　　　　　[语句块]　End Sub 1.Sub过程的定义 说明： （1）Sub过程以Sub开头，以End Sub结束，在