Private Declare Function SetSystemCursor Lib "user32.dll" (ByVal hCursor As IntPtr, ByVal id As Integer) As Boolean
Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As IntPtr
Private Const IDC_ARROW As UInt32 = 32512
Dim SavedCursor As Icon
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SavedCursor = Icon.FromHandle(Cursors.Arrow.CopyHandle)
Dim NewCursor As IntPtr = LoadCursorFromFile(Application.StartupPath & "\MyCursor.ani")
SetSystemCursor(NewCursor, IDC_ARROW)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim OldCursor As IntPtr = SavedCursor.Handle
SetSystemCursor(OldCursor, IDC_ARROW)
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Declare Unicode Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileW" (ByVal filename As String) As IntPtr
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Dim hcur As IntPtr
hcur = LoadCursorFromFile(Application.StartupPath & "\mycursor.ani")
me.Cursor = New Cursor(hcur)
End Sub