请教:按键精灵中函数返回一个数组,这个程序错在哪?(VB)
//找图函数,返回一个数组。若找到,则arr(0)=1,且arr(1)和arr(2)分别保存x和y坐标,否则arr(0)=0FunctionmyFindImage(ima...
//找图函数,返回一个数组。若找到,则arr(0)=1,且arr(1)和arr(2)分别保存x和y坐标,否则arr(0)=0
Function myFindImage(image)
Dim arr(3)
//【写法1】arr(1)和arr(2)始终取不到值,不知道为什么
FindPic 0, 0, 1680, 1050, "Attachment:\" & image & ".bmp", 1, arr(1), arr(2)
//【写法2】intX和intY能得到值,且通过再赋值的方式,arr(1)和arr(2)才会得到值
FindPic 0, 0, 1680, 1050, "Attachment:\" & image & ".bmp", 1, intX, intY
MessageBox intX & "--" & intY
arr(1) = intX
arr(2) = intY
If arr(1) > 0 And arr(2) > 0 Then
arr(0) = 1
Else
arr(0) = 0
End If
myFindImage=arr
End Function
arr = myFindImage("test")
If (arr(0)) Then
MoveTo arr(1) + 10, arr(2) + 10
Delay 500
LeftClick 1
Else
MessageBox "没找到图"
End If
各位行家里手,请指点我一下:
为什么用写法1,arr(1)和arr(2)就死活获取不到值,而用写法2中转一下就可以?
是不是写法1的语法有错?
很奇怪,这个函数我以前用过,很顺手,但今天做另一个脚本时却不行了
声明一下,我没学过vb,只是看了一些程序之后,模仿着写了这么一个程序 展开
Function myFindImage(image)
Dim arr(3)
//【写法1】arr(1)和arr(2)始终取不到值,不知道为什么
FindPic 0, 0, 1680, 1050, "Attachment:\" & image & ".bmp", 1, arr(1), arr(2)
//【写法2】intX和intY能得到值,且通过再赋值的方式,arr(1)和arr(2)才会得到值
FindPic 0, 0, 1680, 1050, "Attachment:\" & image & ".bmp", 1, intX, intY
MessageBox intX & "--" & intY
arr(1) = intX
arr(2) = intY
If arr(1) > 0 And arr(2) > 0 Then
arr(0) = 1
Else
arr(0) = 0
End If
myFindImage=arr
End Function
arr = myFindImage("test")
If (arr(0)) Then
MoveTo arr(1) + 10, arr(2) + 10
Delay 500
LeftClick 1
Else
MessageBox "没找到图"
End If
各位行家里手,请指点我一下:
为什么用写法1,arr(1)和arr(2)就死活获取不到值,而用写法2中转一下就可以?
是不是写法1的语法有错?
很奇怪,这个函数我以前用过,很顺手,但今天做另一个脚本时却不行了
声明一下,我没学过vb,只是看了一些程序之后,模仿着写了这么一个程序 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询