第9章鼠标键盘和OL控件

1、1第第9章章 鼠标、键盘和鼠标、键盘和ole控件控件9.1 9.1 鼠标鼠标9.2 9.2 键盘事件键盘事件9.3 9.3 拖放拖放29.1 鼠标鼠标9.1.1 9.1.1 鼠标事件鼠标事件9.1.2 9.1.2 改变鼠标指针改变鼠标指针39.1.1 鼠标事件鼠标事件1. 鼠标事件的格式鼠标事件的格式 鼠标事件包括鼠标事件包括mouseup、mousedown和和mousemove，分别是释放鼠标、按下鼠标和移动鼠标时触发的。语法：分别是释放鼠标、按下鼠标和移动鼠标时触发的。语法：private sub 对象名对象名_鼠标事件鼠标事件(button as integer，shift as in

2、teger，x as single，y as single)（1）button表示是哪个鼠标键被按下或释放。表示是哪个鼠标键被按下或释放。十进制十进制二进制二进制常数常数按下按钮按下按钮0000无无1001vbleftbutton左按键左按键2010vbrightbutton右按键右按键3011vbmiddlebutton中按键中按键4100vbleftbutton+vbrightbutton左、右按键左、右按键5101vbleftbutton+vbmiddlebutton左、中按键左、中按键6110vbrightbutton+vbmiddlebutton右、中按键右、中按键7111vblef

3、tbutton+vbrightbutton+vbmiddlebutton左、中、右按键左、中、右按键button常数值常数值 49.1.1 鼠标事件鼠标事件 （2）shift表示当鼠标键被按下或被释放时，表示当鼠标键被按下或被释放时，shift、ctrl、alt键的按下或释放状态。键的按下或释放状态。 （3）x、y表示鼠标指针的坐标位置。如果鼠标指针在窗表示鼠标指针的坐标位置。如果鼠标指针在窗体或图片框中，用该对象内部的坐标系，其他控件则用控件体或图片框中，用该对象内部的坐标系，其他控件则用控件对象所在容器的坐标系。对象所在容器的坐标系。 常数常数值值描述描述vbshiftmask1shift

4、键被按下键被按下vbctrlmask2ctrl键被按下键被按下vbaltmask4alt键被按下键被按下shift的常数值的常数值 59.1.1 鼠标事件鼠标事件2. mousedown和和mouseup事件事件【例【例9-1】界面设计：放置一个图片】界面设计：放置一个图片框框picture1用来绘图，三个按钮用来绘图，三个按钮command1command3，其中，其中command1和和command2分别为分别为“直线直线”和和“方块方块”。 功能要求：单击功能要求：单击command1或或command2按钮后，在图按钮后，在图片框中单击鼠标当鼠标按下时确定一个端点，当鼠标释放片框中单

5、击鼠标当鼠标按下时确定一个端点，当鼠标释放时确定另一个端点来画直线或画方块。时确定另一个端点来画直线或画方块。command3在图片在图片框中清除图形。框中清除图形。 运行界面运行界面69.1.1 鼠标事件鼠标事件3mousemove事件事件 mousemove事件是鼠标在屏事件是鼠标在屏幕上移动时触发的，窗体和控件都幕上移动时触发的，窗体和控件都能识别能识别mousemove事件，事件， 当鼠标当鼠标指针在对象的边界范围内时该对象指针在对象的边界范围内时该对象就能接收就能接收mousemove事件。事件。【例【例9-2】使用】使用mousemove事件可以连续地画线和方块，当事件可以连续地画

6、线和方块，当鼠标移动时在不断触发的鼠标移动时在不断触发的mousemove事件中画线和方块。事件中画线和方块。运运 行行 界界 面面79.1.2 改变鼠标指针改变鼠标指针1mousepointer属性属性 对象的对象的mousepointer属性用于设置鼠标指针属性用于设置鼠标指针的形状。在运行时对于控件，当鼠标经过时就会的形状。在运行时对于控件，当鼠标经过时就会显示显示mousepointer属性设置的形状；对于窗体，属性设置的形状；对于窗体，当鼠标经过空白区域或窗体中的当鼠标经过空白区域或窗体中的mousepointer属属性为性为0（默认值）的控件时，就会显示窗体的（默认值）的控件时，就

7、会显示窗体的mousepointer属性设置的形状。属性设置的形状。（快讲）（快讲）89.1.2 改变鼠标指针改变鼠标指针2mouseicon属性属性 当当mousepointer属性设置为属性设置为99（自定义图标）时，可以使用（自定义图标）时，可以使用mouseicon属性来确定鼠标指针的形状。有两种方法设置属性来确定鼠标指针的形状。有两种方法设置mouseicon属性：属性：（1）在属性窗口中选择）在属性窗口中选择mouseicon属性，单击按钮，出现属性，单击按钮，出现“加加载图标载图标”对话框，选择一个图形文件为鼠标指针形状，可以对话框，选择一个图形文件为鼠标指针形状，可以是是.ic

8、o或或.cur文件。文件。（2）在程序中使用）在程序中使用loadpicture函数来加载图形文件。函数来加载图形文件。例如，将经过窗体时鼠标指针设置为用户定义的图标：例如，将经过窗体时鼠标指针设置为用户定义的图标： form1.mouseicon = loadpicture(c:windowswinupd.ico)99.2 键盘事件键盘事件1. 查看键盘按键的查看键盘按键的asc码值码值 如果不清楚键盘各按键如果不清楚键盘各按键asc码值，码值，可以通过对象浏览器窗口来查看。可以通过对象浏览器窗口来查看。 打开打开“对象浏览器对象浏览器”如图所示。在如图所示。在搜索栏键入搜索栏键入“keyc

