Mostrar Temas
eh buscado muchos ejemplos pero todos están demasiado largos y son difíciles de entender y yo solo tengo un programa muy simple
tengo dos picturebox:
el picturebox1 contendrá la imagen original
el picturebox2 contendrá la imagen modificada(será la misma imagen del pincturebox1 pero con una parte cortada)
tengo dos botones:
button1 carga la imagen original en el picturebox1, modifica la imagen(la corta) y muestra la imagen modificada en el picturebox2
button2 guardará la imagen del picturebox2 en formato jpeg en una carpeta especifica.
El problema es que no puedo guardar el contenido del picturebox2
Código:
Public Class Form1
'botón de cargar imagen en el picturebox1, cortarla, y redibujarla en el picturebox2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As System.Drawing.Image
Dim B As System.Drawing.Rectangle
Dim c As System.Drawing.Rectangle
'A= Source File ( una Imagen )
'B= Posicion donde Se va a Pegar y con que ancho y largo
'C= De Que Posicion se va a Copiar y con el ancho y largo
'cargo una imagen
PictureBox1.ImageLocation = "C:\Users\RGONZALEZ\Desktop\pdfs\ordent.jpeg"
PictureBox1.Load()
'asigno A con la imagen del picturebox1
A = PictureBox1.Image
B = New Rectangle(0, 0, PictureBox2.Width, PictureBox2.Height)
' copio rectángulo del picturebox1 pero cortado y lo asigno a c
c = New Rectangle(0, 70, PictureBox1.Width, PictureBox1.Height)
'redibujo la imagen en el picturebox2 pero ya con la modificacion
PictureBox2.CreateGraphics.DrawImage(A, B, c, GraphicsUnit.Pixel)
'hasta aquí todo bien
End Sub
'botón de guardar la imagen del picturebox2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'aquí es donde me sale error por que en picturebox2.image tiene el valor de nothing a pesar de que se esta mostrando la imagen
PictureBox2.Image.Save("C:\Users\RGONZALEZ\Desktop\pdfs\ordent.jpeg", Drawing.Imaging.ImageFormat.Jpeg)
End Sub
End Class
