怎么实现图象的拼接
我把大图分成3*3的小图后,怎么根据小图的坐标进行拼接?或者实现我需要哪副图就调进哪副图
你自己已经把大图分割成一个个小图了吧?
你可以定义一个类型:
Private Type PictureCoor '图片坐标
x As Long 'X 坐标
y As Long 'Y 坐标
End Type
然后定义一个 PictureCoor 类型的数组,用来存放小图的坐标信息:
Public SmallPics() As PictureCoor
最后使用循环,调整一个个小图的位置(这里假设你已经把每个小图分别装进了一个 Picture 控件数组的每个 Picture 控件里):
Dim i As Integer
For i = 0 To UBound(SmallPics)
Picture1(i).Left = SmallPics(i).X
Picture1(i).Top = SmallPics(i).Y
Next