vb 如何定位控件坐标进行模拟鼠标的点击?

来源:百度知道 编辑:UC知道 时间:2024/05/08 22:47:24
要求源代码,可以得到任意控件的绝对坐标,而不管这个窗口放在屏幕的什么位置上。

用控件的相对坐标加上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