Unir dos imágenes y agregar texto. Página web.
- Autor de tema DMoZ
- Fecha de inicio
CompuDoc
Bovino adicto
- Desde
- 23 Ago 2010
- Mensajes
- 941
Tome tu propuesta como un "si se puede" en ASP.NET
aqui algo que encontre por ahi en San Google
Resultado:
aqui algo que encontre por ahi en San Google
Código:
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
'lblPath.Text = Server.MapPath("/")
lblPath.Visible = False
ImageA.ImageUrl = "~/imagenA.jpg"
ImageB.ImageUrl = "~/imagenB.jpg"
imgResultado.ImageUrl = Nothing
Catch ex As Exception
Response.Write(ex.ToString)
End Try
End Sub
Código:
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
' Create a new image
Dim img As Image = New Bitmap(500, 400)
Dim g As Graphics = Graphics.FromImage(img)
' Place imagenA.jpg
g.DrawImage(Image.FromFile(Server.MapPath("/imagenA.jpg")), New Point(10, 10))
'g.DrawImage(Image.FromFile("~/imagenA.jpg"), New Point(10, 10))
' Place imagenB.jpg
g.DrawImage(Image.FromFile(Server.MapPath("/imagenB.jpg")), New Point(220, 10))
'g.DrawImage(Image.FromFile("~/imagenB.jpg"), New Point(150, 10))
Dim StringColor As Color = System.Drawing.ColorTranslator.FromHtml("#FFFF00")
g.DrawString("Aqui va tu texto", New Font("Arial", 20, FontStyle.Bold), New SolidBrush(StringColor), New Point(150, 230))
img.Save(Server.MapPath("/salida.jpg"), ImageFormat.Jpeg)
imgResultado.ImageUrl = "~/salida.jpg"
Catch ex As Exception
Response.Write(ex.ToString)
End Try
End SubResultado: