第六章键盘鼠标的程序设计.docx

第六章键盘鼠标的程序设计.docx

《第六章键盘鼠标的程序设计.docx》由会员分享，可在线阅读，更多相关《第六章键盘鼠标的程序设计.docx（44页珍藏版）》请在冰豆网上搜索。

第六章键盘鼠标的程序设计

第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.1KeyPress事件

KeyPress事件当用户按下和松开键盘上一个字符键时发生。

该事件可用于窗体、文本框、复选框、组合框、列表框、命令按钮、图片框、滚动条以及与文件有关的控件。

当按下某个键时，所触发的是拥有输入焦点的那个控件的keyPress事件。

在某一时刻只有一个控件拥有输入焦点，如果当前窗体中没有控件拥有焦点，那就是当前窗体具有焦点。

KeyPress事件检测的键有Enter、Tab、BackSpace以及键盘上的字母、数字和标点符号键，对于其他功能键、编辑键和定位键，则不作响应。

该事件发生时，被按的键的标准ASCII码将自动传递给keypress事件过程的KeyAscii参数，这是个预定义的变量。

在程序中，通过访问该参数，即可获知用户按下了哪一个键，并可识别字母的大小写。

KeyPress事件过程形式如下：

窗体的KeyPress事件过程：

PrivateSubForm_KeyPress（KeyAsciiAsInteger）

EndSub

窗体上控件的KeyPress事件过程：

PrivateSubObiect_KeyPress（[IndexAsInteger,]KeyAsciiAsInteger）

EndSub

其中[IndexAsInteger,]可选参数，是当有一组相同的控件时才有，其用来传递触发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事件过程代码如下：

‘按键若不是数字键或回删键，则无效

PrivateSubForm_KeyPress（KeyAsciiAsInteger）

a=KeyAscii

Printa

Ifa>=48Anda<=57Ora=8Then

Print"valid"

Else

Print"invalid"

KeyAscii=0

EndIf

EndSub

为窗体的命令按钮“确定”设计单击事件，代码如下：

PrivateSubCommand1_Click（）

End

EndSub

则该文本框只能接收“0”~“9”的数字字符和回删键。

如果输入了其他字符，则将其KeyAscii更改为0，使控件最后接收到的是KeyAscii=0的字符（空字符，不等于空格字符），这样就抑制了那些非数字字符的输入。

KeyPress事件除了可以对文本框输入的数据进行限制外，还可以用来对文本输入的数据进行修改，控件接收的是经过修改后的数据。

例如，如果希望将文本框Text1中的所有字符都强制转换为大写字符，则其KeyPress事件过程代码如下：

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

KeyAscii=Asc（UCase（Chr（KeyAscil）））

EndSub

6.1.2KeyDown事件和KeyUp事件

上节所学习的的KeyPress事件，直接返回按键的“字符”的ASCII码，KeyPress事件只识别Enter、Tab和Backspace键，不能能够检测其它功能键、编辑键和定位键。

而KeyDown和KeyUp事件除了可以识别KeyPress事件能识别的键，还可识别键盘上的大多数键，如功能键、编辑键、定位键和数字小键盘上的键等。

有些键不是ASCII字符，比如shift，ctrl，那么按下去以后，keydown事件可以发生，而keypress事件则不会发生。

下面介绍KeyDown事件和KeyUp事件的编程和应用。

1.KeyDown事件

用户按下键盘上某个键时触发此事件。

窗体的KeyDown事件过程：

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

……

EndSub

参数KeyCode是一个按下键的扫描码（即键码），它告诉事件过程用户所按键的物理键位。

可以用KeyPress事件中的KeyAscii的ASCII码判断输入的是何字符，用keycode判断按下了哪个键。

比如a和A两个字符，ASCII码不一样，分别为65、97，但都是按键盘上的A键输出来的，KeyCode就一样，均为97。

因此通过该参数不能区分字母字符键的大小写。

因为同一字母字符键的大小写均是由同一字符键键入的，其KeyCode相同，为此字母的大写字符的ASCII码。

对于有上档字符和下档字符的键，其KeyCode也是相同的，为下档字符的ASCII码。

例6.3设计一个窗体，右边放置一组Label标签，标注将在键盘上按什么键，窗体上显示按键的扫描码和ASCII码，没有ASCII码的不显示。

如图6.4所示。

在这个窗体中分别设计了Form1_KeyDown事件和Form1_KeyPress事件，KeyDown事件在KeyPress事件之前触发。

其代码如下：

‘所有按键都会触发KeyDown事件

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

Print"扫描码是：

";KeyCode

EndSub

‘不是所有按键都会触发KeyPress事件

PrivateSubForm_KeyPress（KeyAsciiAsInteger）

Print"字符";Chr（KeyAscii）;"的ASCII码是";KeyAscii

EndSub

图6.4KeyDown事件和KeyPress事件分别显示按键的扫描码和ASCII码

