《vb编程技术》过程

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

1、第8章过程8.1Sub过程8.2Function过程8.3参数传递8.4键盘与鼠标事件过程习题八8.1Sub过程8.1.1事件过程与通用过程1.事件过程事件过程由VB自行声明，用户不能增加或删除。当用户对某个对象发出一个动作时，Windows会通知VB产生了一个事件，VB会自动地调用与该事件相关的事件过程。控件事件过程的语法为PrivateSub〈控件名〉_〈事件名〉([〈形参表〉])[〈语句组〉]EndSub窗体事件过程的语法为：PrivateSubForm_〈事件名〉([〈形参表〉])[〈语句组〉]EndSub图8.1“代码编辑器”窗

2、口图8.2设置对象的Name属性2.通用过程通用过程不与任何特定的事件相联系，只能由别的过程来调用，它可以存储在窗体或标准模块中。8.1.2通用过程的创建1.在“代码”编辑窗口中输入在“代码”编辑窗口中，把光标定位在已有过程的外面。然后按如下格式输入通用过程：[Private

3、Public][Static]Sub〈过程名〉([〈形参表〉])[〈语句列〉][ExitSub][〈语句列〉]EndSub2.使用“添加过程”对话框使用“添加过程”对话框建立过程的方法为(1)打开要添加过程的代码编辑窗口。(2)执行“工具”菜单中的“添加过程”命令，

4、打开“添加过程”对话框，如图8.3所示。(3)在“名称”文本框中输入过程名。从“类型”组中选择过程类型。从“范围”组中选择范围，相当于使用Public或Private关键字。(4)单击“确定”按钮，在代码窗口中显示情况如图8.4所示。图8.3“添加过程”对话框图8.4代码编辑窗口8.1.3通用过程的调用每次调用过程都会执行Sub和EndSub之间的〈语句列〉。Sub过程以Sub开始，以EndSub结束。当程序遇到EndSub时，退出过程，立即返回到调用语句的后续语句。调用过程有诸多技巧，它们与过程的类型、位置以及在应用程序中的使用方式有关

5、。调用Sub过程有两种方法：(1)使用Call语句：Call〈过程名〉([〈实参表〉])(2)直接使用过程名：〈过程名〉[〈实参表〉]【例8-1】编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形面积。设计步骤如下：(1)建立应用程序用户界面并设置对象属性，如图8.5所示。图8.5建立计算矩形面积的用户界面(2)在代码窗口中直接输入通用事件代码。Subrecarea(rlen,rwid)Dimareaarea=rlen*rwid'计算矩形面积MsgBox"矩形的面积是："&area'用消息框输出矩形面积EndSub(3)编写窗体Fo

6、rm的单击Click事件代码。PrivateSubForm_Click()Dima,ba=InputBox(“请输入矩形面积的长度：”)'用输入框输入矩形的长b=InputBox(“请输入矩形面积的宽度：”)'用输入框输入矩形的宽recareaa,b'调用recarea过程，也可以改为Callrecarea(a,b)EndSub如图8.6所示，编写子过程与窗体的事件过程代码。图8.6子过程与窗体的事件过程代码(4)运行工程。单击标准工具栏中的“启动”按钮，运行工程，单击窗体，依次输入矩形的长、宽，如图8.7所示，求得矩形面积如图8.8所示

7、。图8.7输入矩形的长、宽图8.8矩形面积的计算结果【例8-2】编写一个用来延迟指定时间(秒)的Sub过程。通过调用该过程，按指定的时间间隔显示若干行信息。设计步骤如下：(1)为了简化操作，直接在窗体上输出。(2)编写通用事件过程代码：StaticSubdelayloop(delaytime)Constsecinday=24&*60&*60&'一整天的秒数loopfinish=Timer+delaytime'计算完成时间Ifloopfinish>secindayThen'如果延迟时间从午夜前开loopfinish=loopfinish-s

8、ecindayDoWhileTimer>loopfinish'利用空循环实现延迟LoopEndIfDoWhileTimerloopfinishLoop来控制时间延迟。用上面的delayloop过程可以延迟指定的时间，调用时用需要延迟

9、的时间(秒)作为实参。例如，延迟3秒可以用下面的代码实现：delayloop3(3)编写窗体Form的Click事件代码：PrivateSubForm_Click()Print"输出第一行内容