VisualBasic程序设计（第二版） 丁爱萍 第8章 过程.pptVIP

第8章 过程 8.1 Sub过程 8.2 Function过程 8.3 参数传递 8.4 键盘与鼠标事件过程 习题八 8.1 Sub 过 程 8.1.1 事件过程与通用过程 1. 事件过程 事件过程由VB自行声明，用户不能增加或删除。 当用户对某个对象发出一个动作时，Windows会通知VB产生了一个事件，VB会自动地调用与该事件相关的事件过程。 控件事件过程的语法为 Private Sub〈控件名〉_〈事件名〉([〈形参表〉]) [〈语句组〉] End Sub 窗体事件过程的语法为： Private Sub Form_〈事件名〉([〈形参表〉]) [〈语句组〉] End Sub ?图8.1 “代码编辑器”窗口 图8.2 设置对象的Name属性 2. 通用过程 通用过程不与任何特定的事件相联系，只能由别的过程来调用，它可以存储在窗体或标准模块中。 8.1.2 通用过程的创建 1. 在“代码”编辑窗口中输入 在“代码”编辑窗口中，把光标定位在已有过程的外面。然后按如下格式输入通用过程： [ Private | Public ][ Static ] Sub〈过程名〉( [〈形参表〉] ) [〈语句列〉] [ Exit Sub ] [〈语句列〉] End Sub 2. 使用“添加过程”对话框 使用“添加过程”对话框建立过程的方法为 (1) 打开要添加过程的代码编辑窗口。 (2) 执行“工具”菜单中的“添加过程”命令， 打开“添加过程”对话框， 如图8.3所示。 (3) 在“名称”文本框中输入过程名。从“类型”组中选择过程类型。从“范围”组中选择范围，相当于使用Public或Private关键字。 (4) 单击“确定”按钮，在代码窗口中显示情况如图8.4所示。 图8.3 “添加过程”对话框 图8.4 代码编辑窗口 8.1.3 通用过程的调用 每次调用过程都会执行Sub和End Sub之间的〈语句列〉。Sub过程以Sub开始，以End Sub结束。当程序遇到End Sub时，退出过程，立即返回到调用语句的后续语句。 调用过程有诸多技巧，它们与过程的类型、位置以及在应用程序中的使用方式有关。 调用Sub过程有两种方法： (1) 使用Call语句：Call〈过程名〉( [〈实参表〉] ) (2) 直接使用过程名：〈过程名〉[〈实参表〉] 【例8-1】 编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形面积。 设计步骤如下： (1) 建立应用程序用户界面并设置对象属性，如图8.5所示。 图8.5 建立计算矩形面积的用户界面 (2) 在代码窗口中直接输入通用事件代码。 Sub recarea(rlen, rwid) Dim area area = rlen * rwid 计算矩形面积 MsgBox 矩形的面积是： area 用消息框输出矩形面积 End Sub (3) 编写窗体Form的单击Click事件代码。 Private Sub Form_Click() Dim a, b a = InputBox(“请输入矩形面积的长度：”) 用输入框输入矩形的长 b = InputBox(“请输入矩形面积的宽度：”) 用输入框输入矩形的宽 recarea a, b 调用recarea过程，也可以改为Call recarea(a, b) End Sub 如图8.6所示，编写子过程与窗体的事件过程代码。 图8.6 子过程与窗体的事件过程代码 (4) 运行工程。 单击标准工具栏中的“启动”按钮，运行工程，单击窗体，依次输入矩形的长、宽，如图8.7所示，求得矩形面积