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