[计算机软件及应用]第7章 过程.ppt

7.1 Visual Basic 的工程 7.2 过程的定义和调用 7.3 参数传递 7.4 复杂的过程参数 7.5 过程与变量的作用域 7.6 键盘事件过程和复杂鼠标事件过程 7.7 递归 例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) 一系列语句 End Sub 其中object 为窗体或其他可以响应键盘事件的控件名。 index为控件数组元素的下标，当object是控件数组元素时才有此参数。 KeyAscii表示按键的Asc码。 例7_22 把从键盘键入的字母转换为大写字母后在文本框中显示出来，同时把该字符的ASCII码在窗体上显示出来。若从键盘敲入的是不可显示的ASCII字符键，例如,Enter键，则文本框中无显示，只是在窗体上显示该键的ASCII码。 Private Sub Text1_KeyPress(Key As Integer) Dim char As String 在窗体上显示所敲键的ASCII码 Print Key char = Chr(Key) 转换为相应大写字母的ASCII码 Key = Asc(UCase(char)) End Sub 窗体的KeyPreview属性 窗体的KeyPreview属性的默认值为False。此时，窗体中获得焦点的控件将直接响应键盘事件。若当窗体的KeyPreview属性值为True时，窗体先截获键盘事件，然后才轮到获得焦点的控件响应键盘事件。 例7_23 KeyPreview属性示例。 Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer) Form1.Print 按键KeyCode: KeyCode Shift= Shift End Sub Private Sub Command1_Click() Form1.KeyPreview=Not Form1.KeyPreview Form1.Command1.Caption=KeyPreview=Form1.KeyPreview End Sub Private Sub Form_Load() Form1.KeyPreview=Tru