title image


Smiley Re: MouseCursor...
Lösung 1:

In einem Standartmodul:

Option Compare Database

Option Explicit



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 PointM(strPathToCursor As String)

Dim lngRet As Long

lngRet = LoadCursorFromFile(strPathToCursor)

lngRet = SetCursor(lngRet)

End Function





Im Formular dann beim Ereignis Mausbewegung deines Feldes:

PointM ("C:\WINNT\Cursors\harrow.cur") 'oder wo auch immer der gewünschte Mauszeiger gespeichert ist.



Lösung 2 (Kurz und schmerzlos):

Im Entwurf dem entsprechenden Steuerelement als Hyperlink-Adresse ein Blank (' ') zuweisen.
Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: