Animate mouse pointer

[spud]

Downloaded this programe that you create animated mouse icons can anyone tell me how to asign it to a click event?

Cheers


Spud

What do you mean by assigning it to a click event?

If you mean displaying it when a button is clicked, you can use the following code.

Insert code in a Form with a CommonDialog and a CommandButton

Private Declare Function LoadCursorFromFile Lib "User32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) 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 prevCur As Long
Dim MyCursor As Long

Private Sub Command1_Click()

    Dim OpenFile As String
    CommonDialog1.Filter = "Animated Cursors (*.ani)|*.ani"
    CommonDialog1.ShowOpen
    
    OpenFile = CommonDialog1.filename
    
    MyCursor = LoadCursorFromFile(OpenFile)
    prevCur = SetClassLong(Me.hwnd, GCL_HCURSOR, MyCursor)

    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    prevCur = SetClassLong(Me.hwnd, GCL_HCURSOR, hOldCursor)
End Sub

[spud]

Megatron I think Im doing somthing wrong with this part of the code can you help?

CommonDialog1.Filter = ("C:\My Documents\gdsm.ani")


Thanks again

Spud

The Filter is the type of files you want to open. Just leave it at CommonDialog1.Filter = "Animated Cursors (*.ani)|*.ani" and it should work fine.

If you do not want to load it from the CommonDialog, then
use this line instead. MyCursor = LoadCursorFromFile("C:\My Documents\gdsm.ani")

[spud]

Thanks again Megatron thats it sorted now.


Cheers!

Spud

[taximania]

How would I alter the code so that an animated cursor is displayed when hovering over command1 only

[Bruce Fox]

This can do both Cursors and Icons:

Option Explicit
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Command1.DragIcon = LoadPicture("C:\Program Files\Microsoft Visual Studio\Vfp98\FFC\Graphics\H_point.cur")
   Command1.Drag vbBeginDrag
End Sub
 
Private Sub Command1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
   If State = vbLeave Then
      Command1.Drag vbEndDrag
   End If
End Sub

[taximania]

Doesn't that code do the same as Properties-Form1 Icon
It doesn't appear to work with .ani files.

[Bruce Fox]

Nope, it won't do .ani (Only Cursors and Icons)

I posted it incase u were just after Cursors

[taximania]

How do I display an animated (.ani) cursor over such as a command1 button ? plz

[Bruce Fox]

Try:

Option Explicit
 
Private Declare Function LoadCursorFromFile Lib "User32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) 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 prevCur As Long
Dim MyCursor As Long
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MyCursor = LoadCursorFromFile("C:\Windows\Cursors\Hourglas.ani")
    prevCur = SetClassLong(Command1.hwnd, GCL_HCURSOR, MyCursor)
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    prevCur = SetClassLong(Me.hwnd, GCL_HCURSOR, hOldCursor)
End Sub

The only problem at the moment is the error on unload.
I'm trying to fix it. The Cursor remains the HourGalss! (until u
close VB)

[taximania]

I removed the unload form bit of the code and it works perfect.
Thanks.

[Bruce Fox]

Good job

Seems to work well!

Does anyone see a problem with it?

Option Explicit
 
Private Declare Function LoadCursorFromFile Lib "User32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) 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 prevCur As Long
Dim MyCursor As Long
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MyCursor = LoadCursorFromFile("C:\Windows\Cursors\Hourglas.ani")
    prevCur = SetClassLong(Command1.hwnd, GCL_HCURSOR, MyCursor)
End Sub

[brenaaro]

You were trying to set it to hOldCursor in form uload..which is never defined?