1、这里以下面的背包为例进行讲解。首先 定义背包 Dim beibao(5, 7) /////5是行，因为从0开始，所以数字应该是5, 7就是列了
2、找到 第一个格子，左上角和右上角的坐标，
x1 = 19
y1 = 90
x2 = 15
y2 =124
3、然后，找出第一个格子左上角的纵坐标y1和下一行第一个格子左上角的纵坐标y2 之间的差值j 这里j=48 ;同样找出第一个格子左上角的横坐标x1 和 同行第二个格子左上角的横坐标x2之间的差值i 这里i=48 。
1、第四步. 截取一个 空格子的图片，命名为 格子。下面语句直接复制就可以了。
For i = 0 to UBound(beibao, 5) //////////5 指的是行
For j = 0 to UBound(beibao, 7) ///////////////////下面的数据 根据你自己编写
FindPic x1 + j*48 ,y1 + i * 45 ,x2 + j * 48 ,y2 + i *45 ,"Attachment:\格子.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "说明该格子是空的"
End If
Next
Next
这样就找出所有空格子了。
2、这里方式全部代码
Dim beibao(5, 7) //////////////////////遍历物品栏
x1 = 19
y1 = 90
x2 = 15
y2 = 124 ///////////////x1 y1 x2 y2 指的是第一个格子的左上角 右上角
For i = 0 to UBound(beibao, 5) //////////5 指的是行
For j = 0 to UBound(beibao, 7) ///////////////////下面的数据 根据你自己编写
FindPic x1 + j*48 ,y1 + i * 45 ,x2 + j * 48 ,y2 + i *45 ,"Attachment:\格子.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "说明该格子是空的"
End If
Next
Next
