Atlanta Custom Software Development 

   Search        Code/Page

User Login



Forgot the Password?
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
» Regular Expr Tester
» Free Tools

Add pizazz to your apps with an animated cursor
[ All Languages » VB »  Windows]

Total Hit ( 2722)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article



Who said you can't use an animated cursor with Visual Basic? Actually, it's so simple! You just have to load your animated cursor through LoadCursorFromFile API function, then you get the current cursor using GetCursor, and finally you can set your cursor using SetSystemCursor. This is all the code that you need:

Click here to copy the following block
Private Declare Function LoadCursorFromFile Lib "user32" Alias _
  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function CopyIcon Lib "user32" (ByVal hcur As Long) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, _
  ByVal id As Long) As Long
Private Const OCR_NORMAL = 32512

Sub ALengthyTask()
  Dim hNewCursor As Long
  Dim hSavCursor As Long

  ' create a copy of the current cursor - this is necessary
  ' for the tip to work correctly under NT
  hSavCursor = CopyIcon(GetCursor())

  ' load a new cursor
  hNewCursor = LoadCursorFromFile("h:\winnt4\cursors\appstart.ani")
  ' make it the current cursor
  SetSystemCursor hNewCursor, OCR_NORMAL

  ' here goes your lengthy code
  ' ...
  ' (in this example we'll use a msgbox
  MsgBox "Press OK to continue"

  ' restore old cursor
  SetSystemCursor hSavCursor, OCR_NORMAL
End Sub

UPDATE: Thanks to Kraehenbuehl Markus, who has pointed out that under Windows NT you must create a copy of the current cursor, using the CopyIcon API function. The above code has been updated following his suggestion.

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with, SQL Server and other MS technologies. He is, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )

Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.