VB6 - hiire absoluutse asukoha määramine.

See funktsioon võimaldab teil täpselt teada, milline on hiire asukoht ekraanilt ja mis ei sisalda selles sisalduvast lehest või juhtseadmest.

Moodul

Funktsiooni deklareerimine

 Avalik tüüp POINTAPI x nii kaua kui pikk lõpptüüp Avalik m_CursorPos Nagu POINTAPI Avalik deklareerimise funktsioon GetCursorPos Lib "user32" (lpPoint As POINTAPI) kui pikk 

Funktsiooni loomine

 Sub GetCursor () Dim LonCStat Selle tulemuse kasutamiseks tuleb Long LonCStat = GetCursorPos & (m_CursorPos) muuta andmed Pixeliks. m_CursorPos.x = m_CursorPos.x * Screen.TwipsPixelX m_CursorPos.y = m_CursorPos.y * Screen.TwipsPixelY Lõpeta alam