如何用API改变鼠标图标

Question

Private Sub Form_Load()
    Form1.MousePointer = 99
    Form1.MouseIcon = LoadPicture("C:\hand.ico")
End Sub

Answer 1

同意楼上，可以不用api函数。直接利用属性mouseicon

Answer 2

我用了一个控件，不能用MousePointer,只能用API来改

Answer 3

Public Declare Function SetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As Long在VB里面为全函数不能很好的工作，因为VB习惯在不同的时间把光标变回原来的样子。

Answer 4

Option Explicit
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Const OCR_NORMAL = 32512Private Sub Form_Load()
Dim i As Long
i = LoadCursorFromFile("H:\图标\Cursor\Hydrascursors1-0\Hydras\hyd_01_norm.cur")
SetSystemCursor i, OCR_NORMAL
End Sub