VB第8章 过程.pptVIP

第8章 过程 通用过程 Sub通用过程的建立 Sub过程的调用 Sub过程的调用方法 方法一：Call 过程名 [(实参列表) ] 方法二：过程名 [实参列表 ] Private Sub Command1_Click() Call N(Val ( Text1.Text ) ) End Sub Public Sub N( a As Integer) Dim i As Integer Dim f As Long f = 1 For i = 1 To a f = f * i Next i Form1.Label3.Caption = Str(f) End Sub 例 判定成绩函数 控件参数 例8-11 编写一个通用过程，在该过程中设置字体的相关属性。先在窗体上画一个标签控件，并将其BorderStyle设置为1。然后编写代码如下： Private Sub Form_Click() Call fontadjust(Label1) End Sub Private Sub Form_Load() Label1.Caption = 未调用含有控件参数的过程前 End Sub Private Sub fontadjust(Labeln As Control) Labeln.FontBold = True Labeln.FontName = 黑体 Labeln.FontSize = 16 Labeln.FontItalic = True Labeln.Caption = 调用含有控件参数的过程后 End Sub 第8章 过程 8.5 对象参数 例8-12 在窗体上画一个标签控件Label1，然后编写代码如下： Private Sub Form_Click() Call abc(Label1) End Sub Private Sub abc(textn As Control) textn.Text = 文本内容 End Sub 分析错误发生的原因，在定义abc过程的代码中对控件的Text属性进行了赋值。但是在调用的时候，传送给过程的是控件Label1，而该控件没有Text属性，所以发生错误。 第8章 过程 8.5 对象参数 * 在程序设计中，为将复杂问题简单化，便于代码的调试与维护，提高代码的利用率，往往将应用程序按功能或其他目的划分为若干个模块，而每个模块还可继续细分为子模块。这此模块或子模块，都是可重复使用的、独立的过程。 过程的概念 过程就是一段独立的程序段 在前面的章节中，我们接触了事件的过程。本章我们将学习另外一类过程——通用过程。 第8章 过程 有时，多个不同的事件过程可能需要使用一段相同的程序代码，可将这段代码独立出来，作为一个过程，即通用过程。通用过程可供事件过程和其他过程调用。 在Visual Basic中通用过程分为两类： 第8章 过程 子过程：以SUB保留字开始，又称为SUB过程 函数过程：以Function保留字开始，又称为Function过程 8.1 Sub过程 Sub子过程定义的一般格式 [Static] [Private] [Public] Sub 子过程名(形参列表) 语句块 [Exit Sub] 语句块 End Sub Sub通用过程可以放在标准模块中定义，也可以放在窗体模块中定义，而事件过程只能放在窗体模块中定义。 第8章 过程 8.1 Sub过程 说明： Static：静态过程。 Private: 私有过程。只能被本模块中的其它过程访问，不能被其它模块中的过程调用。 Public: 公有过程。能被程序中的所有模块调用。 Exit Sub : 终止过程的运行并退出过程。 End Sub : 过程结束标志。 第8章 过程