Results 1 to 7 of 7

Thread: Hand Symbol

  1. #1
    Join Date
    Dec 2002
    Posts
    42

    Unanswered: Hand Symbol

    Is there a way to change the arrowhead symbol to a pointed finger (hand )symbol when you hover over a button?

  2. #2
    Join Date
    Nov 2007
    Posts
    7
    why?...........................

  3. #3
    Join Date
    Nov 2004
    Location
    out on a limb
    Posts
    13,692
    Provided Answers: 59
    yes if you want to.... set the cursor to what ever you want in each controls on mousemove event, set it back to the default in the forms on mouse move event.

    I don't know what the commands will be.. its probably some fiendish hack into a windows API call.... I don't think its part of standard Access VBA. So assuming you've passed the dingledows suggestion of why you would want to, the next question is is it worth it..... my view probably not.

  4. #4
    Join Date
    Dec 2002
    Posts
    42
    Thanks for that.
    I am also playing with the idea of having all of the buttons as hyperlinks - makes the layout more modern - like all of the active areas on web sites.

  5. #5
    Join Date
    Jan 2007
    Location
    UK
    Posts
    11,434
    Provided Answers: 10
    Code:
    screen.MousePointer
    George
    Home | Blog

  6. #6
    Join Date
    Nov 2003
    Posts
    1,487
    I guess the keywords here are pointed finger (or Hand Cursor).
    Now I'm not sure here but I don't think that Screen.MousePointer can provide that.

    But...it's not the end of the world and since I feel a little fiendish today, here is some cut down code that will do what you want and yes....it utlilizes a couple of Windows API Functions.

    Just copy & paste the following code into a Database Code Module. Not a Form module but a Database Module:

    Code:
    Private Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
                   (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
    
    Private Declare Function SetCursor Lib "user32" _
                   (ByVal hCursor As Long) As Long
      
    Public Function ShowHandOnly()
      'Set the mouse pointer.
      Dim lngRet As Long
      lngRet = LoadCursorBynum(0&, 32649&)
      lngRet = SetCursor(lngRet)
    End Function
    Now....In the MouseMove event properties box copy and paste this line. Be sure it's directly into the properties box for the event:

    =ShowHandOnly()

    You can use this on any Control that has a MouseMove event...including the Label control.

    .
    Environment:
    Self Taught In ALL Environments.....And It Shows!


  7. #7
    Join Date
    Dec 2002
    Posts
    42
    Thanks - it works a treat!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •