如何将Picture1里的图像和image里的图像保存?

Question

我在Picture1控件里画了个image控件和一个image控件.Picture1里是一个背景图,image里是一个前景图 怎么样 将他们保存为一张图像???

Answer 1

我以前做过一个类似功能的程序，需要借助一个picture和API函数 BitBlt1、将原来的picture1，AutoDraw属性设为False
2、在窗体上加一个picture2，AutoDraw属性设为True
3、加一个command1，由于测试添加以下代码Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPrivate Sub Command1_Click()BitBlt Picture2.hDC, 0, 0, 200, 200, Picture1.hDC, 0, 0, vbSrcCopy  '宽度、高度自己定
Picture2.Refresh
SavePicture Picture2.Image, "c:\try.bmp"End Sub要成功保存图像必须注意以下几点：
1、Picture1的AutoReDraw属性必须为false，否则image的图像不保存
2、Picture2的AutoReDraw属性必须为True,才能获得两个图像的copy
3、保存时应该用Picture2的image属性而不是picture属性