鼠标问题

Question

怎么用代码改变鼠标的图标？
MouseIco="C:\AAA.ICO"不对吗？

Answer 1

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 支持这些光标。
MouseIcon 属性示例
本例说明 MouseIcon 属性是如何设置自定义鼠标图标的。要试用此例，先在窗体上创建一个 ListBox 控件，然后将 MultiSelect 属性设置为 1 或 2。在运行时期，能选择一个或多个项。根据选择的是单项还是多项，将显示不同的图标。Private Sub Form_Load ()
   ' 在列表框中放置一些项。
   List1.AddItem "Selection 1"
   List1.AddItem "Selection 2"
   List1.AddItem "Selection 3"
   List1.AddItem "Selection 4"
   List1.AddItem "Selection 5"
End SubPrivate Sub List1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   ' 为多项设置自定义鼠标图标。
   If List1.SelCount > 1 Then
      List1.MouseIcon = LoadPicture("ICONS\COMPUTER\MOUSE04.ICO")
      List1.MousePointer = 99
   Else   ' 为单项设置自定义鼠标图标。
      List1.MouseIcon = LoadPicture("ICONS\COMPUTER\MOUSE02.ICO")
      List1.MousePointer = 99
   End If
End Sub

Answer 2

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 部件时可能暂时地改变。

Answer 3

先使用MousePointer属性，设为99（用户自定义） 再使用MouseIcon 来加载一个指定的外部ICO文件