VB编程完整版课件全套ppt教学教程电子教案讲义最全（必威体育精装版）.ppt

【例9-3】本例说明MouseIcon属性的作用。在窗体上设置一个图像控件Image1，将该控件的Picture属性设置为“\Image\Scenery.jpg”，MousePointer属性设置为99，MouseIcon设置“\Image\H-Point.ico”。程序运行界面如图9-9所示。当鼠标指针移动到图像控件上时，指针鼠标立即改变为一个手指形状（由H-Point.ico文件设置）。 9.3 鼠标属性 ■ 9.3.2 利用MouseIcon属性自定义鼠标指针 图9-9 鼠标指针的变化 9.4 拖放 拖放是一种很重要的鼠标操作。VB提供了DragMode属性和DragIcon属性、DragOver事件和DragDrop事件、Drag方法等用于鼠标拖放操作的处理，如表9-5所示。 表9-5 与拖放有关的属性、事件和方法 类别 项目 说明 属性 DragMode 启动自动拖动控件或手动拖动控件 DragIcon 指定拖动控件时显示的图标 事件 DragDrop 识别何时将控件拖动到对象上 DragOver 识别何时在对象上拖动控件 方法 Drag 启动或停止手动拖动 9.4 拖放 注意：除Menu、Timer、Line、Shape、CommonDialog之外的所有控件均支持DragMode、DragIcon属性和Drag方法。窗体识别DragOver和DragDrop事件，但不支持DragMode、DragIcon属性和Drag方法。 实现对象的拖动有两种模式：自动拖动和手工拖动。 如果是自动拖动，要将控件的DragMode属性设置为“1-Automatic”。当用户在源对象（被拖动的控件）上按下鼠标左按钮同时拖动鼠标，对象的图标便随鼠标指针移动到目标对象（其上放控件的对象）上产生DragDrop事件。需要注意的是，如果没有进行编程设计，对象本身不会移动到新的位置或被加到目标对象中，用户一定要在目标对象的DragDrop事件中进行程序设计才能实现真正的拖动。在源对象被拖动到目标对象上的过程中，如果经过其他的对象，则在这些对象上会产生DragOver事件，当然在目标对象上也会产生DragOver事件，这个事件发生在DragDrop事件之前。当源对象的DragMode属性设置为1时，它就不再接收Click和MouseDown事件。图9-10说明了实现自动拖放在各个对象上所涉及的属性、事件和方法。 9.4 拖放 ■ 9.4.1 DragMode属性 图9-10 自动拖放 9.4 拖放 ■ 9.4.1 DragMode属性 源对象 中间 对象 目标对象 属性：DragMode=1 事件：DragOver 事件：DragOver DragDrop 如果是手工拖动，则要将源对象的DragMode属性设置为“0-Manual”（默认值）。此时，必须在MouseDown事件过程中用Drag方法启动拖动操作。当源对象的DragMode属性设置为0时，它能够接收Click和MouseDown事件。其他情况与自动方法是一样的。图9-11说明了实现手工拖放在各个对象上所涉及的属性、事件和方法。 9.4 拖放 ■ 9.4.1 DragMode属性 源对象 中间 对象 目标对象 属性：DragMode=0 事件：MouseDown 方法：Drag 事件：DragOver 事件：DragOver DragDrop 图9-10 手工拖放 拖动控件时，VB将控件的灰色轮廓作为默认的拖动图标。对DragIcon属性进行设置，就可用其他图像代替该轮廓。该属性既可以在设计阶段通过属性窗口设置，可以在程序中通过代码设置。其使用格式如下： Object.DragIcon=LoadPicture(pathname) Object.DragIcon=Picture 其中，pathname指定包含自定义图标文件的路径和文件名。Picture是Form对象、PictureBox控件或Image控件的Picture属性。 此外，也可以将一个控件的DragIcon属性赋给另一个控件的同一属性，由此就可选择拖动图标。格式如下： Object1.DragIcon= Object2.DragIcon 9.4 拖放 ■ 9.4.2 DragIcon属性 仅当将控件的DragMode属性设置为0，采用手工拖放时，需在该控件的MouseDown事件过程中用Drag方法启动拖动操作。其使用格式如下： Object.Drag [action] 其中， action参数的取值及意义如表9-6所示。如果省略该参数，表示开始启动控件的拖动操作，相当于参数值为1。 9.4 拖放 ■ 9.4.3 Drag方法 表9-6 action参数的取