estoy intentando que se guarde la imagen que pinto dentro de un picturebox pudiendo elegir yo la ruta y el nombre del archivo pero al guardarlo me aparece el error que he puesto en el título y no encuentro nada que me aclare el error. Si por otra parte tenéis alguna idea mas sencilla para poder guardar una imagen de un picturebox sería de gran ayuda porque estoy intentando hacer un paint desde 0 para un trabajo de clase y solo se guardar archivos de texto sin mas como podrías hacer desde el bloc de notas.
Dim Guardar As New SaveFileDialog()
Dim Ruta As String = "C:\Temp\"
Dim Direccion As String = System.IO.Path.GetDirectoryName(Ruta)
Dim titulo As String = "Guardado"
Dim boton = MessageBoxButtons.YesNo
Dim icono = MessageBoxIcon.Information
Try
If Not System.IO.Directory.Exists(Direccion) Then
System.IO.Directory.CreateDirectory(Direccion)
End If
With Guardar
.Title = "Guardar como"
.Filter = "Jpg, Jpeg Images|*.jpg;*.jpeg|PNG Image|*.png|BMP Image|*.bmp"
.AddExtension = True
.DefaultExt = ".jpg"
.FileName = "MiDibujo.jpg"
.ValidateNames = True
.OverwritePrompt = True
.InitialDirectory = Direccion
.RestoreDirectory = True
If .ShowDialog = DialogResult.OK Then
If .FilterIndex = 1 Then
PictureBox1.Image.Save(Guardar.FileName, Imaging.ImageFormat.Jpeg)
ElseIf .FilterIndex = 2 Then
PictureBox1.Image.Save(Guardar.FileName, Imaging.ImageFormat.Png)
ElseIf .FilterIndex = 3 Then
PictureBox1.Image.Save(Guardar.FileName, Imaging.ImageFormat.Bmp)
End If
Else
Return
End If
End With
Catch ex As Exception
MessageBox.Show("Error Guardando la Imagen => " & ex.Message.ToString())
Finally
Guardar.Dispose()
End Try
Me.Text = Guardar.FileName
cambiado = False