VisualBasic设计过程

《VisualBasic设计过程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第8章过程8.1子过程8.2函数过程8.3参数传递8.4过程的应用8.5键盘和鼠标事件过程8.6本章小结8.7上机实训结束8.1子过程8.1.1通用过程的定义8.1.2子过程的调用返回首页8.1.1通用过程的定义（1）1.通用过程的语法格式通用过程的语法格式如下：[Public

2、Private][Static]Sub过程名([形参表])[局部变量或常数声明][语句块][ExitSub][语句块]EndSub8.1.1通用过程的定义（2）说明：（1）[Public

3、Private]：可选。指定过程的作用范围

4、。若省略，则默认为Public（全局）。（2）Static：可选。指定本过程内的所有局部变量均为静态变量。（3）过程名：命名规则与变量命名规则相同。无参数时，过程名后的括号不能省略。（4）形参表：形参表类似于变量声明，指明本过程被调用时传送给本过程的变量个数和类型。若有多个变量，各变量之间用逗号间隔。形参表中出现的参数称为形式参数，简称形参。每个形参的格式为：[ByVal

5、ByRef]形参名[()][As类型]8.1.1通用过程的定义（3）ByVal表示该参数按值传递，ByRef表示该参数按地址传递（默认

6、）。形参名必须是合法的变量名或数组名（后面加括号）。类型代表该参数的数据类型，默认为Variant。不能用定长字符串变量或定长字符串数组作为形式参数，但是可以在调用过程时用简单定长字符串变量作为“实际参数”，VB将其转换为变长字符串变量传递给过程。（5）ExitSub语句表示立即退出子过程，通常将其置于选择结构中。（6）在过程内不能再定义过程，但可以调用其他过程。8.1.1通用过程的定义（4）2.通用过程的创建创建通用过程有两种方法：使用“添加过程”对话框；直接在代码编辑器窗口中输入过程代码。（1）使用“

7、添加过程”对话框步骤如下：①打开要添加过程的代码编辑器窗口。②执行【工具】菜单【添加过程】命令，打开如图8.1所示的【添加过程】对话框。8.1.1通用过程的定义（5）③在【名称】文本框中输入过程名。在【类型】框架中选择过程类型，其中【子程序】表示建立Sub过程，【函数】表示建立Function过程。在【范围】框架中选择范围，相当于使用Public或Private关键字。④单击【确定】按钮后，在代码编辑器窗口中将出现如图8.2所示的过程模板。（2）直接在代码编辑器窗口中输入在代码编辑器窗口中，将插入点放在已

8、有过程的外面，按照规定的语法格式输入过程名和参数，系统会自动产生最后一行语句EndSub。8.1.1通用过程的定义（6）图8.1【添加过程】对话框图8.2过程模板返回首页返回本节返回8.1.2子过程的调用（1）子过程的Sub与EndSub之间的语句序列称为过程体，每次调用子过程都会执行过程体中的语句。在程序中，既可以调用通用过程，也可以调用事件过程。1.调用通用过程调用子过程有两种方法：使用Call语句；直接使用过程名。语法格式如下：Call过程名[(实参表)]或者：过程名[实参表]8.1.2子过程的调用

9、（2）说明：（1）实参表是实际参数（简称实参）列表，若有多个参数，参数之间要用逗号间隔。各实参与形参在参数列表中的位置相互对应，实参与对应位置的形参必须是同一类型，可以是常数、变量、数组元素或表达式。（2）当用Call语句调用子过程时，若有参数，则参数必须放在圆括号内；若无参数，则省略过程名后的圆括号。（3）若不使用Call关键字，则过程名后不能加括号。若有参数，则参数直接跟在过程名之后，参数与过程名之间用空格间隔，参数与参数之间用逗号间隔。8.1.2子过程的调用（3）【例8.1】编写一个计算圆面积和周长

10、的通用过程。在窗体的单击事件中通过InputBox函数输入圆的半径，然后调用该过程计算圆面积和周长，计算结果通过消息对话框输出。程序运行结果如图8.3所示，代码详见教材。图8.3计算圆面积和周长8.1.2子过程的调用（4）【例8.2】创建一个简单的文本编辑程序，利用通用过程控制用于编辑操作的命令按钮的有效状态（Enabled属性）。运行界面如图8.4所示。左图为选定文本后的状态，右图为单击“复制”按钮后的状态。图8.4子过程示例8.1.2子过程的调用（5）在窗体上放置一个文本框，名称为txtEdit，设其

11、Text属性为空，MultiLine属性为True，ScrollBars属性为2。添加三个命令按钮，名称分别为cmdCut、cmdCopy和cmdPaste，设置Caption属性均为空，Enabled属性均为False，Style属性均为1（图形），通过Picture属性为它们各设置一幅图片，设ToolTipText（工具提示文本）属性分别为【剪切】、【复制】和【粘贴】。再添加一个命令按钮cmdExit，设置其Caption