第9章响应键盘与鼠标事件.ppt

《第9章响应键盘与鼠标事件.ppt》由会员分享，可在线阅读，更多相关《第9章响应键盘与鼠标事件.ppt（18页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2022-5-301第第 9 章章 响应键盘与鼠标事件过程响应键盘与鼠标事件过程n响应键盘事件响应键盘事件n响应鼠标事件响应鼠标事件n拖放操作拖放操作2022-5-3029.1 键盘事件键盘事件nKeyPress事件事件nKeyDown事件事件nKeyUp事件事件能够捕捉用户对键盘的所有操作能够捕捉用户对键盘的所有操作 2022-5-3039.1.1 KeyPress事件 KeyPress事件当按下与事件当按下与ASCII字符相对应的键时触字符相对应的键时触发，发， 它只能识别它只能识别Enter、Tab和和Backspace三个控三个控制键。制键。例如检测用户在文本框中输入字符时是否按下了回

2、车例如检测用户在文本框中输入字符时是否按下了回车键，可以在文本框的键，可以在文本框的KeyPress事件中加入以下代码：事件中加入以下代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MsgBox 您按下了回车您按下了回车键键 End Sub 2022-5-3049.1.2 KeyDown和KeyUp事件 KeyDown事件和事件和KeyUp事件提供了最低级的键事件提供了最低级的键盘响应，它可捕捉到一些特殊的、盘响应，它可捕捉到一些特殊的、KeyPress事件无事件无法检测的键或组合键：法检测的键

3、或组合键：（1）Shift、Ctrl和和Alt键的组合键的组合（2）PageUp和和PageDown键键（3）箭头键）箭头键（4）区分打字键盘的数值键和数值小键盘的数字键）区分打字键盘的数值键和数值小键盘的数字键（5）与菜单命令无关的功能键）与菜单命令无关的功能键2022-5-3059.1.2 KeyDown和KeyUp事件 KeyDown事件和事件和KeyUp事件的事件的KeyCode参数在输入字符参数在输入字符“A”与与“a”的返回值相同，的返回值相同，若要区别它们，则要借助于若要区别它们，则要借助于shift键和键和shift参参数。数。 KeyDown事件和事件和KeyUp事件可识别标

4、准事件可识别标准键盘上的大多数控制键，包括所有的功能键键盘上的大多数控制键，包括所有的功能键F1F16，编辑键，编辑键PageUp、PageDown键、键、Delete、Insert键等，箭头键键等，箭头键、，数字小键盘上的键。数字小键盘上的键。 2022-5-306【例【例9.1】当用户输入了正确的密码时，显示】当用户输入了正确的密码时，显示“密码正确密码正确!”，否则提示用户，否则提示用户“无效的密码，无效的密码，请重试请重试!”，若用户连续输入三次错误，则提，若用户连续输入三次错误，则提示用户示用户“您无权进入系统！您无权进入系统！”，退出。当用，退出。当用户完成输入密码后，直接按下回车

5、键或单击户完成输入密码后，直接按下回车键或单击“确定确定”按钮都可完成检测用户名称和密码按钮都可完成检测用户名称和密码正确与否的操作。正确与否的操作。 9.1.3 实例：登陆检测程序 2022-5-3079.2 鼠标事件鼠标事件 Visual Basic提供了三种鼠标事件来响应提供了三种鼠标事件来响应鼠标的动作：鼠标的动作：nMouseDown按下鼠标任意按钮时发生；按下鼠标任意按钮时发生；nMouseUp释放鼠标任意按钮时发生；释放鼠标任意按钮时发生；nMouseMove鼠标指针移动到新位置时发生。鼠标指针移动到新位置时发生。 2022-5-3089.2 鼠标事件鼠标事件鼠标事件的参数： B

6、utton描述鼠标按钮的状态。描述鼠标按钮的状态。1表示按下表示按下鼠标左键，鼠标左键，2表示按下鼠标右键，表示按下鼠标右键，3表示同表示同时按下鼠标左键和右键（只能由时按下鼠标左键和右键（只能由MouseMove事件识别，事件识别，MouseDown事件和事件和MouseUp事事件一次只能识别一个按钮），件一次只能识别一个按钮），4按下中间键按下中间键 Shift描述描述Shift、Alt和和Ctrl键的状态键的状态 X,Y由接受鼠标事件的对象的坐标系统所描由接受鼠标事件的对象的坐标系统所描述的鼠标指针的位置。述的鼠标指针的位置。2022-5-3099.2.1 MouseDown和和Mous

