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

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

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

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

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

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

[其他] 我要这个附件版主 [复制链接]

1#

本主题由 版主 gljxsd 于 2018/3/13 18:55:16 执行 主题分类 操作
2#

回复 1楼w6186280的帖子
  1. //首先把你的图片放入附件 -
  2. //然后看清附件内所有图片的名字
  3. //现在开始写代码
  4. Dim 图片 : 图片 = Split("图片1|图片2|图片3|图片4", "|")//利用分隔文本建立数组
  5. Dim i : For i = 0 To UBound(图片)
  6. FindPic 0,0,1024,768,"Attachment:"&图片(i)&".bmp",0.9,intX,intY
  7. If intX >= 0 Then
  8. TracePrint "调试输出:我找到了" & 图片(i)
  9. Select Case i//根据循环变量 - 判断找到那个图片 并执行不一样的事情
  10. Case 0
  11. //图1 要做的事情
  12. Case 1
  13. //图2 要做的事情
  14. Case 2
  15. //图3 要做的事情
  16. Case 3
  17. //图4 要做的事情
  18. End Select
  19. End If
  20. Next
复制代码

自命不凡,其实很落魄

个人QQ:1223116618
发新话题 回复该主题