第三章 VB6.0 4 过程.pptVIP

MouseDown：鼠标的任一键被按下时触发该事件。 MouseUp：鼠标的任一键被释放时触发该事件。 MouseMove：鼠标被移动时触发该事件。 以Form 对象为例，它们的语法格式为： Private Sub Form_MouseDown（Button As Integer，Shift As Integer，X As Single，Y As Single） Private Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single） Private Sub Form_MouseUp（Button As Integer，Shift As Integer，X As Single，Y As Single） 【例】显示鼠标指针的当前位置。 程序如下： Private Sub Form_MouseMove（Button As Integer，_ Shift As Integer，X As Single，Y As Single） Text1.Text = X Text2.Text = Y End Sub 运行结果如图所示。 键盘事件 VB中的对象识别键盘事件，包括KeyPress、KeyUp和KeyDown事件。用户按下并且释放一个ANSI键时就会触发KeyPress事件；用户按下一个键时触发KeyDown事件，释放引发KeyUp事件。在引发键盘事件的同时，用户所按的键盘码作为实参传递给相应的事件过程，供程序判断识别用户的操作。 KeyPress只响应按下标准ASCII字符表中对应的键时的事件，如[Enter]QVFP、[Tab]键、[Backspace]键等以及标准键盘中的字母、标点、数字键等。而KeyDown和KeyUP则提供了最低级的键盘响应。 它们的格式如下： Sub Object_KeyPress（[Index As Integer，] KeyAscii As Integer） Sub Object_KeyDown（[Index As Integer，] KeyCode As Integer，Shift As Integer） Sub Object_KeyUp（[Index As Integer，] KeyCode As Integer，Shift As Integer） 【例】在窗体上放一文本框，编写一事件过程，保证在该文本框内只能输入字母，且无论大小写，都要转换成大写字母显示。 程序如下： Private Sub Text1_KeyPress（KeyAscii As Integer） Dim str$ If KeyAscii 65 Or KeyAscii 122 Then Beep KeyAscii = 0 ElseIf KeyAscii = 65 And KeyAscii = 90 Then Text1 = Text1 + Chr（KeyAscii） Else str = UCase（Chr（KeyAscii）） KeyAscii = 0 Text1 = Text1 + str End If End Sub 过程 过程是用来执行一个特定任务的一段程序代码。VB应用程序（又称工程或项目）由若干过程组成，这些过程保存在文件中，每个文件的内容通常称为一个模块。 在程序设计过程中，将一些常用的功能编写成过程，可供多个不同的事件过程多次调用，从而可以减少重复编写代码的工作量，实现代码重用，使程序简练、便于调试和维护。在VB6.0中，用户自定义过程分为：以“Sub”保留字开始的子过程、以“Function”保留字开始的函数过程、以“Property”保留字开始的属性过程、以“Event”保留字开始的事件过程。 本章主要介绍用户自定义的子过程和函数过程。 退出 子过程 函数过程 参数传递 过程与变量的作用域 鼠标事件和键盘事件 子过程 子过程是用特定格式组织起来的一组代码，通常用来完成一个特定的功能，可以被其它过程作为一个整体来调用。 子过程的定义 定义子过程有以下两种方法。 1．利用“工具”菜单下的“添加过程”命令定义 2．利用代码窗口直接定义 在窗体或标准模块的代码窗口把插入点放在所