vb把两张图片拼接源码

⑴ VB如何将两个图片合并成一个（第一个在上面，第二个跟在下面）

你是想把两个图片拼成一张图片吧？这样的话VB本身应该不行，要用组件

你可以看下ASPJpeg组件的相关介绍

⑵ VB.NET怎么将两张PNG图片合并成一个张，并保存成背景透明的图片。

用GDI

先建一个6400*4800的Image 类的位图图像 作为GDI画板
然后用Drawimage方法，加载小图像，并按坐标位置画进去
然后保存成文件
我有一个相似功能的VB.net代码,可以给你参考

⑶ vb 图片拼接并输出

添加两个图片框控件Picture1,Picture2,假设图片是jpg格式
ScaleMode = 3
Picture1.AutoSize = True
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
Picture1.BorderStyle = 0
Picture2.BorderStyle = 0
a = "43566"
For i = 1 To Len(a)
Picture1.Picture = LoadPicture(Mid(a, i, 1) + ".jpg")
If i = 1 Then
Picture2.Height = Picture1.Height
Picture2.Width = Picture1.Width
Else
If Picture1.Height > Picture2.Height Then Picture2.Height = Picture1.Height
Picture2.Width = Picture2.Width + Picture1.Width
End If
Picture2.PaintPicture Picture1.Picture, w, 0
w = w + Picture1.Width
Next
Clipboard.Clear
Clipboard.SetData Picture2.Image

⑷ vb拼接图片

在窗体上放置两个PictureBox请不要改任何属性，我们用代码改

请将文件命名为1-1.bmp1-2.bmp1-3.bmp....

2-1.bmp2-2.bmp....

PrivateSubForm_Load()

DimIAsLong

DimJAsLong

Me.ScaleMode=3

Picture1.ScaleMode=3

Picture2.ScaleMode=3

Picture2.AutoRedraw=True

Picture1.AutoRedraw=True

Picture1.AutoSize=True

Picture1.BorderStyle=0

Picture2.BorderStyle=0

SetPicture1.Picture=LoadPicture("C:1-1.bmp")

'Picture1.PaintPicturePicture2.PaintPicture,0,0

Picture2.Width=Picture1.ScaleWidth*4

Picture2.Height=Picture1.ScaleHeight*4

ForI=1To4

ForJ=1To4

SetPicture1.Picture=LoadPicture("C:"&CStr(I)&"-"&CStr(J)&".bmp")

Picture2.PaintPicturePicture1.Picture,(I-1)*Picture1.ScaleWidth,(J-1)*picture1.ScaleHeight

Next

Next

SavePicturePicture2.Image,"C:All.bmp"

EndSub

⑸ vb 怎么图片合并

你什么意思，让P2的透明部分滤掉然后叠加在前面的图上面吗？

方法很多，最简单的方式是使用GDI的TransparentBlt函数。

或者用两次BitBlt进行位运算也行。或者MaskBlt也行。

以上API的用法都可以在MSDN上查到，其中下面两个的VB声明可以在VB6的API浏览器中找到，前面TransparentBlt的我在这里给个声明吧：

Public Declare Function TransparentBlt Lib "msimg32" (ByVal hDestDC As Long, _
ByVal xDest As Long, _
ByVal yDest As Long, _
ByVal nWidthDest As Long, _
ByVal nHeightDest As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal nWidthSrc As Long, _
ByVal nHeightSRC As Long, _
ByVal crTransparent As Long) As Long
——————————————————————

TransparentBlt从WinNT开始就已经被支持了，算是很老的API，要搞新的甚至可以用GDI+，那里面的DrawImage才叫功能全面，AlphaBlend和ColorMatrix都支持。

TransparentBlt的用法和BitBlt或者PaintPicture差不多，唯一注意的是最后一个参数，它要求你指定透明色，即图像中应该被滤掉的颜色。你的GIF需要做一个处理，因为真正的系统中并不存在“透明”这种颜色，因此你需要把把GIF透明的部分换成一种不常用的颜色（保证图片中其它部分没有这个颜色），然后把这个颜色指定给TransparentBlt的最后一个参数就可以了。

————————————————————————
TransparentBlt，你就可以理解为一个PaintPicture，不过它对于源图像中你指定的颜色不予绘制，当然绘制到目标上面的时候不予绘制的那部分就保持了原来的样子，这样就实现了透明的效果。很多2D游戏很常用这个API的。

⑹ vb vc 怎么对两张图片进行混合叠加处理， 就像photoShop中的正片叠加的效果 求高手回答 给个源码

*http://blog.sina.com.cn/s/blog_73cbd0ec0100s8eh.html

⑺ VB6中怎样实现两张图片的合并

怎么个合并法？是把一张图片贴到另一张图片上？直接用PaintPicture.
用法：
目标.PaintPicture 源图片, 目标X, 目标Y, 目标拉伸宽度, 目标拉伸高度, 原图裁剪开始位置X, 原图裁剪开始位置Y, 原图裁剪宽度, 原题裁剪高度, (选填)复制方式