第9章鼠标键盘和ol控件.pptVIP

第9章 鼠标、键盘和OLE控件 9.1 鼠标 9.2 键盘事件 9.3 拖放 9.1 鼠标 9.1.1 鼠标事件 9.1.2 改变鼠标指针 9.1.1 鼠标事件 1. 鼠标事件的格式 鼠标事件包括MouseUp、MouseDown和MouseMove，分别是释放鼠标、按下鼠标和移动鼠标时触发的。语法： Private Sub 对象名_鼠标事件(Button As Integer，Shift As Integer，x As Single，y As Single) （1）Button表示是哪个鼠标键被按下或释放。 9.1.1 鼠标事件 （2）Shift表示当鼠标键被按下或被释放时，Shift、Ctrl、Alt键的按下或释放状态。 9.1.1 鼠标事件 2. MouseDown和MouseUp事件 9.1.1 鼠标事件 3．MouseMove事件 9.1.2 改变鼠标指针 1．MousePointer属性 对象的MousePointer属性用于设置鼠标指针的形状。在运行时对于控件，当鼠标经过时就会显示MousePointer属性设置的形状；对于窗体，当鼠标经过空白区域或窗体中的MousePointer属性为0（默认值）的控件时，就会显示窗体的MousePointer属性设置的形状。 9.1.2 改变鼠标指针 2．MouseIcon属性 当MousePointer属性设置为99（自定义图标）时，可以使用MouseIcon属性来确定鼠标指针的形状。有两种方法设置MouseIcon属性： （1）在属性窗口中选择MouseIcon属性，单击按钮，出现“加载图标”对话框，选择一个图形文件为鼠标指针形状，可以是.ico或.cur文件。 （2）在程序中使用LoadPicture函数来加载图形文件。 例如，将经过窗体时鼠标指针设置为用户定义的图标： Form1.MouseIcon = LoadPicture(c:\windows\winupd.ico) 9.2 键盘事件 1. 查看键盘按键的ASCⅡ码值 9.2 键盘事件 2. KeyPress事件 9.2 键盘事件 KeyPress事件过程在截取TextBox或ComboBox控件所输入的击键时可以立即测试击键的有效性，【例9－3】。 9.2 键盘事件 3．KeyDown和KeyUp事件 9.2 键盘事件 【例9-4】在图片框中用键盘键控制小球的运动。 9.3 拖 放 拖放（drag and drop）是一种将一个对象（称为源对象）拖到另一个对象（称为目标对象）上执行某种操作的功能。 要拖动一个对象，可单击该对象，按住鼠标键，然后移到指定的新位置释放鼠标放下对象。 9.3 拖 放 1. 属性 （1）DragMode属性 DragMode属性确定拖放操作是自动方式还是手动方式。默认值为0手动方式，可以用手动方式来确定拖放操作何时开始或结束，当DragMode属性设置为1自动方式时，能够对一个对象执行自动拖放操作。 （2）DragIcon属性 DragIcon属性是设置拖动操作时显示的图标，默认源对象的灰色轮廓作为拖动的图标，也可以设置为.ico图标文件作为拖动操作的图标。 9.3 拖 放 2. 事件 （1）DragDrop事件 DragDrop事件是当一个完整的拖放动作完成时触发，即将一个控件拖动到一个对象上，并释放鼠标按钮，或使用Drag方法并将其动作参数设置为2（Drop）时触发。 （2） DragOver事件 DragOver事件是当拖放操作正在进行时发生，当拖动对象越过一个控件时触发该事件。 9.3 拖 放 3. 方法 Drag方法用于在代码中对象的拖放行为。它可以启动、停止或取消手工拖动。采用手动拖放方式时，必须使用Drag方法来启动拖动操作。不过，在自动拖放方式下，也可以使用Drag方法。Drag 方法的语法为： [对象名.]Drag [action] 拖放操作的步骤如下： （1）设置DragMode属性为1，使对象可以自动被拖放。 （2）设置DragIcon属性决定对象被拖动时鼠标指针的形状，可以是任位图或图标。 （3）为目标对象编写DragDrop和DragOver事件。 9.3 拖 放 【例9-5】在窗体中将图像框进行拖放。 9.3 拖 放 设计界面 运行界面 * * 左、中、右按键 VbLeftButton+vbRightButton+vbMiddleButton 111 7 右、中按