鼠标和键盘24

1、浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业 1. 理解鼠标、键盘事件的触发机制。理解鼠标、键盘事件的触发机制。 2. 掌握鼠标的掌握鼠标的MouseDown， MouseMove， MouseUp事件中各参数的含义及编程控制。事件中各参数的含义及编程控制。 3. 掌握键盘的掌握键盘的KeyDown， KeyPress， KeyUp 事件中各事件中各参数的含义及编程控制参数的含义及编程控制 4. 了解事件驱动的拖放和了解事件驱动的拖放和 OLE 的拖放。的拖放。本章要求：本章要求：鼠

2、标和键盘本章重点：本章重点：本章难点：本章难点：理解鼠标、键盘事件的触发机制运用理解鼠标、键盘事件的触发机制运用事件驱动的拖放和事件驱动的拖放和 OLE 的拖放的拖放浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业 大多数控件能够识别鼠标的大多数控件能够识别鼠标的MouseMove、MouseDown和和MouseUp事件，通过响应这些鼠标事件，能在应用程序对鼠事件，通过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化作出响应操作。标位置及状态的变化作出响应操作。MouseMove

3、当鼠标指针移动到屏幕新位置时发生当鼠标指针移动到屏幕新位置时发生MouseDown 按下任意鼠标键按钮时发生按下任意鼠标键按钮时发生MouseUp 释放任意鼠标键按钮时发生释放任意鼠标键按钮时发生鼠标浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业MouseMove、MouseDown、MouseUp三个事件的过程的语法格式如下：三个事件的过程的语法格式如下：Sub Object_MouseMove（Button As Integer，Shift As Integer，_ _ X As

4、Single，Y As Single）Sub Object _MouseDown（Button As Integer，Shift As Integer，_ _ X As Single，Y As Single）Sub Object _MouseUp（Button As Integer，Shift As Integer，_ _ X As Single，Y As Single） 其中：其中：1Object是可选的一个对象表达式，可以是窗体对象和大多数可视控件。是可选的一个对象表达式，可以是窗体对象和大多数可视控件。2Button参数是表示按下或松开鼠标哪个按钮。参数是表示按下或松开鼠标哪个按钮。1.

5、过程过程浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业 参数参数Button值值参数（参数（Button）值值 说明说明vbLeftButton 1左按钮被按下左按钮被按下vbRightButton 2右按钮被按下右按钮被按下vbMiddleButton 4中间按钮被按下中间按钮被按下 浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业 参数参数Shift值值参数（参数（Shift

6、） 值值 描述描述vbShiftMask 1SHIFT 键被按下键被按下vbCtrlMask 2CTRL 键被按下键被按下vbAltMask 4ALT 键被按下键被按下 3通过通过Shift参数表示在参数表示在Button参数指定的按钮被按下参数指定的按钮被按下或者被松开的情况下键盘的或者被松开的情况下键盘的Shift、Ctrl和和Alt键的状态，键的状态， 浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业Ctrl、Shift、Alt三键组合使用情况如表三键组合使用情况如表12.1浙江科

7、技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业4. 参数参数X、Y X, Y鼠标指针的位置，通过鼠标指针的位置，通过X和和Y参数返回一个指定鼠参数返回一个指定鼠标指针当前位置的数，标指针当前位置的数，X和和Y的值是使用该对象的坐标系统的值是使用该对象的坐标系统表示鼠标指针当前位置。表示鼠标指针当前位置。 注意：注意： 鼠标事件被用来识别和响应各种鼠标状态，并把这些状鼠标事件被用来识别和响应各种鼠标状态，并把这些状态看作独立的事件，在按下鼠标按钮并释放时，态看作独立的事件，在按下鼠标按钮并释放

8、时，Click 事件事件只能把此过程识别为一个单一的单击操作。鼠标事件能够区只能把此过程识别为一个单一的单击操作。鼠标事件能够区分各鼠标按钮及键盘的分各鼠标按钮及键盘的SHIFT、CTRL、ALT 键的状态。键的状态。浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业例：如果按住例：如果按住Ctrl，然后在坐标为（，然后在坐标为（2000,3000）的点）的点上按下鼠标器右键，则立即调用过程上按下鼠标器右键，则立即调用过程Object _MouseDown，释放鼠标器右键时调用过程，释放鼠

