发布时间 : 星期六 文章第六章键盘鼠标的程序设计更新完毕开始阅读d5f6cb4233687e21af45a9bb
第6章 键盘、鼠标的程序设计
本章学习目标
通过本章学习应理解VB可视化程序设计的中事件驱动程序设计的概念；理解鼠标、键盘事件的触发机制；掌握对鼠标和键盘进行编程的基本技术；掌握窗体与常用组件的重要键盘事件和鼠标事件；初步学会对一些常用VB组件进行程序设计，实现事件驱动的鼠标拖放功能和OLE的鼠标拖放功能。
在前面我们已经学习了通用过程和一些常用的事件过程，那么在本章，我们继续学习键盘和鼠标的有关事件过程。在键盘事件的过程中可以处理当按下或释放键盘上某个按键时所执行的一些操作。而鼠标的事件过程可以用来处理鼠标按钮和光标位置移动有关的一些操作。
Windows程序的工作模式，称为事件（也称消息）驱动方式。所谓“事件”，是指作用于某个对象上的一种操作或动作，如运行程序时用鼠标单击窗体上菜单条的某个命令项时，“单击”（Click）这个动作就是作用在该命令项上的一个事件，也可以描述为该命令项发生了Click事件，当双击窗体上的某个命令按钮时，“双击”（Dblclick）就是作用在该命令按钮上的一个事件。VB中的每个对象通常都可以响应多个不同的事件。
VB应用程序除了能响应鼠标的单击(Click)和双击(DbClick)事件外，还能响应多种其他鼠标事件和键盘事件。本章主要介绍VB对象能够识别的3种键盘事件：KeyPress、KeyDown、KeyUp事件和3个鼠标事件：MouseDown、MouseUp、MouseMove事件。
此外，VB应用程序还可同时支持事件驱动的鼠标拖放功能和OLE的鼠标拖放功能。本章介绍了VB提供的用于鼠标拖放操作处理的DragMode和DragIcon属性、Drag方法、DragOver和D)ragDrop事件。同时，简要介绍了VB所支持的OLE拖放的实现方法。
6.1 键盘事件
键盘事件是用户敲击键盘时触发的事件。通常对于接受文本输入的控件，在键盘事件中进行编程检测输入数据的合法性或对于不同键值的输入实现不同的操作。如文本框TextBox，当需要控制文本框中输入的内容时，可以通过对键盘事件编写“事件过程”实现。
窗体以及可接受键盘输入的控件如TextBox、CommandButton、PictureBox、ComboBox等控件都可识别键盘事件。
在VB中，对象识别的键盘事件有以下3种：
．KeyPress事件：用户按下并释放一个会产生ASCII码的键时被触发。 ．KeyDown事件：用户按下键盘上任意一个键时被触发。
．KeyUp事件：用户按下键盘上任意一个键后释放键时被触发。
6.1.1 KeyPress事件
KeyPress事件当用户按下和松开键盘上一个字符键时发生。该事件可用于窗体、文本框、复选框、组合框、列表框、命令按钮、图片框、滚动条以及与文件有关的控件。当按下某个键时，所触发的是拥有输入焦点的那个控件的keyPress事件。在某一时刻只有一个控件拥有输入焦点，如果当前窗体中没有控件拥有焦点，那就是当前窗体具有焦点。KeyPress事件检测的键有Enter、Tab、BackSpace以及键盘上的字母、数字和标点符号键，对于其他功能键、编辑键和定位键，则不作响应。该事件发生时，被按的键的标准ASCII码将自动传递给keypress事件过程的KeyAscii参数，这是个预定义的变量。在程序中，通过访问该参数，即可获知用户按下了哪一个键，并可识别字母的大小写。KeyPress事件过程形式如下：
窗体的KeyPress事件过程：
Private Sub Form_KeyPress ( KeyAscii As Integer ) End Sub
窗体上控件的KeyPress事件过程：
Private Sub Obiect_KeyPress([Index As Integer,] KeyAscii As Integer) End Sub
其中[Index As Integer,]可选参数，是当有一组相同的控件时才有，其用来传递触发KeyPress事件的控件在控件数组中的序号。
例6.1 设计一个简单窗体，其中放置一个命令按钮，当运行程序时，用户在键盘上按下任意ASCII码键时，窗体中显示所按键的ASCII码值。如图6.1所示，这是按下了a、A、b、B、z、Z、0、1、9、Tab、Backspace等键时显示的ASCII码值。
图6.1 窗体中显示所按键的ASCII码值
这里只需为Command1按钮设计KeyPress事件处理代码，见图6.2。
图6.2 编写KeyPress事件的处理代码
在默认情况下，用户操作时，当窗体和控件同时存在时，控件的KeyPress事件触发优先级高于窗体的，这时进行按下并释放的键盘操作时，直接触发具有控制焦点的控件的KeyPress事件，窗体本身不会接收到该事件。但是，当把窗体的KeyPreview属性设置为True时，窗体将先于该窗体上的控件接收该事件，窗体接收到该事件后焦点控件将继续接收该事件。利用这一点，在窗体KeyPress事件过程中若修改了KeyAscii变量的值，则当前选中对象的KeyPress事件将接收到修改后的按键码，如果窗体KeyPress事件过程将KeyAscii设置为0，则不再调用对象的KeyPress事件过程。 说明：
(1)KeyPress事件只对会产生ASCII码的按键有反应，包括数字、大小写的字母、标点符号、Enter、BackSpace、Esc、Tab等。对于如方向键这样不会产生ASCII码的按键，KeyPress事件不会被触发。
(2)在默认情况下，具有焦点的控件才能接收该事件。一个窗体只有在不具有可视的和有效的控件时或KeyPreview属性被设置为True时才能接收该事件。
KeyPress事件常用于编写文本框的事件处理器，因为这个事件发生在字符按下和显示在文本框之前。利用该事件，可以对文本框输入的数据进行限制。
例6.2 在窗体上有一个用于输入学号的文本框xh，其中只允许输入数字或Backspace回删键。如图6.3所示。
图6.3 用KeyPress事件限制文本框中输入数字或按Backspace键
其中设置窗体Form1的KeyPreview属性设置为True；KeyPress事件过程代码如下： ?按键若不是数字键或回删键，则无效
Private Sub Form_KeyPress(KeyAscii As Integer) a = KeyAscii Print a
If a >= 48 And a <= 57 Or a = 8 Then Print \ valid \ Else
Print \ invalid\ KeyAscii = 0 End If End Sub
为窗体的命令按钮“确定”设计单击事件，代码如下： Private Sub Command1_Click() End End Sub
则该文本框只能接收“0”~“9”的数字字符和回删键。如果输入了其他字符，则将其KeyAscii更改为0，使控件最后接收到的是KeyAscii=0的字符（空字符，不等于空格字符），这样就抑制了那些非数字字符的输入。
KeyPress事件除了可以对文本框输入的数据进行限制外，还可以用来对文本输入的数据进行修改，控件接收的是经过修改后的数据。例如，如果希望将文本框Text1中的所有字符都强制转换为大写字符，则其KeyPress事件过程代码如下：
Private Sub Text1_ KeyPress(KeyAscii As Integer) KeyAscii=Asc(UCase(Chr(KeyAscil))) End Sub
6.1.2 KeyDown事件和KeyUp事件
上节所学习的的KeyPress事件，直接返回按键的“字符”的ASCII码，KeyPress 事件只识别 Enter、Tab和Backspace 键，不能能够检测其它功能键、编辑键和定位键。而KeyDown和KeyUp事件除了可以识别KeyPress事件能识别的键，还可识别键盘上的大多数键，如功能键、编辑键、定位键和数字小键盘上的键等。
有些键不是ASCII字符，比如shift，ctrl，那么按下去以后，keydown事件可以发生，而keypress事件则不会发生。
下面介绍KeyDown事件和KeyUp事件的编程和应用。 1. KeyDown事件
用户按下键盘上某个键时触发此事件。 窗体的KeyDown事件过程：
Private Sub Form_KeyDown ( KeyCode As Integer,Shift As Integer) ?? End Sub
参数KeyCode是一个按下键的扫描码（即键码），它告诉事件过程用户所按键的物理键位。可以用KeyPress事件中的KeyAscii的ASCII码判断输入的是何字符，用keycode判断