7、eUp事件事件 按下鼠标按钮时触发按下鼠标按钮时触发MouseDown事件，事件，释放鼠标按钮时触发释放鼠标按钮时触发MouseUp事件。事件。MouseDown事件可以记录按下鼠标按钮事件可以记录按下鼠标按钮的位置，的位置，MouseUp事件记录释放鼠标按钮事件记录释放鼠标按钮的位置。通过结合这两者，可实现画图，的位置。通过结合这两者，可实现画图，控制控件位置等操作。控制控件位置等操作。2022-5-30109.2.2 MouseMove事件 当鼠标指针在对象上移动时，就会当鼠标指针在对象上移动时，就会触发触发MouseMove事件，事件，Visual Basic中的大多数对象都能识别该事件

8、。只要中的大多数对象都能识别该事件。只要鼠标指针位置发生改变，鼠标指针位置发生改变，MouseMove事件就会被识别事件就会被识别. 2022-5-30119.2.2 MouseMove事件 【例【例9.2】应用鼠标事件实现图片跟随效果。】应用鼠标事件实现图片跟随效果。 2022-5-30129.3 拖放操作nDragDrop和和DragOver事件事件nDragMode属性属性nDragIcon属性属性nDrag方法方法2022-5-30139.3 拖放操作 在对象范围内，按下鼠标按钮并移动鼠标指针在对象范围内，按下鼠标按钮并移动鼠标指针的操作为拖动，释放按钮的操作为放下。的操作为拖动，释放

9、按钮的操作为放下。nDragDrop在将控件拖动到指定对象上时触发在将控件拖动到指定对象上时触发nDragOver在对象上发生拖动操作时触发在对象上发生拖动操作时触发2022-5-3014 9.3 拖放操作与拖放有关的属性：与拖放有关的属性： nDragMode启动自动拖动或手动拖动启动自动拖动或手动拖动nDragIcon指定拖动时显示的图标指定拖动时显示的图标与拖放有关的方法：与拖放有关的方法：nDrag启动或停止手动拖动启动或停止手动拖动2022-5-3015 9.3 拖放操作1.启动自动拖放模式启动自动拖放模式 将控件的将控件的DragMode属性设置为属性设置为“1Automatic”

10、，在设置好自动拖动后，拖动操，在设置好自动拖动后，拖动操作就一直保持在打开状态作就一直保持在打开状态.2.设置拖动图标设置拖动图标 若要改变拖动图标，就要设置若要改变拖动图标，就要设置DragIcon属性。属性。设置该属性最简单的方法是在属性窗口中，选设置该属性最简单的方法是在属性窗口中，选定定DragIcon属性后，单击属性后，单击“属性属性”按钮，再按钮，再从从“加载图标加载图标”对话框中选择图片文件。对话框中选择图片文件。 2022-5-30163.响应放下对象操作响应放下对象操作 源源被拖动的控件，可以是任意支持拖动被拖动的控件，可以是任意支持拖动操作的对象；目标操作的对象；目标能识别

11、能识别DragDrop事件并事件并且是在其上放控件的对象。且是在其上放控件的对象。 若在某控件范围内释放鼠标按钮，控件成为若在某控件范围内释放鼠标按钮，控件成为目标；若在无控件的窗体区域上，窗体成为目标。目标；若在无控件的窗体区域上，窗体成为目标。 在拖动对象完成后释放鼠标按钮时触发在拖动对象完成后释放鼠标按钮时触发DragDrop事件。此时事件。此时,需编写代码实现控件位置需编写代码实现控件位置的移动，控件是无法自动移动到新位置的。的移动，控件是无法自动移动到新位置的。 9.3 拖放操作2022-5-30179.3 拖放操作n【例【例9.4】应用】应用DragDrop事件实现购物事件实现购物车。车。 2022-5-30189.3 拖放操作n【例【例9.4】应用拖拽事件实现复制效果。】应用拖拽事件实现复制效果。