Visual Basic.NET - PictureBox (por favor URGENTE)

 
Vista:

PictureBox (por favor URGENTE)

Publicado por Favio (33 intervenciones) el 25/09/2005 20:49:26
Mi problema es el siguiente: tengo un picturebox (con una imagen que cargo desde un archivo), que voy cambiando (incorporándole labels) y una lineas que marco en el mismo picturebox.creategraphics.draw(). El problema es que cuando quiero grabar lo que tengo en el PictureBox, me graba solamente la imagen, dejandome sin modificar la imagen con líneas y labels. Por favor, quièn puede ayudarme. Es URGENTE !!!! Se aceptan sugerencias en mi correo. Gracias !
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:PictureBox (por favor URGENTE)

Publicado por Favio (33 intervenciones) el 27/09/2005 00:05:03
Gracias. Ya lo resolví !!!!
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:PictureBox (por favor URGENTE)

Publicado por Sigifredo (25 intervenciones) el 28/09/2005 00:12:52
te envio el codigo, en este ejemplo modifico el brillo y contraste de la imagen, le agrego texto y guardo la imagen modificada. espero te sea de utilidad

Public Sub SetGammaExample(ByVal e As PaintEventArgs)
Dim myImage As Image = PictureBox1.Image
Dim imageAttr As New System.Drawing.Imaging.ImageAttributes
imageAttr.SetGamma(valo)
Dim fuente As New Font("Arial", 10)
Dim drawBrush As New SolidBrush(Color.Blue)
Dim g As Graphics
Dim rect2 As New Rectangle(0, 0, ANCHO2, ALTO2)
g = Graphics.FromImage(myImage)
g.DrawImage(myImage, rect2, 0, 0, ANCHO2, ALTO2, GraphicsUnit.Pixel, imageAttr)
g.DrawString("Edison", fuente, drawBrush, 0, 0)
PictureBox1.Image.Save("c:\sigi.jpg")
End Sub

Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
SetGammaExample(e)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler PictureBox1.Paint, AddressOf Me.pictureBox1_Paint
ancho = PictureBox1.Width
alto = PictureBox1.Height
ANCHO2 = PictureBox2.Width
ALTO2 = PictureBox2.Height
valo = 1
End Sub

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
valo = TrackBar1.Value / 100
PictureBox1.Refresh()
Label1.Text = valo
Label1.Refresh()
End Sub
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:PictureBox (por favor URGENTE)

Publicado por lukas (1 intervención) el 12/04/2012 00:47:22
man un ejemplo mas sencillo no se por que tanto lio si solo tienen que decirme la propiedad que cambia el brillo a la pic
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