Question

VB能不能获得鼠标在屏幕的位置？

VB能不能获得鼠标在屏幕的位置？现在只能获得鼠标在窗口内的位置屏幕的不行。。

Answer 1

建一个Timer1,Text1,Text2. timer1的interval值你自己设置 代码如下。 ＝＝＝＝＝＝＝＝＝＝＝＝ Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Dim p As POINTAPI Private Sub Form_Load() Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() GetCursorPos p Text1.Text = p.x Text2.Text = p.y End Sub 原理是调用GetCursorPos 这个API函数来返回鼠标当前在屏幕上的坐标，这个坐标值在不同的分辨率下 相同位置的坐标不同！这个在实际编程中要注意！ 希望能帮助到你 不懂请追问