VB6 - Att hitta musens absoluta läge.

Den här funktionen låter dig veta exakt musens position från skärmen och irrelevant från arket eller kontrollen som den innehåller.

Modulen

Deklarera funktionen

 Public Type POINTAPI x Så länge som Långändigtyp Offentligt m_CursorPos Som POINTAPI Offentligt deklarera funktion GetCursorPos Lib "user32" (lpPoint som POINTAPI) Så länge 

Skapa funktionen

 Sub GetCursor () Dim LonCStat så länge LonCStat = GetCursorPos & (m_CursorPos) 'För att använda detta resultat måste data konverteras till Pixel. m_CursorPos.x = m_CursorPos.x * Screen.TwipsPixelX m_CursorPos.y = m_CursorPos.y * Screen.TwipsPixelY End Sub