梦见自己捉住蛇被蛇咬:vb坐标问题
CurrentX、CurrentY 属性
返回或设置下一次打印或绘图方法的 水平 (CurrentX) 或垂直 (CurrentY) 坐标。设计时不可用。
语法
object.CurrentX [= x]
object.CurrentY [= y]
CurrentX 和 CurrentY 属性语法包含下面部分:
部分 描述
Object 对象表达式,其值是“应用于”列表中的一个对象。
X 确定水平坐标的数值。
Y 确定垂直坐标的数值。
说明
坐标从对象的左上角开始测量。在对象的左边 CurrentX 属性值为 0,上边的 CurrentY 为 0。坐标以缇为单位表示,或以 ScaleHeight、ScaleWidth、ScaleLeft、ScaleTop 和 ScaleMode 属性定义的度量单位来表示。
用下面的图形方法时,CurrentX 和 CurrentY 的设置值按下述说明改变:
方法 设置 CurrentX, CurrentY 为:
Circle 对象的中心。
Cls 0,0。
EndDoc 0,0。
Line 线终点。
NewPage 0,0。
Print 下一个打印位置。
Pset 画出的点。
GetCursorPos
VB声明
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
说明
获取鼠标指针的当前位置
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpPoint POINTAPI,随同指针在屏幕像素坐标中的位置载入的一个结构