Cursor shape

A

Arvin Meyer

Claudia said:
Can the cursor be changed from vertical to horizontal?

In Windows XP, cursors are stored in:

C:\WINDOWS\Cursors

If you want a permanent change, you'll need to change a theme, or use your
mouse program to do it. Within MS-Access, you can use a mouse-over event
property to set your pointer with =Point() from code something like:

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

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


Public Function Point()
Dim lngRet As Long

lngRet = LoadCursorFromFile("C:\Windows\Cursors\size3_l.cur")
lngRet = SetCursor(lngRet)

End Function
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
 
Top