帮帮忙，在Picture中编辑完了图片，如何保存

帮帮忙，在Picture中编辑完了图片，如何保存

解决方案 »

  1.   

    SavePicture Picture1.Picture, App.Path & "\temp.bmp"
    '如果使用了绘图函数，就用下面的语句
    SavePicture Picture1.Image, App.Path & "\temp.bmp"
      

  2.   

    可是我应用之后，只保存了一张空图，我的图片格式是“JPG”
    PictureBox的AutoRedraw已经设为True.
      

  3.   

    Option ExplicitPrivate Sub Command1_Click()
        Me.Picture1.AutoRedraw = True
        Me.Picture1.Line (0, 0)-(1000, 1000), vbGreen, BF
        Me.Picture1.Refresh '这句加上
        SavePicture Picture1.Image, "c:\mmmtemp.bmp"
    End SubPrivate Sub Form_Load()
        Me.Picture1.Picture = LoadPicture("d:\mc\setup.bmp")
    End Sub
      

  4.   

    VB本身图片不能保存为jpg格式，只能用 SavePicture存为bmp格式，可另外在网上找一些转换成jpg的控件。
      

  5.   

    扩展名叫什么无所谓，但是SavePicture只能存储为bmp格式
      

  6.   

    to hohonet(凡人一夫) 
    我在网上转了半天，就是没有找到转换成jpg的控件，你知道有哪些，举些例子好吗？
      

  7.   

    bmptojpeg(也可能是bmptojpg,抱歉很久以前用的，现在有点忘了)有个DLL，特别方便,是文件方式的格式转换,不是内存->文件的转换.
      

  8.   

    SavePicture Picture1.Image, App.Path & "\temp.bmp"
      

  9.   

    csdn文档有压缩图片为jpeg的文章