VB6 - Umístění absolutní polohy myši.

Tato funkce vám umožní přesně určit polohu myši z obrazovky a je irelevantní z listu nebo ovládacího prvku, který obsahuje.

Modul

Deklarování funkce

 Veřejný typ POINTAPI x jako dlouhý y jako dlouhý konec typu veřejné m_CursorPos jako funkce veřejné deklarace POINTAPI Veřejné deklarace GetCursorPos Lib "user32" (lpPoint jako POINTAPI) 

Vytvoření funkce

 Sub GetCursor () Dim LonCStat Jako dlouhý LonCStat = GetCursorPos & (m_CursorPos) 'pro použití tohoto výsledku musí být data převedena na Pixel. m_CursorPos.x = m_CursorPos.x * Screen.TwipsPixelX m_CursorPos.y = m_CursorPos.y * Screen.TwipsPixelY End Sub