标题:怎么实现图象的拼接
只看楼主
ldd2w
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-1-4
 问题点数:0 回复次数:8 
怎么实现图象的拼接
我把大图分成3*3的小图后,怎么根据小图的坐标进行拼接?
或者实现我需要哪副图就调进哪副图
搜索更多相关主题的帖子: 拼接 图象 
2006-01-13 09:19
moshen62
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2006-1-12
得分:0 
上传一个样图来看看

2006-01-13 09:34
ldd2w
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-1-4
得分:0 
我的所有小图都一样大小
2006-01-13 11:39
ldd2w
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-1-4
得分:0 

我不知道怎么把图片传上来
就是把一副图片分割成M*N

2006-01-13 11:42
moshen62
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2006-1-12
得分:0 

我的意思是 把你的图上传上来才能知道怎么连接阿


2006-01-13 11:42
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
得分:0 

你自己已经把大图分割成一个个小图了吧?
你可以定义一个类型:


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

2006-01-13 12:45
ldd2w
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-1-4
得分:0 

我怎么把小图分别装进了一个 Picture 控件数组的每个 Picture 控件里?
不好意思
我很弱
我把小图坐标是写到一个文件里

2006-01-13 13:56
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
得分:0 

存储的格式是怎么样的?

2006-01-13 14:36
ldd2w
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-1-4
得分:0 
谢谢leon2!
2006-01-17 10:05



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-42728-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.132624 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved