把要找的图片的路径保存在 arr 数组中Dim arr(10) //图片路径a = finpicture //调用函数If a = 1 Then
MsgBox "找到图片"Else
MsgBox "没有找到"End IfFunction Finpicture()//自定义找图函数，找到返回1 找不到返回0.
finpicture =0
For i=0 to UBound (arr) //循环找图，直到数组中的路径的图片全部找过
FindPic 0,0,1024,768,arr(i),1,intX,intY
... |
|
