Rubrik: Oberfläche · Fenster | VB-Versionen: VB4, VB5, VB6 | 15.11.06 |
Form an aktueller Mausposition anzeigen Hier zeigen wir Ihnen, wie sich eine Form an der aktuellen Mausposition anzeigen lässt | ||
Autor: Dieter Otter | Bewertung: | Views: 19.378 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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