Hallo, gibt es eine Möglichkeit um die Aktuellen Mauszeigerkoordinaten zu ermitteln und in zwei Textfelder
(eines für Left, eines für Height) schreiben zu lassen?
Schonmal herzlichen Dank für alle die sich bemühen.
Hallo,
gibt es eine Möglichkeit um die Aktuellen
Mauszeigerkoordinaten zu ermitteln und in zwei Textfelder
(eines für Left, eines für Height) schreiben zu lassen?
Schonmal herzlichen Dank für alle die sich bemühen.
ja, gibt es. Es gibt sogar mehrere Möglichkeiten, je nachdem was Du suchst. Erzähl doch erst mal, ob es um VB, VBA oder VBS geht und bei VB/VBA noch die Version. Dann, ob Du den Mauszeiger für den ganzen Bildschirm suchst, oder nur für die Form oder das Picture, wenn es um VB geht.
Die Form hat ein Ereignis ‚MouseMove‘, das die Koordinaten zurückgibt. Für den ganzen Bildschirm müssen wir die API bemühen.
Gruß Rainer
Danke für die schnelle antwort
Ich benutze VB6 und brauche die Koordinaten ausschließlich in der Form
Hallo,
dann klick mal in der Entwicklungsumgebung doppelt auf die Form.
Das Editorfenster wird sich öffnen und VB erzeugt Dir Anfang und Ende der Prozedur für das Ereignis ‚Form_Load‘.
Stelle den Cursor hinter ‚End Sub‘ und öffne die rechte Combobox über den Textfeld, in der ‚Form_Load‘ steht. Du bekommst die Liste aller verfügbaren Ereignisse, unter anderem auch für das Ereignis ‚MouseMove‘.
Klickst Du das an, schreibt Dir VB:
Private Sub Form\_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Innerhalb dieser Prozedur bekommst Du in ‚Button‘ die Information, welcher Button gedrückt ist, in X die X-Koordinate, in Y die Y-Koordinate.
Wenn Du für die Form die Eigenschaft ScaleMode auf 3-Pixel stellst, bekommst Du die Koordinate in Pixeln von den Rändern der Form aus gezählt.
Gruß Rainer
Danke klappt wunderbar