Skift cursor 'on mouse over'

....ønsker du denne mouse-over generelt når formen åbnes, eller når mus holdes over et kontrolelement - fx textbox, combobox, knapper osv ?

Jeg ønsker at skifte markør når musen holdes over bestemte kontrolelementer.

opret et nyt modul og indsæt følgende:

Option Compare Database
Option Explicit

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

derefter på din form anvnder du mousemove:
Private Sub img1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  MouseCursor IDC_HAND
End Sub

Niels

Bingo-Banko

Tak

selvtak - det var en af de 'sjove'

Niels

Jeg synes stadigt at det er en excelent kode, men er nu blevet interesseret i hvordan koden egentligt får ´cursorentil at skifte tilbage, når man kommer udenfor billedet?

Det virker fint i Access 2000.
Men jeg kan ikke få det til at virke i Access 97.
Kan du hjælpe ?

Jeg har ikke access97 installeret, at the moment...... sorry

Det "virker" næsten i Access 97. Der kommer ingen fejlmeddelser. Men cursor bliver usynlig i stedet for at blive til en hånd !