Forums Últimos mensajes - Powered by IBM
 

Problemas al escribir en una imagen

17/10/2005 - 20:44 por Gregorio Fernandez | Informe spam
Utilizo el siguiente codigo para escribir texto en una imagen que incluyo en
un PictureBox. Funciona para imagenes escaneadas directamente en mi escaner
(formato .jpg), sin embargo no funciona para imagenes bajadas de internet
tambien con extension .jpg
¿Podéis ayudarme?. gracias

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click


Dim img As Image

Dim ruta_programa As String = "G:\programa clave"

img = Image.FromFile(ruta_programa & "\imagenes_clave\" &
Trim(Me.TextBox1.Text) & ".jpg")

Me.PictureBox1.Image = img

Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

Dim grap As System.Drawing.Graphics

grap = Graphics.FromImage(img)

Dim fon As New System.Drawing.Font("Arial", 6, FontStyle.Bold)

Dim broc As New System.Drawing.SolidBrush(System.Drawing.Color.Yellow)

grap.DrawString(Me.TextBox1.Text, fon, broc, 1, 1)

End Sub
 

Leer las respuestas

#1 Jesús López
17/10/2005 - 21:26 | Informe spam
Se me ocurre que por el hecho de que escribas en la imagen del pictureBox,
éste no va a mostrar esos cambios inmediatamente sino que no lo hará hasta
que no se tenga que pintar otra vez. Puedes forzar que se repinte llamando
al método Invalidate. Prueba a incluir:

Me.PictureBox1.Invalidate después del DrawString


"Gregorio Fernandez" escribió en el mensaje
news:

Utilizo el siguiente codigo para escribir texto en una imagen que incluyo
en
un PictureBox. Funciona para imagenes escaneadas directamente en mi
escaner
(formato .jpg), sin embargo no funciona para imagenes bajadas de internet
tambien con extension .jpg
¿Podéis ayudarme?. gracias

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click


Dim img As Image

Dim ruta_programa As String = "G:\programa clave"

img = Image.FromFile(ruta_programa & "\imagenes_clave\" &
Trim(Me.TextBox1.Text) & ".jpg")

Me.PictureBox1.Image = img

Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

Dim grap As System.Drawing.Graphics

grap = Graphics.FromImage(img)

Dim fon As New System.Drawing.Font("Arial", 6, FontStyle.Bold)

Dim broc As New System.Drawing.SolidBrush(System.Drawing.Color.Yellow)

grap.DrawString(Me.TextBox1.Text, fon, broc, 1, 1)

End Sub



Preguntas similares