Visual Basic.NET - Asignar un objeto graphics a un picturebox

   
Vista:

Asignar un objeto graphics a un picturebox

Publicado por Sebastian Rivas (1 intervención) el 30/10/2007 19:53:40
Amigos, sé como pasar de la imagen de un picturebox a un graphics, el problema es que no puedo, luego de trabajar con el graphics, volverlo a asignar al picturebox para mostrarlo.

SALUDOS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Asignar un objeto graphics a un picturebox

Publicado por Harold V. (411 intervenciones) el 30/10/2007 21:38:45
Hola:

Este sencillo ejemplo te ayudara

picturebox1.image=drawsomething(picturebox2.image)


Public Function DrawSomething (imagen as image) as image

dim gp as Graphics
dim bmp as New Bitmap(imagen)
dim bsh As SolidBrush = New SolidBrush(MyBackcolor)
dim pen As Pen = New Pen(Color.Gray, 1)

Dim imgNueva As Image = bmp

gp = System.Drawing.Graphics.FromImage(bmp)

gp.FillRectangle(bsh, New Rectangle(0, 0, _Width, _Height))
gp.DrawRectangle(pen, New Rectangle(1, 1, _Width - 1, _Height - 1))

gp.DrawImage(bmp, New Point(0, 0))
gp.Save()

Return imgNueva

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Asignar un objeto graphics a un picturebox

Publicado por Sebastian Rivas (1 intervención) el 30/10/2007 22:33:59
Muchísimas gracias.

Pero sabes que finalmente solo me copia la imagen de un control al otro. ?Cual puede ser el problema? Hay que hacer algún imports system.algo ???? No hace los procesos del graphics gp.

¿cual puede ser mi problema?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Asignar un objeto graphics a un picturebox

Publicado por Sebastian rivas (1 intervención) el 30/10/2007 22:43:35
y la linea

Dim imgNueva As Image = bmp

para qué era ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

este es mi codigo

Publicado por sebastian rivas (1 intervención) el 30/10/2007 22:51:40
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim gp As Graphics

Dim a As Image = PictureBox1.Image

Dim bmp As New Bitmap(a)

Dim p As Point
p.X = 7
p.Y = 7

Dim imgNueva As Image = bmp


gp = System.Drawing.Graphics.FromImage(bmp)


gp.RotateTransform(300)

gp.DrawLine(Pens.Violet, 10, 11, 50, 50)

gp.DrawImage(bmp, p)

imgNueva = bmp

gp.Save()


PictureBox2.Image = imgNueva


¿CUAL SERA EL PROBLEMA?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar