VB6 - Iskanje absolutnega položaja miške.

Ta funkcija vam omogoča, da natančno poznate položaj miške na zaslonu in je nepomembna iz lista ali kontrolnika, ki ga vsebuje.

Modul

Razglasitev funkcije

 Javni tip POINTAPI x Kot dolg y Kot dolgi konec Vrsta javnega m_CursorPos Kot POINTAPI javna funkcija Funkcija GetCursorPos Lib "user32" (lpPoint As POINTAPI) 

Ustvarjanje funkcije

 Sub GetCursor () Dim LonCStat Kot dolg LonCStat = GetCursorPos & (m_CursorPos) 'za uporabo tega rezultata je treba podatke pretvoriti v Pixel. m_CursorPos.x = m_CursorPos.x * Zaslon.TwipsPixelX m_CursorPos.y = m_CursorPos.y * Zaslon.TwipsPixelY End Sub