Form an aktueller Mausposition anzeigen Hier zeigen wir Ihnen, wie sich eine Form an der aktuellen Mausposition anzeigen lässt
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  20.061
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Hin und wieder bekommt die Anforderung, eine Form unbedingt an der aktuellen Mausposition anzeigen zu müssen.

Am einfachsten lässt sich das mit Hilfe der GetCursorPos API-Funktion bewerkstelligen, die uns die aktuelle Mausposition in Pixel zurückgibt. Jetzt brauchen wir nur noch die Koordinaten in Twips umzurechnen und die Form via Move-Anweisung an die Mausposition zu "schieben".

Option Explicit
 
' benötigte API-Deklarationen
Private Declare Function GetCursorPos Lib "user32" ( _
  lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type

Aufrufbeispiel:

' Form an aktueller Mausposition anzeigen
Dim P As POINTAPI
 
' aktuelle Mausposition ermitteln
GetCursorPos P
 
' Form laden
Load Form2
 
' Form an die aktuelle Mausposition schieben
' (hierbei müssen die Pixel-Angaben in Twips umgerechnet werden!)
Form2.Move P.x * Screen.TwipsPerPixelX, P.y * Screen.TwipsPerPixelY
 
' Form anzeigen
Form2.Show vbModal