Hi !
Habt ihr wer eine Idee wie ich beim Öffnen eines Formulars den Mousecurser automatisch in die linke obere Ecke bekomme ?
Danke für die Hilfe.
Gruß Wolfgang
Hallo,
das ist ganz einfach.
Erstell ein Textfeld, lösche das anhängende Bezeichnungsfeld.
Stelle die Eigenschaften des Textfeldes auf Breite/Höhe von 0,002 ein, und links/oben auf 0.
Benenne das Textfeld z.b. hFocus. Beim Öffnen schreibst du folgenden Code: Me!hFocus.setFocus
Und schon ist der Cursor links oben, und so klein dass man ihn nicht sieht.
Andreas
Aso, Mauscursor...
sorry, das bezog sich nur auf den Tastatur-Cursor.
Maus-Cursor geht nur mittels API:
'API-Funktionen in einem Modul deklarieren:
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, Rect As Rect) As Long
Public Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
'Aufruf im Formular-Modul
Call SetCursorPos(X, Y)
X = X-Zielkoordinate
Y = Y-Zielkoordinate
Angaben in Twips, d.h. 1 cm = 567 Twips
Gruß Andreas