第7章 过程 计算机等级考试之VB程序设计课件.ppt

7.1 Visual Basic 的工程 7.2 过程的定义和调用 7.3 参数传递 7.4 复杂的过程参数 7.5 过程与变量的作用域 7.6 键盘事件过程和复杂鼠标事件过程 7.7 递归 1．KeyDown 和 KeyUp 事件 当焦点在某一对象时，按下键盘上任一键就会触发该对象的KeyDown事件，放开按键就会触发该对象的KeyUp事件。 7.6.2 键盘事件过程与窗体的KeyPreview属性 KeyDown事件过程的一般格式： Private Subobject_KeyDown([index As integer,] keycode As Integer, shift As Integer) 一系列语句 End Sub 其中object 为窗体或其他可以响应键盘事件的控件名。 index为控件数组元素的下标，当object是控件数组元素时才有此参数。Keycode为按键的键盘扫描码，表示按键的物理位置。 Shift 为一个3位二进制整数，表示键盘事件发生时，键盘上的Shift、Ctrl和Alt键是否同时被按下。该整数与按键的对应关系如下： 按键 二进制数 十进制值 VB符号常数 Shift键 001 1 vbshiftmask Ctrl键 010 2 vbctrlmask Alt键 100 4 vbaltmask 说明：shift的值可以表示按组合键的情况。 例如，同时按下Ctrl和Alt键，则shift值为110（二进制）。 KeyUp事件过程的一般格式： Private Subobject_KeyUp([index As integer,] keycode As Integer, shift As Integer) 一系列语句 End Sub 其中object、index、Keycode和Shift参数与KeyDown事件过程一样。 例7-21 利用文本框的KeyDown事件过程在文本框中显示所敲的键(扫描码)，包括组合键（Shift，Ctrl和Alt）。 Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=0 置KeyAscii为0，清空Text1 End Sub Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Dim KeyName As String 定义临时变量，存储击键名 Select Case Shift Case 0 不是按组合键 KeyName= Case 1 按下Shift键 KeyName=Shift+ Case 2 按下Ctrl键 KeyName=Ctrl+ Case 3 按下Ctrl+Shift键 KeyName=Shift+Ctrl+ Case 4 按下Alt键 KeyName=Alt+ Case 5 按下Shift+Alt键 KeyName=Shift+Alt+ Case 6 按下Ctrl+Alt键 KeyName=Ctrl+Alt+ Case Else 按下Shift+Ctrl+Alt键 KeyName=Shift+Ctrl+Alt+ End Select Text1.Text=KeyName+Chr(KeyCode) 显示被按下的键 End Sub 2．KeyPress事件 当焦点在某一对象时，在键盘上按下任意一个有Asc码的键都会触发该对象的KeyPress事件。 KeyPress事件过程的一般格式： Private Sub object_KeyPress([index As integer,] keyAscii As Integer)