如何改变鼠标的图形？

[xzjxu]

rt

[帝企鹅已被占用]

详细点！回复内容
回复内容太短了！

[东方之珠]

窗体中mouseicon和mousepointer结合使用.

[luofenghen]

如果是移到控件上 的话 那个控件中 有个属性是可以改变 鼠标的指针的

[贝隆]

自定义鼠标指针


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

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

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


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

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

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

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

Form1.MousePointer = 11 '或 vbHourglass

详细信息 关于全部鼠标指针常数的列表，请参阅“语言参考”的的“MousePointer 常数”。

图标和光标
可设置鼠标指针来显示自定义图标或光标。用自定义图标或光标可进一步改变应用程序的外观和功能。图标就是 .ico 文件，与 Visual Basic 的文件相同。光标就是 .cur 文件，在本质上象图标一样是位图。但是创建光标主要是为了显示由鼠标引发的操作发生的位置─ 它们可表示鼠标的状态及当前的输入位置。

光标中还包含热点信息。热点是跟踪光标位置─ x 和 y 坐标─ 的像素。热点通常位于光标的中央。在用 MouseIcon 属性将图标加载到 Visual Basic 后，Visual Basic 把它们转换成光标格式并将热点设置成中央像素。两者不同点是，.cur 文件的热点位置可以改变，而 .ico 文件的热点位置不能改变。可在 Windows SDK 提供的“Image Editor”中编辑光标文件。


为使用自定义图标或光标，应设置 MousePointer 和 MouseIcon 属性。

使用 .ico 文件作鼠标指针

选定一个窗体或控件并将其 MousePointer 属性设置为 99-Custom。


将 .ico 文件加载到 MouseIcon 属性中。例如，对于窗体：
Form1.MouseIcon = LoadPicture("c:\Program _
Files\Microsoft Visual _
Basic\Icons\Computer\Disk04.ico")

为把图标显示成鼠标指针，必须正确设置这两个属性。在将 MousePointer 属性设置成 99-Custom 时，如果未在 MouseIcon 上加载图标，则使用缺省的鼠标指针。同样，如果未将 MousePointer 属性设置成 99-Custom，则将忽略 MouseIcon 的设置。

注意 Visual Basic 不支持动画光标 (.ani) 文件。

详细信息 请参阅“语言参考”的“MouseIcon 属性”及“MousePointer 属性

[cbm6666]

添加一个Text1

Option Explicit
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursor 65553
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursor 65581
End Sub

[chinaboyzyq]

MousePointer 属性


返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针的类型。

语法

object.MousePointer [= value]

MousePointer 属性语法包含下面部分：

部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
value 整数，按照设置值中的描述指定被显示的鼠标指针类型。


设置值

value 的设置值为：

常数 值 描述
vbDefault 0 （缺省值）形状由对象决定。
VbArrow 1 箭头。
VbCrosshair 2 十字线（crosshair 指针）。
VbIbeam 3 I 型
VbIconPointer 4 图标（矩形内的小矩形）。
VbSizePointer 5 尺寸线（指向东、南、西和北四方向的箭头）。
VbSizeNESW 6 右上-左下尺寸线（指向东北和西南方向的双箭头）。
VbSizeNS 7 垂-直尺寸线（指向南和北的双箭头）。
VbSizeNWSE 8 左上-右下尺寸线（指向东南和西北方向的双箭头）。
VbSizeWE 9 水-平尺寸线（指向东和西两个方向的双箭头）。
VbUpArrow 10 向上的箭头。
VbHourglass 11 沙漏（表示等待状态）。
VbNoDrop 12 不允许放下。
VbArrowHourglass 13 箭头和沙漏。
VbArrowQuestion 14 箭头和问号。
VbSizeAll 15 四向尺寸线。
VbCustom 99 通过 MouseIcon 属性所指定的自定义图标。


说明

在鼠标指针越过窗体或对话框上的控件时，为了指出功能上的改变，可以使用该属性。沙漏标形状设置值 (11) 是很有用的，用来指示用户需要等待过程或操作的完成。

注意 如果应用程序调用 DoEvents，那么 MousePointer 属性在经过 ActiveX 部件时可能暂时地改变。

[showoff]

不错，可以实践一下。