如何將圖片從圖片庫保存爲jpg

我已經能夠將文件保存爲.jpeg，但圖片無法加載，有沒有人有建議？如何將圖片從圖片庫保存爲jpg

Private Sub Btnconfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnconfirm.Click 

     MsgBox("A receipt will now be saved to your files", vbOKOnly, "Thank you for your purchase") 

     SaveFileDialog1.ShowDialog() 
     MsgBox("Thank you for choosing Tiny Theatre, have a nice day.", vbOKOnly, "Thank you") 
     Me.Close() 
    End Sub 

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk 
     Dim FileToSaveAs As String = SaveFileDialog1.FileName 

     Dim objwriter As New System.IO.StreamWriter(FileToSaveAs) 
     objwriter.Write(PictureBox1) 
     objwriter.Close() 
    End Sub

來源

2013-05-10 Boats

圖像保存後，它出現在我保存它的任何地方（像它應該），但圖像不會打開，我做錯了什麼？ – Boats 2013-05-10 18:59:42

「PictureBox1」是什麼類型的控件？您是否在十六進制編輯器中查看生成的文件的內容？如果您將擴展名更改爲其他內容，例如'.png'，'.gif'，'.bmp'等，圖像是否會打開？ – 2013-05-10 19:06:07

對不起，我不確定你的意思 – Boats 2013-05-10 19:12:24

沒有嘗試過，但可能這樣做嗎？

Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk 
    Dim FileToSaveAs As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, SaveFileDialog1.FileName) 
    PictureBox1.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Jpeg) 
End Sub

如果您需要設置編碼器參數（如JPEG壓縮），你將需要保存方法的重載。請參閱http://msdn.microsoft.com/en-us/library/system.windows.forms.picturebox.image.aspx和http://msdn.microsoft.com/en-us/library/system.drawing.image.aspx

提供的代碼將序列化格式的圖片框控件保存爲具有擴展名爲jpeg的文件。將text.txt文件重命名爲text.jpg不會使其成爲有效的jpg圖像。這是一樣的。

來源

2013-05-10 19:25:00 nickvane

我試了一下，它不會保存文件句號。 – Boats 2013-05-10 19:33:13

PictureBox1是什麼類型的控件？它是一個PictureBox控件嗎？ – nickvane 2013-05-10 19:35:21

只是一個普通的PictureBox – Boats 2013-05-10 19:39:30

-1

Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk 
    Dim FileToSaveAs As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, SaveFileDialog1.FileName) 
    PictureBox1.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Jpeg) 
End Sub

來源

2016-08-12 01:05:26 frs

如何將圖片從圖片庫保存爲jpg

回答

相關問題