9、标器右键时调用过程Object _MouseUp，此时四个参数的值分别为，此时四个参数的值分别为2、2、 2000 、2000。浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业例例 1 显示鼠标器指针所指的位置显示鼠标器指针所指的位置。分析：用两个文本框显示鼠标器指针所指的位置，它们的名称分分析：用两个文本框显示鼠标器指针所指的位置，它们的名称分别是别是txtXtxtX和和txtYtxtY。MouseMoveMouseMove的事件过程如下：的事件过程如下： 浙江科技学院教信系计算机基础

10、教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业 例例 2 利用利用MouseMove事件结合绘图方法，在鼠标移动时画图。事件结合绘图方法，在鼠标移动时画图。 浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业鼠标光标的形状鼠标光标的形状 nMousePointer属性属性n整数，取整数，取015的值用于设置鼠的值用于设置鼠标指针的形状标指针的形状 n例：例： Text1.MousePointer=2 n设置鼠

11、标光标的形状设置鼠标光标的形状n在程序代码中设置在程序代码中设置n对象对象.MousePointer=设置值设置值n在属性窗口中设置在属性窗口中设置n自定义鼠标光标（取值自定义鼠标光标（取值99）浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业例例3 设置鼠标的形状为漏斗形。设置鼠标的形状为漏斗形。浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业当当MousePointer属性值被

12、设定成属性值被设定成99时，可以利用时，可以利用MouseIcon属性自定义鼠标指针。属性自定义鼠标指针。MouseIcon属性提供一个自定义图标，属性提供一个自定义图标，即该属性可以设置成一个图标文件。即该属性可以设置成一个图标文件。MouseIcon属性值的设定既可利用属性表在设计时指定；属性值的设定既可利用属性表在设计时指定；也可在运行时通过语句指定。用语句指定的语法如下：也可在运行时通过语句指定。用语句指定的语法如下：对象名对象名.MouseIconLoadPicture（PathName）对象名对象名.MouseIcon另一对象名另一对象名.Picture浙江科技学院教信系计算机基础

13、教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业例例4 编写程序，显示鼠标光标的形状编写程序，显示鼠标光标的形状浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业1.2 拖拖 放放 “ “拖放拖放”(DragDrop)(DragDrop)就是使用鼠标将对象从一个地方就是使用鼠标将对象从一个地方拖动到另一个地方再放下。它可以分解为两种操作：一拖动到另一个地方再放下。它可以分解为两种操作：一个是发生在源对象的个是发

14、生在源对象的“拖拖”操作，另一个是发生在目标操作，另一个是发生在目标对象上的对象上的“放放”操作。操作。 属性属性 DragMode DragMode属性：用于设置拖放方式，属性：用于设置拖放方式，1 1为自动方式；为自动方式；0 0 ( (默认默认) )为手动方式。为手动方式。 DragIcon DragIcon属性：设置拖放操作时显示的图标，默认情属性：设置拖放操作时显示的图标，默认情况下将源对象的灰色轮廓作为拖动图标。况下将源对象的灰色轮廓作为拖动图标。浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1

15、 12.2 本章作业 事件事件 DragDrop事件：当一个完整的拖放动作完成时触发。语法格式：事件：当一个完整的拖放动作完成时触发。语法格式： Private Sub 对象名对象名_DragDrop(Source As Control, _ X As Single, Y As Single)DragOver事件：当源对象被拖动到目标对象上，在目标对象上就事件：当源对象被拖动到目标对象上，在目标对象上就会触发会触发DragOver事件。事件。本事件先于本事件先于DragDrop事件。语法格式：事件。语法格式： Private Sub 对象名对象名_DragOver(Source As Cont

16、rol, _ X As Single, Y As Single, State As Integer) State参数：参数：0 表示进入，即源对象正进入目标对象内；表示进入，即源对象正进入目标对象内； 1 表示离开，即源对象正在离开目标对象；表示离开，即源对象正在离开目标对象； 2 表示跨越，即源对象在目标范围内移动位置表示跨越，即源对象在目标范围内移动位置浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业方法方法常用的有常用的有Drag方法。方法。Drag方法的语法格式：方法的语法格式：

17、 对象名对象名.Drag 动作动作 “动作动作”取值为取值为0时，表示取消拖动操作；时，表示取消拖动操作； 取值为取值为1时，启动拖动操作；时，启动拖动操作； 取值为取值为2时，结束拖动操作：时，结束拖动操作：浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业 例例5 把文本框中的选定文本，拖放到图片框内显示出来把文本框中的选定文本，拖放到图片框内显示出来操作步骤如下：操作步骤如下：(1)在窗体上建立一个图片框在窗体上建立一个图片框(Picture1)和一个文本框和一个文本框(Text1)

