Question

按键精灵区域找字

比如说我电脑系统日期今天是25号，我该如何在规定区域内有1-31中找到25，到明天系统日期是26号，我找到26？以此类推，请大神不吝赐教！

Answer 1

首先，要确定你的日期形状是会不会，如果不会变可以转为找图（你要做31个图），当然也可以用大漠插件找字（我不会，因为找字太慢，我能不用找字就不用，因此也没学找字），找字要做字库，前提也要保证字的形状不能变。

追问

做31个图没问题，日期形状不会变，如何做到1号 找图形1,2号找图形2，以此类推31号找图31？

追答

做好31个图片，图片用数组存起来，根据日期数字，找数组相应的图片，就可以了。
如果还是不知道代码怎么写，你可以告诉我具体逻辑和操作，我给你一个程序结构。

追问

首先找到“系统日期”
if 系统日期” 日=1 找图 1
if 系统日期 日=2 找图2
请指教 谢谢

追答

//你自己做好图片，图片自己命名，并添加附件
Dim Dates(31) //存放图片名
Dates(1) = "1号图片名.bmp"
Dates(2) = "2号图片名.bmp"
//…………
Dates(31) = "31号图片名.bmp"

//当然，也有简便写法，假如你的图片名有顺序，例如1号，2号这样命名，可以这样：
For i = 1 To 31
Dates(i) = i & "号.bmp"
Next
//上面循环可得到 Dates(1) = "1号.bmp"，Dates(2) = "2号.bmp"，……

Oneday = Day(Now) //得到系统时间某月的一天
FindPic 0, 0, 1024, 768, "Attachment:\" & Dates(Oneday), 0.9, intX, intY
If intX > 0 And intY > 0 Then
//这里写你找到图的代码
End If

Answer 2

首先，要确定你的日期形状是会不会，如果不会变可以转为找图（你要做31个图），当然也可以用大漠插件找字（我不会，因为找字太慢，我能不用找字就不用，因此也没学找字），找字要做字库，前提也要保证字的形状不能变。

原文复制

Answer 3

还不如直接获取系统日期，何必找图找字