看到你的问题补充就不知道你想要写成什么样子的了。给你两段代码把。 一、获取鼠标在屏幕上的坐标'坐标显示在Text1,Text2.'建一个Timer1,Text1,Text2.'代码如下。'============Private Type POINTAPI
x As Long
y As LongEnd TypePrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongDim p As POINTAPIPrivate Sub Form_Load()Timer1.Inte...