'用set
set picture1.image=picture1.picture
savepicture picture1.picture

解决方案 »

  1.   

    set picture1.image=picture1.picture
    savepicture picture1.picture
      

  2.   

    应该这样,
    savepicture picture1.image,filename
      

  3.   

    先设 picture1.redraw=true
    picture1.picture=picture1.image
    savepicture picture1.picture,"c:\1.bmp"
      

  4.   


           SavePicture PicBox.Picture, bmpFileName
      

  5.   

    CommonDialog1.ShowSave
    SavePicture Picture3.Image, CommonDialog1.FileName
      

  6.   

    Private Sub Command1_Click()
      Picture1.CurrentX = 200
      Picture1.CurrentY = 200
      Picture1.Print "在图片框中打印文字"
    End SubPrivate Sub Command2_Click()
      SavePicture Picture1.Image, "c:\temp\pic.bmp"
    End SubPrivate Sub Form_Load()
      Picture1.AutoRedraw = True
      Command1.Caption = "在图像框中输出文字"
      Command2.Caption = "保存图像框内容"
    End Sub
      

  7.   

    picture1.autoRedraw=true
    SavePicture Picture1.Image, "c:\kk.bmp"