VB6 - absoliučios pelės vietos nustatymas.

Ši funkcija leidžia tiksliai žinoti pelės padėtį iš ekrano ir nesusiję su jo turiniu.

Modulis

Funkcijos deklaravimas

 Viešasis tipas POINTAPI x Kaip ilgas ir ilgas pabaigos tipas Viešas m_CursorPos Kaip POINTAPI Viešasis skelbimas Funkcija GetCursorPos Lib "user32" (lpPoint As POINTAPI) kaip ilgas 

Funkcijos sukūrimas

 Sub GetCursor () Dim LonCStat Kaip ilgai LonCStat = GetCursorPos & (m_CursorPos) 'naudoti šį rezultatą, duomenys turi būti konvertuoti į Pixel. m_CursorPos.x = m_CursorPos.x * Screen.TwipsPixelX m_CursorPos.y = m_CursorPos.y * Ekranas.TwipsPixelY Pabaigos pabaiga