神马品牌网建设工程资质证书查询:是VB高手的来，急！急！急！－－－在线等！！
来源：百度文库 编辑：神马品牌网 时间：2024/05/03 05:12:54
我要编一个程序，是这样的，假设我有两张200*100的照片a和b，是否可以把每张照片删掉一半象素，合并成一张照片。再说明一下，我把一张照片看成是一个坐标系，横坐标X，纵坐标Y；现在我把照片a的象素的横坐标X是2,4,6,8,10,12·····196,198,200的删掉，再把照片b的象素的横坐标X是1,3,5,7,9,11····195，197，199的删掉，然后把两张照片合并起来，
我想要的是完整的代码可以吗 ？ 谢谢！回答到我满意可以追加到100。
最好要适用与任何同样大小的照片
谁能帮我说清楚点怎么用API 里的BitBlt如果帮我解决我一定会加分，我只学了半年VB什么API我不懂
猎鬼谢谢你那么认真的回答，但是我想说明一下，我希望纵坐标上的图象的象素是连续的，横坐标上的象素间断，然后两张照片重叠起来是横坐标上的象素也连续
我想要的是完整的代码可以吗 ？ 谢谢！回答到我满意可以追加到100。
最好要适用与任何同样大小的照片
谁能帮我说清楚点怎么用API 里的BitBlt如果帮我解决我一定会加分，我只学了半年VB什么API我不懂
猎鬼谢谢你那么认真的回答，但是我想说明一下，我希望纵坐标上的图象的象素是连续的，横坐标上的象素间断，然后两张照片重叠起来是横坐标上的象素也连续
picture1 和 picture2 为你的两个照片a,b
n，m为长、宽。但是注意要为15的倍数，因为像素之间差15
修正了一下，再试试
For i = 1 To n Step 15
k = 0
For j = 1 To m Step 15
k =k + 1
If k Mod 2 = 0 Then
a = Picture1.Point(i, j)
Else
a = Picture2.Point(i, j)
End If
Picture3.PSet (i, j), a
Next j
Next i
用API 里的BitBlt 就好啦，当然适用于任何同样大小的照片了。代码不写了，蛮麻烦的。