Code to Set a Animated Cursor(ani) as the MousePointer for the Form

by Raghu (22 Submissions)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 6^th June 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Private Declare Function SetClassLong Lib "User32" (ByVal hWnd As Long,ByVal uFlags as Long,Byval HObject as Long) As Long Private Const GCL_HCURSOR = (-12) Dim hOldCur as long Dim hNewCur as long

Rate Code to Set a Animated Cursor(ani) as the MousePointer for the Form



'Mail me : [email protected]

'To Change the Cursors
hNewCur = LoadCursorFromFile("C:\Windows\Cursors\Globe.Ani")
hOldCur = SetClassLong(Me.hWnd,GCL_HCURSOR,hNewCur

'To Reset the Cursor
hOldCur = SetClassLong(Me.hWnd,GCL_HCURSOR,hOldCur

Download this snippet Add to My Saved Code

Code to Set a Animated Cursor(ani) as the MousePointer for the Form Comments

No comments have been posted about Code to Set a Animated Cursor(ani) as the MousePointer for the Form. Why not be the first to post a comment about Code to Set a Animated Cursor(ani) as the MousePointer for the Form.

Code to Set a Animated Cursor(ani) as the MousePointer for the Form

Code to Set a Animated Cursor(ani) as the MousePointer for the Form Comments

Post your comment

Difficulty