• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.3.8
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[问题] 如何控制读取位置 [复制链接]

1#
Rem 读取坐标
DTZB = "840,160>845,165>835,150>855,165>850,160>845,125>840,120>730,140>760,160>785,180>830,185>800,205>770,225>740,240>760,250>790,270>780,240>830,245>805,225>830,205>860,220>852,191"
Call 坐标精度()
For i = 0 To UBound(ArrMap, 1)
MoveTo arrmap(i, 0),arrmap(i, 1)
Call 找人() //问题关键来了,IF 找人=0,如何控制For i = 0 To UBound(ArrMap, 1)读取坐标回到前一个坐标或后一个坐标???
Next
//偏移点转换成二维数组
Sub 坐标精度()
Dim i, j, arrX, arrY
arrX = Split(DTZB, ">")
For i = 0 To UBound(arrX)
arrY = Split(arrX(i), ",")
For j = 0 To 1
If j = 0 and i = 0 Then
Redim ArrMap(UBound(arrX), UBound(arrY))
End If
ArrMap(i, j) = arrY(j)
next
Next
End Sub
EndScript

发新话题 回复该主题