从图6.4可以看出，按下a键的这两个码，KeyCode是键码，值为65，而KeyAscii是ASCII码，值为97；当通过按下Shift键输入大写A时，KeyCode键码仍为65，而KeyAscii值为65。

还有主键盘的数字键1和数字键盘的1，其ASCII码一样，但KeyCode键码不一样。

Ctrl键和CapsLock键触发KeyDown事件，但不触发KeyPress事件。

Shift参数表示在键盘操作时Shift、Ctrl和Alt键的状态。

Shift是一个整数，用来标明在该事件发生时是否还同时按了、和这3个控制键。

Shift参数是一个位域，它用最少的位响应Shift键（位0）、Ctrl键（位1）和Alt键（位2）。

对应位为1表示相应键被按下，为0表示该键未被按下。

由此，Shift参数的值等于1、2和4分别表示、和键被按下。

若和被同时按下，则Shift参数的值为6（二进制的110）。

因此，可结合该参数项来判断输入字母的大小写。

图6.5说明了Shift参数与位的关系，Shift参数值及系统预定义常数含义见表6.1。

图6.5Shift参数与位的关系

表6.1Shift参数值及系统预定义常数含义

二进制值

十进制值

系统常数

含义

000

0

None

未按下任何键

001

1

vbShiftMask

按下SHIFT键

010

2

vbCtrlMask

按下CTRL键

011

3

vbCtrlMask+vbShiftMask

同时按下SHIFT键和CTRL键

100

4

vbAltMask

ALT键被按下

101

5

vbAltMask+vbShiftMask

同时按下SHIFT键和ALT键

110

6

vbCtrlMask+vbAltMask

同时按下CTRL键和ALT键

111

7

vbCtrlMask+vbAltMask+

vbShiftMask

同时按下CTRL键、ALT键和SHIFT键

对KeyCode参数的测试，可以通过相应的键码，也可使用键码常数，如vbKeyFl（Fl键）、vbKeyHome（Home健）、vbKeyLeft（←方向键）、vbKeyUp（↑方向键）。

有关键码常数定义较多，请参见VB相关资料。

若是可获得焦点的控件，其KeyDown事件过程如下：

PrivateSubObject_KeyDown（[IndexAsInteger,]KeyCodeAsInteger,ShiftAsInteger）

……

EndSub

其中[IndexAsInteger,]可选参数，是当有一组相同的控件时才有，其用来传递触发KeyDown事件的控件在控件数组中的序号。

下面的代码使用Shift参数判断是否按下了键Ctrl、Alt或Shiftt，不区分左右。

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

SelectCaseShift

Case0

Print"你没按Shift、Ctrl、Alt"

Case1

Print"你按了上档键Shift"

Case2

Print"你按了控制键Ctrl"

Case3

Print"你同时按了控制键Ctrl和上档键Shiftt"

Case4

Print"你按了控制键Alt"

Case5

Print"你同时按了控制键Alt和上档键Shiftt"

Case6

Print"你同时按了控制键Ctrl和Alt"

Case7

Print"你同时按了控制键Ctrl、Alt和上档键Shiftt"

EndSelect

EndSub

在上述代码中，对Shift参数的测试，也可使用系统定义的内部常数。

Shift常数含义见表6.1。

即写成如下形式：

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

SelectCaseShift

CasevbNone

Print"你没按Shift、Ctrl、Alt"

CasevbShiftMask

Print"你按了上档键Shift"

CasevbCtrlMask

Print"你按了控制键Ctrl"

CasevbShiftMask+vbCtrlMask

Print"你同时按了控制键Ctrl和上档键Shiftt"

CasevbAltMask

Print"你按了控制键Alt"

CasevbShiftMask+vbAltMask

Print"你同时按了控制键Alt和上档键Shiftt"

CasevbCtrlMask+vbAltMask

Print"你同时按了控制键Ctrl和Alt"

CasevbCtrlMask+vbShiftMask+vbAltMask

Print"你同时按了控制键Ctrl、Alt和上档键Shiftt"

EndSelect

EndSub

2.KeyUp事件

用户按下键盘上某个键后释放时触发此事件。

当控制焦点置于某对象上，同时用户按下键盘上的任一键，便会对相应对象触发KeyDown事件，释放按健便触发相应对象的KeyUp事件。

与KeyPress事件不同，KeyUp和KeyDown事件返回的是被按下或释放的键盘扫描码和组合键的状态。

其事件过程形式如下：

窗体的KeyUp事件过程：

PrivateSubForm_KeyUp（KeyCodeAsInteger,ShiftAsInteger）

……

EndSub

PrivateSubObject_KeyUp（[IndexAsInteger，]KeyCodeAsInteger，ShiftAsInteger）

……

EndSub

其中：

KeyCode是用户所按键的扫描码。

它告诉事件过程用户所按键的物理键位，对于有上档字符和下档字符的键，其KeyCode为下档字符的ASCII码。

说明：

（l）对于这两个事件来说，带焦点的对象都能接收所有按键。

一个窗体只有在不具有有效的可视的控件时才可以获得焦点。

