我想把pictrueBOX1和picturebox2上面的图片合成一张，一个在左，一个在右，怎么做呢？谢谢

Question

SavePicture Picture2.Image, CommonDialog1.FileName
SavePicture Picture1.Image, CommonDialog1.FileName
原来是如上面所述，保存为了两张BMP图片了，我想保存为1张BMP图片，这样可以形成对比，好观察一些，这个该怎么做呢，呵呵，谢谢，一个位置在左，一个位置在右

Answer 1

将Picture1和Picture2都放到Picture3里,缩放它们的位置,使一在左,一在右.然后对Picture3抓图,保存

Answer 2

只能用两个picturebox啊，不能用第三个，有别的方法吗？呵呵

Answer 3

Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture1.Width = Picture1.Width + Picture2.Width
Picture1.PaintPicture Picture2.Picture, Picture2.Width, 0
CommonDialog1.ShowSave
SavePicture Picture1.Image, CommonDialog1.FileName
End Sub

Answer 4

谢谢楼上的。我想做的是希望picture1和picture2的形状大小不改变的情况下，可以吗，我两个pictrue上面有两幅不同的波形图。这两个picture宽度高度是不能改变的

Answer 5

Private Sub Command1_Click()Picture3.PaintPicture Picture1.Picture, 0, 0Picture3.PaintPicture Picture2.Picture, Picture1.Width, 0
CommonDialog1.ShowSave
SavePicture Picture3.Image, CommonDialog1.FileName
End SubPrivate Sub Form_Load()
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture3.AutoRedraw = True
Picture3.Width = Picture1.Width + Picture2.Width
Picture3.Height = Picture1.Height
Picture3.Left = -1 * Picture3.Width 'Picture3不在窗体上,不影响界面.
CommonDialog1.Filter = "*.bmp|*.bmp"
End Sub

Answer 6

我试验了一下，提示无可操作图片，后来看一下paintpicture方法的帮助，上面的对象Picture好像是“必需的。要绘制到 object 上的图形源。Form 或 PictureBox 必须是 Picture 属性。”这个意思，和这个意思的话，应该是上面的图像必须是由picture这个属性导入的，而不是picture1和picture2自绘的，我后来试验了一下，证明我上面这个猜测是正确的，怎么样才能把自己绘制的给保存呢？谢谢兄弟的帮忙