changing the mouse pointer style. 2

[postmanphat]

Hi...

Pretty straightforward (I hope!) problem...

I simply want the arrow style mouse pointer to change into the hand or finger (like you get when hovering over a hyperlink) for the buttons in my dbase.

Is there somewhere in the buttons properties that dictates the mouse pointer style when the cursor is over that button (OnMuseMove?) or what???

Many kind thanks in advance

 

[SuicidED]

Start, control panel, mouse....you can change it there.

 

[postmanphat]

What I forgot to mention in my original question is that I want this to happen just in an .mdb I've put together in Access 2003!!! Can't believe I forgot to say that.....

So yeah, in access, how do you change the behaviour of the mouse pointer?!

Thanks

 

[SuicidED]

not sure there sorry

 

[Remou]

I cannot recall who I 'borrowed' this from.

Form:

Private Sub lblCmdClose_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ChangeMouseToHand
End Sub

Module:

Option Compare Database
Option Explicit

Public Declare Function LoadCursor Lib "user32" Alias _
    "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Const IDC_HAND = 32649

Function ChangeMouseToHand()
Dim hCur As Long
    
    hCur = LoadCursor(0, IDC_HAND)
    
    If (hCur > 0) Then
        SetCursor hCur
    End If
End Function

 

[postmanphat]

Cheers Remou... Hasn't worked though unfortunately. Is the first bit of your code supposed to go on the MouseMove property of the button or the form???

 

[Remou]

Yes, or any control, and the second part is suposed to go in a module. I have used this code with three versions of Access, and it worked for me.

 

[postmanphat]

It doesn't like calling the module 'changecasetohand'... I get an error message saying that the first bit of code (that I have used on the MouseMove property of the button itself) is:

Compile Error:
Expected variable or procedure, not module.


Any ideas?

 

[Remou]

Did you say the module with the same name? Save the module with a different name.

 

[postmanphat]

Remou... you and the person you 'borrowed' this code off are bloody legends. Cheers!