18、,文本框的文本框的Text属性为空属性为空(2)编写程序代码编写程序代码 功能要求：程序运行后，用户在文本框内输入文本和用鼠标选定功能要求：程序运行后，用户在文本框内输入文本和用鼠标选定(通通过拖动过拖动)文本，然后按住鼠标左键后把文本框拖放到图片框内，即可把文本，然后按住鼠标左键后把文本框拖放到图片框内，即可把已选定的文本显示在图片框内。已选定的文本显示在图片框内。浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站

19、：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业1.3 OLE 拖放拖放 Visual Basic支持支持OLE 拖放，使用这种强大且实用的拖放，使用这种强大且实用的工具，可以在其他支持工具，可以在其他支持 OLE 拖放的应用程序（如拖放的应用程序（如 Windows 资源管理器、资源管理器、Word 和和 Excel等等）之间、控件等等）之间、控件之间拖放数据。之间拖放数据。 例如：可以在例如：可以在word中选定一段文本，然后把它拖到写中选定一段文本，然后把它拖到写字板中，这个功能非常有用，但它的实现机制太复杂。字板中，这个功能非常有用，但它的实现机制太复

20、杂。浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业2 键盘 在在Visual Basic中，提供中，提供KeyPress、KeyDown、KeyUp三三种键盘事件，窗体和接受键盘输入的控件都识别这三种事件。种键盘事件，窗体和接受键盘输入的控件都识别这三种事件。 KeyPress 按下对应某按下对应某ASCII 字符的键。字符的键。 KeyDown 按下键盘的任意键。按下键盘的任意键。 KeyUp 释放键盘的任意键只有获得焦点的对象才能够接释放键盘的任意键只有获得焦点的对象才能够接受键盘

21、事件。受键盘事件。 2.1 KeyPress 事件事件在按下与在按下与ASCII字符对应的键时将触发字符对应的键时将触发KeyPress 事件。事件。 浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业KeyPress 事件过程的语法格式是：事件过程的语法格式是：Sub Object_KeyPress (KeyAscii As Integer)其中：其中： 例如，如果希望将文本框中的所有字符都强制转换为大写字符，则例如，如果希望将文本框中的所有字符都强制转换为大写字符，则可在输入时使用此事

22、件转换大小写：可在输入时使用此事件转换大小写：Private Sub Text1_KeyPress (KeyAscii As Integer) KeyAscii = Asc(Ucase(Chr(KeyAscii)End Sub Object是指窗体或控件对象名，是指窗体或控件对象名，KeyAscii 参数返回对应于参数返回对应于ASCII字字符代码的整型数值。符代码的整型数值。 2 键盘浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业例例6 6 通过编程序，在一个文本框（通过编程序，在一

23、个文本框（Text1Text1）中限定只能输入数字、小数）中限定只能输入数字、小数点，只能响应点，只能响应BackSpace BackSpace 键及回车键。键及回车键。 KeyPress 事件只识别事件只识别 Enter、Tab和和Backspace 等功能等功能键。不能够键。不能够检测其它功能键、编辑键和定位键。检测其它功能键、编辑键和定位键。 2 键盘浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业2 KeyDown 和和 KeyUp 事件事件 当一个对象具有焦点时按下（当一个对象

24、具有焦点时按下（KeyDown） 或松开或松开 ( KeyUp ) 一个一个键时发生。它们报告键盘本身准确的物理状态：按下键键时发生。它们报告键盘本身准确的物理状态：按下键 (KeyDown) 及及松开键松开键 (KeyUp)。KeyDown和和KeyUp事件能够检测其它功能键、编辑键和定位键。事件能够检测其它功能键、编辑键和定位键。KeyUp 和和 KeyDown 事件过程的语法格式如下：事件过程的语法格式如下：Sub Object_KeyDown(KeyCode As Integer, Shift As Integer)Sub Object_KeyUp(KeyCode As Integer

25、, Shift As Integer)说明：说明：1Keycode 参数表示按下的物理键。上档键字符和下档键字符也是使参数表示按下的物理键。上档键字符和下档键字符也是使用同一键，它们的用同一键，它们的KeycodeKeycode值相同。值相同。 浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录12.1 12.2 本章作业 keycode 参数通过参数通过 ASCII 值或键代码常数来识别键。字母键的键代值或键代码常数来识别键。字母键的键代码与此字母的大写字符的码与此字母的大写字符的 ASCII 值相同。所以值相同。所以 A 和和 a 的的 keycode 都是由都是由 Asc(A) 返回的数值。返回的数值。2 键盘浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：ww