Mouscurser positionieren

[WEdel]

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

[Hondo]

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

[Hondo]

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