VB6 - Ermitteln der absoluten Position der Maus.

Mit dieser Funktion können Sie die Position der Maus auf dem Bildschirm genau und unabhängig vom Blatt oder Steuerelement, das sie enthält, ermitteln.

Das Modul

Deklaration der Funktion

 Öffentlicher Typ POINTAPI x Solange y Solange Endtyp Public m_CursorPos As POINTAPI Öffentliche Deklarierungsfunktion GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 

Funktion erstellen

 Sub GetCursor () Dim LonCStat Solange LonCStat = GetCursorPos & (m_CursorPos) 'ist, müssen die Daten in Pixel konvertiert werden. m_CursorPos.x = m_CursorPos.x * Screen.TwipsPixelX m_CursorPos.y = m_CursorPos.y * Screen.TwipsPixelY End Sub