9、odeconstants”，单击搜索按钮。在单击搜索按钮。在“成员成员”栏出现各种栏出现各种键盘按键常数，选择某一个按键常数就键盘按键常数，选择某一个按键常数就可以在下面的描述中显示按键的可以在下面的描述中显示按键的asc码值。码值。查看键代码查看键代码（自学）（自学）109.2 键盘事件键盘事件2. keypress事件事件 keypress事件是当键盘有键按下时触发的。事件是当键盘有键按下时触发的。keypress事事件检测的键有件检测的键有enter、tab、backspace以及键盘上的字母、以及键盘上的字母、数字和标点符号键，其它功能键则不作响应。数字和标点符号键，其它功能键则不作响

10、应。语法：语法：private sub 对象名对象名_keypress(keyascii as integer) keyascii是对应的是对应的ascii码值，将码值，将keyascii 设置为设置为0，可，可以取消本次击键，这样对象便接收不到按键的字符。以取消本次击键，这样对象便接收不到按键的字符。119.2 键盘事件键盘事件 keypress事件过程在截取事件过程在截取textbox或或combobox控件所控件所输入的击键时可以立即测试击输入的击键时可以立即测试击键的有效性，【例键的有效性，【例93】。】。 运行界面运行界面129.2 键盘事件键盘事件3keydown和和keyup事件

11、事件 keydown事件是当按下按键时触发，事件是当按下按键时触发，keyup事件是当释事件是当释放按键时触发，这两个事件提供了最低级的键盘响应，可以报放按键时触发，这两个事件提供了最低级的键盘响应，可以报告键盘的物理状态。告键盘的物理状态。其语法为：其语法为：private sub 对象名对象名_keydown(keycode as integer，shift as integer)private sub 对象名对象名_keyup(keycode as integer，shift as integer)139.2 键盘事件键盘事件对象名对象名属性属性属性值属性值form1caption运动小

12、球运动小球shape1shape3-circlefillstyle0-solidfillcolor&h0000ffff&visiblefalsecommand1caption开始开始command2caption结束结束窗体中对象的属性设置窗体中对象的属性设置【例【例9-4】在图片框中用键盘键控制小球的运动。】在图片框中用键盘键控制小球的运动。149.3 拖拖 放放 拖放拖放（drag and drop）是一种将一个对象（称为）是一种将一个对象（称为源对象）拖到另一个对象（称为目标对象）上执行源对象）拖到另一个对象（称为目标对象）上执行某种操作的功能。某种操作的功能。 要拖动一

13、个对象，可单击该对象，按住鼠标键，要拖动一个对象，可单击该对象，按住鼠标键，然后移到指定的新位置释放鼠标放下对象。然后移到指定的新位置释放鼠标放下对象。（自学）（自学）159.3 拖拖 放放1. 属性属性（1）dragmode属性属性 dragmode属性确定拖放操作是自动方式还是手动方式。属性确定拖放操作是自动方式还是手动方式。默认值为默认值为0手动方式手动方式，可以用手动方式来确定拖放操作何时开，可以用手动方式来确定拖放操作何时开始或结束，当始或结束，当dragmode属性设置为属性设置为1自动方式自动方式时，能够对一时，能够对一个对象执行自动拖放操作。个对象执行自动拖放操作。（2）dra

14、gicon属性属性 dragicon属性是设置拖动操作时显示的图标，默认源对象属性是设置拖动操作时显示的图标，默认源对象的灰色轮廓作为拖动的图标，也可以设置为的灰色轮廓作为拖动的图标，也可以设置为.ico图标文件作为图标文件作为拖动操作的图标。拖动操作的图标。169.3 拖拖 放放2. 事件事件（1）dragdrop事件事件 dragdrop事件是当一个完整的拖放动作完事件是当一个完整的拖放动作完成时触发，即将一个控件拖动到一个对象上，并成时触发，即将一个控件拖动到一个对象上，并释放鼠标按钮，或使用释放鼠标按钮，或使用drag方法并将其动作参方法并将其动作参数设置为数设置为2（drop）时触发

15、。）时触发。 （2） dragover事件事件 dragover事件是当拖放操作正在进行时发事件是当拖放操作正在进行时发生，当拖动对象越过一个控件时触发该事件。生，当拖动对象越过一个控件时触发该事件。 179.3 拖拖 放放3. 方法方法 drag方法用于在代码中对象的拖放行为。它可以启动、停方法用于在代码中对象的拖放行为。它可以启动、停止或取消手工拖动。采用手动拖放方式时，必须使用止或取消手工拖动。采用手动拖放方式时，必须使用drag方方法来启动拖动操作。不过，在自动拖放方式下，也可以使用法来启动拖动操作。不过，在自动拖放方式下，也可以使用drag方法。方法。drag 方法的语法为：方法的语法为： 对象名对象名.drag action 拖放操作的步骤拖放操作的步骤如下：如下：（1）设置）设置dragmode属性为属性为1，使对象可以自动被拖放。，使对象可以自动被拖放。（2）设置）设置dragicon属性决定对象被拖动时鼠标指针的形状，属性决定对象被拖动时鼠标指针的形状，可以是任位图或图标。可以是任位图或图标。（3）为目标对象编写）为目标对象编写dragdrop和和d