＋设为首页 ＋添加到收藏夹
我设置了label1的mouseicon属性为一只手的图标，又设置了label1的mousepointer属性为4-icon，可是当我把鼠标移动到label1上时，鼠标的形状没有任何变化，怎么回事？
更改Label1的属性
MousePointer将设置为99
MouseIcon设置为一个手形的鼠标光标
同楼上
很对！
对，设置mousepointer属性。
MousePointer将设置为99
MousePointer 属性
返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针的类型。
语法
object.MousePointer [= value]
MousePointer 属性语法包含下面部分：
部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
value 整数，按照设置值中的描述指定被显示的鼠标指针类型。
设置值
value 的设置值为：
常数 值 描述
vbDefault 0 形状由对象决定。
VbArrow 1 箭头。
VbCrosshair 2 十字线。
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 部件时可能暂时地改变。
====================================================================
MouseIcon 属性
返回或设置自定义的鼠标图标。
语法
object.MouseIcon = LoadPicture(pathname)
object.MouseIcon [= picture]
MouseIcon 属性的语法包含下面部分：
部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
pathname 字符串表达式，指定包含自定义图标文件的路径和文件名。
picture Form 对象、PictureBox 控件、或 Image 控件的 Picture 属性。
说明
MouseIcon 属性提供一个自定义图标，它在 MousePointer 属性设为 99 时使用。
MouseIcon 属性使程序能够很容易地访问自定义光标，它可以是任意大小并具有任何热点位置的光标。Visual Basic 不能装入动画光标 (.ani) 文件，即使 32-位版的 Windows 支持这些光标。
先定义mousepointer的类型为99，再定义某mouseicon即可
MousePointer设置为99.
vb中没有手形光标，需要自己使用图标、光标工具制作一个手形的.cur文件，再在VB中的控件属性中设置：
MousePointer=99
MouseIcon=手形的.cur文件
就可以了。
MouseIcon设置
