图片翻转以后为什么保存不了？

Question

Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixelV Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As LongPrivate Sub Command1_Click()
Picture2.Refresh
RltPic True
End SubSub RltPic(TrunLeft As Boolean) '
Dim X As Long
Dim Y As Long
Dim Hdc1 As Long
Dim Hdc2 As Long
With Picture1
   Picture2.Width = .Height  '交换长宽
   Picture2.Height = .Width  '交换长宽
   Hdc1 = .hDC  '获得句炳
   Hdc2 = Picture2.hDC '获得句炳
   If TrunLeft Then
      For X = 0 To .ScaleWidth - 1
         For Y = 0 To .ScaleHeight - 1
            SetPixelV Hdc2, Y, .ScaleWidth - X, GetPixel(Hdc1, X, Y)  '转置图像
         Next
      Next
   Else
      For X = 0 To .ScaleWidth - 1
         For Y = 0 To .ScaleHeight - 1
            SetPixelV Hdc2, .ScaleHeight - Y, X, GetPixel(Hdc1, X, Y)  '转置图像
         Next
      Next
   End If
End With
End Sub
图片翻转以后
用 SavePicture Picture2.Picture, "d:\ddd.gif" 保存不了图片 
请问怎么解决？

Answer 1

要加上这个Picture2.AutoRedraw = TruePrivate Sub Form_Load()
Picture2.AutoRedraw = True
End Sub

Answer 2

自己绘制的picture，保存前需要加PicDay.Picture = picDay.Image

Answer 3

picture2.picture=picture2.iamge
SavePicture Picture2.picture, "d:\ddd.gif

Answer 4

为什么用GetPixel、SetPixelV 这两个PAI函数啊，速度太慢了
http://community.csdn.net/Expert/topic/3262/3262150.xml?temp=5.283755E-02
http://community.csdn.net/Expert/topic/3312/3312140.xml?temp=.3141596
http://community.csdn.net/Expert/topic/3339/3339102.xml?temp=1.346987E-02
http://community.csdn.net/Expert/topic/3319/3319905.xml?temp=.4843866

Answer 5

同意楼上，另外你的代码的效率太低了，可以考虑用imgedit控件实现，几句代码就够了（如果是win2000以上的话，还可以用api函数PlgBlt实现）另外，如果想保存为gif图片的话，用savepicture是不行的，尽管你保存文件的扩展名为gif，但是它本质上还是bmp图片基于以上考虑，我建议你用imgedit控件（它可以保存gif、jpg、tif、bmp等格式的文件）

Answer 6

picture.image保存的才是当前图像

Answer 7

将PICTUREBOX的AutoRedraw 属性设为TRUE，画好以后，使用REFRESH方法来将图像显示出来，最后使用SAVEPICTURE函数来保存图像（只能保存为BMP格式）