Question

vb下实现鼠标控制

需要鼠标指针具有立体三维感

Answer 1

可用 MousePointer 和 MouseIcon 属性显示自定义图标、光标或任意定义过的鼠标指针。鼠标指针的改变可以告知用户诸多信息，例如，正在进行长时间的后台任务，调整某个控件或窗口的大小，某控件不支持拖放操作等等。可用自定义图标或鼠标指针表达无穷多个有关应用程序状态和功能的视觉信息。

可用 MousePointer 属性在十六个预定义指针中任选一个。这些指针表示各种系统事件和过程。下表描述了几种指针及其在应用程序中的可能作用。

鼠标指针 常数 描述
vbHourglass 警告用户程序状态在改变。例如，显示沙漏是通知用户等待。
vbSizePointer 通知用户功能在改变。例如，双箭头型调整指针告知用户此时可以调整窗口的大小。
vbNoDrop 警告用户无法执行某操作。例如，不放下指针告知用户不能在此位置放下文件。

每个指针选项均由一个整型设置值表示。缺省设置值为 0-Default 并显示成标准的 Windows 箭头指针。但是，此设置由操作系统控制，如果用户改变系统指针箭头，则会改变设置值。为在应用程序中控制鼠标指针，应将 MousePointer 属性设置为合适的数值。

选定控件或窗体的 MousePointer 属性并扫描下拉设置值列表，或者使用“对象浏览器”并搜索 MousePointerConstants，通过这两种方式就可使用鼠标指针的完全列表。

在设置控件的 MousePointer 属性而且鼠标经过此控件时，指针就会出现。在设置窗体的 MousePointer 属性而且鼠标经过窗体的空白区域或经过 MousePointer 属性为 0-Default 的控件时，选定的指针都会出现。

运行时，可用整型数值或 Visual Basic 鼠标指针常数设置鼠标指针值。例如：

Form1.MousePointer = 11 '或 vbHourglass