这是一段程序的代码:(省略了声名部分)

n = LoadImage(0, "E:\素材\RAYRUN.ANI", IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE) '获取指定目录下鼠标指针句柄
m = SetCursor(n) '设置鼠标指针
msgbox m
结果m的值返回非0,可是鼠标的指针却没有任何变化,请问这是怎么回事,是不是上面的代码有错误的地方,高手指点下,谢谢!

[此贴子已经被作者于2007-2-24 20:04:46编辑过]

不太清楚,但是有2个地方有疑议,你可以看看是不是这2个问题

1.组件的MousePointer没设置成99 - CUSTOM
2.ANI不是图像,怎么用LoadImage来载入??

应该这样写:
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GCL_HCURSOR = (-12)
Dim AniCur As Long

Private Sub Form_Load()
AniCur& = LoadCursorFromFile("E:\素材\RAYRUN.ANI")
SetClassLong Me.hwnd, GCL_HCURSOR, AniCur
End Sub

Private Sub Form_Unload(Cancel As Integer)
DestroyCursor AniCur
End Sub

121038大哥说得没错,这个方法果然是行得通的,谢谢!
原来应该用LoadCursorFromFile来获得光标文件的句柄..