（2）键不能触发KeyUp和KeyDown事件；命令按钮的Default属性设置为True时，键不能触发KeyUp和KeyDown事件；命令按钮的Cancel属性设置为True时，键不能触发KeyUp和KeyDown事件。

（3）对于任何不被KeyPress识别的按健应当使用KeyUp和KeyDown事件过程来处理，如按下功能键、编辑键、定位键以及任何这些键和键盘换档键的组合等。

与KeyUp和KeyDown事件不同的是，KeyPress事件不显示键盘的物理状态，而只是传递一个字符。

（4）查看键盘按键的KeyCode键码值

如果不清楚键盘各按键的KeyCode键码值（字符键实际就是Ascii码值），可以通过对象浏览器窗口来查看。

在工具栏单击“对象浏览器”按钮，打开“对象浏览器”如图6.6所示。

在搜索栏键入KeyCodeConstant，单击“搜索”图按钮，在“成员”栏出现各种键盘按键常数，选择某一个按键常数就可以在下面的描述中显示按键的键码值。

例如，回车键的键码为13（也是它的ASCII码），字母“a”的ASCII码为97，字母“A”的ASCII码为65，因其为同一键，所以键码值均为65。

数字“0”~“9”按键的键码值是48~57。

图6.6查看键盘按键的KeyCode键码值

通过前面的学习，我们知道了键盘事件一般编程和应用，但不同的事件有些差别，表6.2列出了KeyPress与KeyDown及KeyUp事件的详细区别。

表6.2KeyPress与KeyDown及KeyUp事件的区别

KeyPress

KeyDown

KeyUp

事件发生的时间

按下一个Ascii字符键

按任意一个键

松开任意一个键

参数值

KeyAscii接收到字符的Ascii值

KeyCode接收到键的扫描码

KeyCode接收到键的扫描码

同时按Shift+A时事件发生次数

事件发生一次

事件发生两次

事件发生两次

键盘处于大写，同时按Shift+A时的参数值

97

第一次是17（Shift键码）

第二次是65（A的Ascii码）

同左

键盘处于小写，同时按Shift+A时的参数值

65

第一次是17（Shift键码）

第二次是65（A的Ascii码）

同左

下面通过一个综合例子了解KeyPress、KeyDown和KeyUp事件的用法。

例6.4键盘事件的用法，程序运行界面如图6.7所示。

Text1控件接收键盘输入并触发KeyPress、KeyDown和KeyUp事件，在不同的事件中用文本框或标签显示不同的参数值，同时用三个复选框显示是否按下了控制键。

图6.7KeyDown和Keyup的用法

在窗体上放置5个标签、3个文本框、3个复选框、1个命令按钮。

Text1文本框接收输入，Text2文本框显示当按下键时的键码，text3文本框显示当按下Ascii字符键时的相应的Ascii码，三个复选框在KeyDown事件中通过判断Shift参数值进行设置，当按下和松开功能键时，在KeyDown事件中通过判断显示按下了那个功能键，在KeyUp事件中判断并显示松开了那个功能键。

为窗体和控件编写事件处理代码。

窗体的事件过程代码：

PrivateSubForm_Activate（）

Text1.SetFocus

EndSub

文本（输入）框Text1的KeyDown事件过程代码：

PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

Text2.Text=Text2.Text&Str（KeyCode）&","

IfKeyCode>111AndKeyCode<124Then

Label4.Caption="你刚才按了功能键：

"&"F"&Str（KeyCode-111）

Label4.BackColor=RGB（0,0,225）

Label4.Visible=True

Else

Label4.Visible=False

EndIf

Check1（0）.Value=IIf（（ShiftAndvbCtrlMask）>0,1,0）

Check1

（1）.Value=IIf（（ShiftAndvbAltMask）>0,1,0）

Check1

（2）.Value=IIf（（ShiftAndvbShiftMask）>0,1,0）

EndSub

为了检测键是否被按下，上述代码使用ShiftAndvbShiftMask是否大于0作为测试条件，即将Shift参数与位屏蔽常数进行And（逻辑与）运算。

若运算结果大于零，则说明该键被按下。

对和键的检测方法与此类似。

“清除”命令按钮Commandl的Click事件过程代码：

PrivateSubCommand1_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text1.SetFocus

Check1（0）.Value=0

Check1

（1）.Value=0

Check1

（2）.Value=0

Label4.Visible=False

EndSub

文本（输入）框Text1的KeyPress事件过程代码：

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

Text3.Text=Text3.Text&Str（KeyAscii）&","

EndSub

文本（输入）框Text1的KeyUp事件中只对F1~F10的功能键进行判断处理，并设置标签Label4的背景色，以区别是按下功能键还是松开功能键，过程代码如下：

PrivateSubText1_KeyUp（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode>111AndKeyCode<124Then

Label4.Caption="你刚才松开了功能键：

"&"F"&Str（KeyCode-111）

Label4.BackColor=RGB（225,0,0）

Label4.Visible=True

Else