Ayuda con edicion de imagenes en VB.net

[jess_glez]

Hola que tal...

Hice un programita que toma imagenes desde una webcam y las guardo en una base de datos, pero ahora me pidieron el que a esa imagen le montara texto, como tal ya lo hago en un Picture Box usando el metodo pait y la instrucción draw string, pero al momento de guardarla solo guardo la imagen no se guarda el texto que le puse en el metodo paint, tambien ya intente hacer la prueba guardandolo en un archivo jpg pero es el mismo resultado.

Alguien de ustedes tiene una sugerencia?

Tambien otro problema con el que me tope es que la camara es de 10 mpx y quieren que las fotos se tomen con esa reslucion pero hasta la fecha no eh podido, se ven como vga o 1 mpx maximo.

De antemano gracias a todos

[jess_glez]

Hola que tal de nuevo, ya pude hacer lo de las imagenes, este es el codigo que use para la marte de ponerle texto sobre la imagen y guardarlo..

Código [Seleccionar] Expandir

Dim nWidth, nHeight As Integer
        nHeight = 200
        nWidth = 200
        img = New Bitmap("Dibujo1.bmp")
        red = New Pen(Color.Red, 8)
        bm = New Bitmap(img, nWidth, nHeight)
        lienzo = Graphics.FromImage(bm)
        lienzo.DrawRectangle(red, 0, 0, nWidth, nHeight)
        lienzo.DrawString("HOLA", drawFont, Brushes.White, 50, 50)
        PB.Image = bm '//show the bitmap in a picture box control
        bm.Save("C:/temp/test.jpg")

Ahora solo me faltaria el mantener la resolucion de mi imagen si es que alguien me puede ayudar.

Gracias

[jess_glez]

Hola de nuevo a todos, no se si hayan leido este mensaje, pero de ser asi.. ahora me estan solicitando otra cosa.. que recorte algunas partes de la foto tomada, alguna sugerencia?

[jess_glez]

Nuevamente pongo mi codigo con el que pude recortar la imagen

Código [Seleccionar] Expandir

Dim bmpdest As Bitmap
        Dim lienzo As Graphics
        Dim x, y As Integer
        Dim rect, rect1 As Rectangle
        bmpdest = PictureBox1.Image
        lienzo = Graphics.FromImage(bmpdest)
        x = bmpdest.Width
        y = bmpdest.Height
        rect = New Rectangle(0, 0, x, y)
        rect1 = New Rectangle(0, 370, 3500, 1800)

        lienzo.DrawImage(PictureBox1.Image, rect, rect1, GraphicsUnit.Pixel)
        PictureBox2.Image = bmpdest

Espero a alguien le sirva