Как сохранить файл изображений в vb.net?

Question

Я создаю простую программу рисования в vb.net, когда я пытаюсь сохранить файл, программа замораживается, и я ничего не могу сделать.

Это мой код, который я использовал

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click 
     SaveFileDialog1.CreatePrompt = True 
     SaveFileDialog1.DefaultExt = "jpg" 
     SaveFileDialog1.Filter = "File Images (*.jpg;*.jpeg;) | *.jpg;*.jpeg; |PNG Images | *.png |GIF Images | *.GIF" 
     SaveFileDialog1.InitialDirectory = "F:" 

     If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 
      FrmCanvas.PictureBox1.Image.Save(SaveFileDialog1.FileName) 
     End If 
End Sub 

ли я что-то пропустил в моем коде? Я извиняюсь, я новичок в vb.net

Answer 1

Вы пропустили формат вашего изображения

FrmCanvas.PictureBox1.Image.Save(savefiledialog1.FileName,System.Drawing.Imaging.ImageFormat.Jpeg) 

Чтобы сохранить изображение на пользователей, выбранных формат, основанный на фильтре-то вроде этого

If SaveFileDialog1.FileName <> "" Then 
    ' Saves the Image in the appropriate ImageFormat based upon the 
     ' file type selected in the dialog box. 
     ' NOTE that the FilterIndex property is one-based. 
     Select Case SaveFileDialog1.FilterIndex 
     Case 1 
      FrmCanvas.PictureBox1.Image.Save(savefiledialog1.FileName,System.Drawing.Imaging.ImageFormat.Jpeg) 

     Case 2 
      FrmCanvas.PictureBox1.Image.Save(savefiledialog1.FileName,System.Drawing.Imaging.ImageFormat.Bmp) 

     Case 3 
      FrmCanvas.PictureBox1.Image.Save(savefiledialog1.FileName,System.Drawing.Imaging.ImageFormat.Gif) 
     End Select 
End If 

Надеюсь, что вам поможет идея.

Для получения дополнительной информации посетите this.

Answer 2

Попробуйте это.

Dim SaveImage As New Bitmap(PictureBox1.Image) 
SaveImage.Save(SaveImagePath + SaveImageName, Imaging.ImageFormat.Jpeg) 
SaveImage.Dispose()