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, 原圖裁剪寬度, 原題裁剪高度, (選填)復制方式