title image


Smiley Re: Mauszeigerwechsel und MSACCESS 97
Hallo Manfred,Von Dev Ashish, Terry KreftIn ein Modul kopieren:Declare Function LoadCursorFromFile Lib "user32" Alias _ "LoadCursorFromFileA" (ByVal lpFileName As String) As LongDeclare Function SetCursor Lib "user32" _ (ByVal hCursor As Long) As LongFunction PointM(strPathToCursor As String) Dim lngRet As Long lngRet = LoadCursorFromFile(strPathToCursor) lngRet = SetCursor(lngRet)End Functionz.B. Im Formular-Detailbereich beim Ereignis -Bei Mausbewegung - Aufruf durch Pfadangabe zur Ico-Datei.Private Sub Detailbereich_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)PointM ("C:\windows\Winupd.ico")End SubIm Acess-Paradies findest Du 14.000 Ico-Symbol-Dateien.GrußWalter Griesser

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: