Switchboard Question

  • Thread starter Thread starter kenista
  • Start date Start date
K

kenista

Hi,

I posted this question a couple of weeks ago and have not had any responses.

Does anyone know if it is possible to get a hyperlink hand (or something
similar) in a switchboard, to click on the list?
It is very frustating that there is no option for this to occur.

Thanks
 
| Hi,
|
| I posted this question a couple of weeks ago and have not had any
responses.
|
| Does anyone know if it is possible to get a hyperlink hand (or
something
| similar) in a switchboard, to click on the list?
| It is very frustating that there is no option for this to occur.
|
| Thanks


I presume you are wanting to change the picture in the option buttons
down the left of the form.

Use Paint to create a 16x16 bmp image and put it in your bitmaps folder.
Embed the picture in each of the 8 option buttons.
 
Len,

I do not *think* there is a way to do what you want to do. I know I can get
the hand but only if the field is in fact a hyperlink. That being said you
can have a look at...

http://www.fmsinc.com/microsoftaccess/controls/components/cursor/index.html

....I have never used it so I can't say much about it.

I also found this...

http://misterslimm.wordpress.com/2007/06/21/microsoft-access-2002-emulate-hyperlink-cursor-change/

--
Gina Whipp
2010 Microsoft MVP (Access)

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm
 
Here's some code that will change the mouse pointer to a hand, when over a
button. First, put this code into a module, and save it (you must not name
the module with the same name as any of the functions in it - I have it
saved as mdlMousePointer):

'*********** Code Start ************
' This code was originally written by Terry Kreft.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Terry Kreft
'
Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Function MouseCursor(CursorType As Long)
Dim lngRet As Long
lngRet = LoadCursorBynum(0&, CursorType)
lngRet = SetCursor(lngRet)
End Function

Function PointM(strPathToCursor As String)
Dim lngRet As Long
lngRet = LoadCursorFromFile(strPathToCursor)
lngRet = SetCursor(lngRet)
End Function
'*********** Code End ************

Then, in the On Mouse Move event of the command button, put the following:

=mousecursor(32649)

And it's done!

HTH,

Rob
 
Thanks Rob, that it just what I was after.

Rob Parker said:
Here's some code that will change the mouse pointer to a hand, when over a
button. First, put this code into a module, and save it (you must not name
the module with the same name as any of the functions in it - I have it
saved as mdlMousePointer):

'*********** Code Start ************
' This code was originally written by Terry Kreft.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Terry Kreft
'
Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Function MouseCursor(CursorType As Long)
Dim lngRet As Long
lngRet = LoadCursorBynum(0&, CursorType)
lngRet = SetCursor(lngRet)
End Function

Function PointM(strPathToCursor As String)
Dim lngRet As Long
lngRet = LoadCursorFromFile(strPathToCursor)
lngRet = SetCursor(lngRet)
End Function
'*********** Code End ************

Then, in the On Mouse Move event of the command button, put the following:

=mousecursor(32649)

And it's done!

HTH,

Rob




.
Click to expand...
 
Back
Top