VB 怎么实现找窗口内指定颜色的坐标?

来源：百度知道 编辑：UC知道 时间：2024/05/11 17:48:31
比如 1个窗口内 我知道了1个颜色
怎么通过这个颜色来查找该颜色对应的坐标?

Dim I As Long, II As Long
For I = 1 To Form1.Width Step 15 '如果单位用的是像素则不许要step 15
For II = 1 To Form1.Height Step 15
If Form1.Point(I, II) = Cor Then
MsgBox "x=" & x & " y=" & y
I = Form1.Width
exit for
End If
Next
Next