VB6 - माउस की पूर्ण स्थिति का पता लगाना।

यह सुविधा आपको स्क्रीन से माउस की स्थिति का सटीक पता लगाने और शीट से अप्रासंगिक या इसे नियंत्रित करने की अनुमति देती है।

मॉड्यूल

समारोह की घोषणा

 सार्वजनिक प्रकार POINTAPI x लंबे समय तक वाई लंबे समय तक टाइप करें सार्वजनिक m_CursorPos POINTAPI के रूप में सार्वजनिक घोषणा समारोह GetCursorPos Lib "user32" (लंबे समय तक POINTAPI के रूप में lpPoint) 

समारोह बनाना

 इस परिणाम का उपयोग करने के लिए उप गेटकास्टर () डिम लोन्सस्टैट लॉन्ग लोनस्टैट = गेटकॉरपोस एंड (m_CursorPos) के रूप में, डेटा को पिक्सेल में परिवर्तित किया जाना चाहिए। m_CursorPos.x = m_CursorPos.x * Screen.TwipsPixelX m_CursorPos.y = m_CursorPos.y * स्क्रीन ।wipsPixelX End Sub