Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

changing the mouse pointer style. 2

Status
Not open for further replies.
postmanphat

postmanphat

Technical User
Nov 13, 2006
117
0
0
GB
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
 
Sort by date Sort by votes
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
 
Upvote 0 Downvote
I cannot recall who I 'borrowed' this from.

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

Module:
Code: 
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
 
Upvote 0 Downvote
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???
 
Upvote 0 Downvote
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.
 
Upvote 0 Downvote
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?
 
Upvote 0 Downvote
Did you say the module with the same name? Save the module with a different name.
 
Upvote 0 Downvote
Remou... you and the person you 'borrowed' this code off are bloody legends. Cheers!
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

TomSalvato
  • Locked
  • Question
Getting the Monday date from a week number 1
Replies
2
Views
124
TomSalvato
TomSalvato
TrekBiker
  • Locked
  • Question
This is the source query for what 1
Replies
12
Views
135
dhookom
dhookom
breezett93
  • Locked
  • Question
Function that find all controls on a form and puts their tab index in numerical order
Replies
19
Views
203
dhookom
dhookom
MaMike
  • Locked
  • Question
Access form -> another form against the same table not going to the right record
Replies
2
Views
45
MaMike
MaMike
TheresAlwaysAWay
  • Locked
  • Question
"There isn't enough memory to perform this operation..." error after upgrading from Access
Replies
2
Views
87
Axworthy
Axworthy

Part and Inventory Search

Sponsor

Back
Top