天涯明月刀捏脸能改吗:vb 如何定位控件坐标进行模拟鼠标的点击?

来源:百度文库 编辑:神马品牌网 时间:2024/05/03 06:18:39
要求源代码,可以得到任意控件的绝对坐标,而不管这个窗口放在屏幕的什么位置上。

用控件的相对坐标加上FORM的坐标不就OK了

以command控件为例

Dim x As Long, y As Long '定义x和y坐标值为长整 型,(单位是twip)

Private Sub Command1_Click()
x = Command1.Left + Form1.Left '计算横坐标
y = Command1.Top + Form1.Top '计算纵坐标
Print x
Print y

End Sub