鼠标对于Windows应用程序设计来说几乎是必需的，尤其是在图形图像处理的程序设计中，显得更为重要。而鼠标应用的基础是鼠标事件。下面我们就来简单介绍一下窗体鼠标事件及其应用。

除了单击（Click）和双击（DblClick）外，基本的鼠标事件还有3个，工具箱中的大多数控件都能响应这3个事件。

MouseDown：鼠标的任一键被按下时触发该事件。

MouseUp：鼠标的任一键被释放时触发该事件。

MouseMove：鼠标被移动时触发该事件。

一、语法格式

Private Sub Form_鼠标事件（Button As Integer，Shift As Integer，X As Single，Y As Sin⁃gle）

1．Button：被按下或释放的鼠标按钮。1、2、4值分别表示鼠标的左、右、中键。

2．Shift：Shift、Ctrl、Alt键的状态。

3．X，Y：鼠标指针的当前坐标位置。

【例11．3】显示鼠标指针的当前位置。

Private Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）

Text1．Text＝X

Text2．Text＝Y

End Sub

图11－3　例11．3运行结果

4．鼠标光标的形状：MousePointer属性。

整数，取0～15的值用于设置鼠标指针的形状。

例：Text1．MousePointer＝2

设置鼠标光标的形状：(www.daowen.com)

（1）在程序代码中设置。

对象．MousePointer＝设置值。

（2）在属性窗口中设置。

（3）自定义鼠标光标（取值99）。

5．拖放（DragDrop）：就是使用鼠标将对象从一个地方拖动到另一个地方再放下。它可以分解为两种操作：一个是发生在源对象的“拖”操作；另一个是发生在目标对象上的“放”操作。

（1）属性：

DragMode属性：用于设置拖放方式，1为自动方式；0（默认）为手动方式。

DragIcon属性：设置拖放操作时显示的图标，默认情况下将源对象的灰色轮廓作为拖动图标。

（2）事件：

DragDrop事件：当一个完整的拖放动作完成时触发。语法格式：

Private Sub对象名_DragDrop（Source As Control，X As Single，Y As Single）

DragOver事件：当源对象被拖动到目标对象上，在目标对象上就会触发DragOver事件。本事件先于DragDrop事件。语法格式：

Private Sub对象名_DragOver（Source As Control，X As Single，Y As Single，State As Integer）

State参数：0表示进入，即源对象正进入目标对象内；

1表示离开，即源对象正在离开目标对象；

2表示跨越，即源对象在目标范围内移动位置。

（3）方法：常用的有Drag方法。Drag方法的语法格式：

对象名．Drag［动作］

（4）动作：0表示取消拖动操作；1启动拖动操作；2结束拖动操作。