RE:PictureBox (por favor URGENTE)
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