怎么数组找图？ _ 常见问题

查看: 6152\|回复: 0	[技术类问题] 怎么数组找图？ [复制链接]

发送短消息 UID 211464 帖子 21164 精华 13 鲜花 258 朵铜币 47817 个银币 60 个性别在线时间 263800 注册时间 2008-12-23 最后登录 2022-11-28 1094599314 1094599314 查看公共资料搜索主题搜索帖子兄弟工程师01 组别版主 UID211464 帖子21164 精华13 鲜花258 朵铜币47817 个银币60 个在线时间263800 注册时间2008-12-23 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com 兔年勋章兔年纪念勋章论坛MM 按键论坛女性用户勋章小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键元老资深按键用户的尊贵荣誉勋章管理人员按键论坛的管理团队专属勋章	1^# 字体大小: t T 发表于 2011-08-03 09:04 \| \|只看楼主问题：怎么数组找图？答案：按键精灵8及以上语法 Dim a(9) //图片数组赋值（需要把图片添加到附件里） a(0)="Attachment:\0.bmp" a(1)="Attachment:\1.bmp" a(2)="Attachment:\2.bmp" a(3)="Attachment:\3.bmp" a(4)="Attachment:\4.bmp" a(5)="Attachment:\5.bmp" a(6)="Attachment:\6.bmp" a(7)="Attachment:\7.bmp" a(8)="Attachment:\8.bmp" a(9)="Attachment:\9.bmp" Call 查找图片数组() EndScript Sub 查找图片数组() For i=0 To 9 Call FindPic(880,21,889,34,a(i),1,x,y) If x>0 and y>0 Then Exit For End If Next Rem 找到 Msgbox "找到第 " & i & " 张图" End Sub 复制代码已有1评分我要评分查看所有评分
	点赞

	回顶部

上一主题| 下一主题

[技术类问题] 怎么数组找图？ [复制链接]