4

ファイルを .jpeg として保存できましたが、画像が読み込まれません。誰か提案はありますか?

    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
4

1 に答える 1

8

試していませんが、これでうまくいくでしょうか？

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 圧縮など) を設定する必要がある場合は、Save メソッドのオーバーロードが必要になります。http://msdn.microsoft.com/en-us/library/system.windows.forms.picturebox.image.aspxおよびhttp://msdn.microsoft.com/en-us/library/system.drawing.imageを参照してください。 .aspx

提供されたコードは、picturebox コントロールをシリアル化された形式で、拡張子が jpeg のファイルに保存します。text.txt ファイルの名前を text.jpg に変更しても、有効な jpg 画像にはなりません。これは同じです。

于 2013-05-10T19:25:00.923 に答える