我已經能夠將文件保存爲.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
圖像保存後,它出現在我保存它的任何地方(像它應該),但圖像不會打開,我做錯了什麼? – Boats 2013-05-10 18:59:42
「PictureBox1」是什麼類型的控件?您是否在十六進制編輯器中查看生成的文件的內容?如果您將擴展名更改爲其他內容,例如'.png','.gif','.bmp'等,圖像是否會打開? – 2013-05-10 19:06:07
對不起,我不確定你的意思 – Boats 2013-05-10 19:12:24