Mit unter ist es sinnvoll, den Mauszeiger einfach
auszublenden,
(Z.Bsp.: Screensaver oder bei bestimmten Aktivitäten)
dann kommt man mit nachfolgender Prozedur zum Ziel.
Öffnen Sie ein neues Projekt mit einer Form und fügen Sie zwei Commandbutton ein. Fügen
Sei nun nachfolgenden Code in den jeweiligen Abschnitt.
General/Declarations '(der Form)
Declare Function ShowCursor Lib "User" (ByVal bShow As Integer) As Integer
Command1/Click
result = ShowCursor(False) 'Ausblenden des Mauscursors
Command2/Click
result = ShowCursor(True) 'Einblenden des Mauscursors |