VB6 - تحديد موقع الموضع المطلق للماوس.

تتيح لك هذه الميزة معرفة موضع الماوس بدقة من الشاشة وغير ذي صلة من الورقة أو عنصر التحكم الذي يحتوي عليه.

الوحدة

إعلان الوظيفة

 نوع عمومي POINTAPI x طالما ذ طويل نوع نهاية عام m_CursorPos باسم POINTAPI Public Declare Function GetCursorPos Lib "user32" (lpPoint باسم POINTAPI) 

خلق وظيفة

 Sub GetCursor () Dim LonCStat As Long LonCStat = GetCursorPos & (m_CursorPos) 'لاستخدام هذه النتيجة ، يجب تحويل البيانات إلى بكسل. m_CursorPos.x = m_CursorPos.x * Screen.TwipsPixelX m_CursorPos.y = m_CursorPos.y * Screen.TwipsPixelY End Sub