S i X h E a D { ? }

วิธีการรวมร่างระหว่างรูป 2 รูป

ASPX

 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
	MergeImages(Server.MapPath("bg.jpg"), Server.MapPath("frame.gif"))
End Sub
 
Private Sub MergeImages(ByVal imgBG As String, ByVal imgFG As String)
        Try
            Dim MemStream As New System.IO.MemoryStream()
 
            Dim myGraphic As System.Drawing.Graphics = Nothing
            Dim imgB As System.Drawing.Image
            imgB = System.Drawing.Image.FromFile(imgBG)
            Dim imgF As System.Drawing.Image
            imgF = System.Drawing.Image.FromFile(imgFG)
            Dim m As System.Drawing.Image
            m = System.Drawing.Image.FromFile(imgBG)
            myGraphic = System.Drawing.Graphics.FromImage(m)
            myGraphic.DrawImageUnscaled(imgB, 0, 0)
            myGraphic.DrawImageUnscaled(imgF, 0, 0)
            myGraphic.Save()
 
            Response.ContentType = "image/png"
            'm.Save(Server.MapPath("save.png"), System.Drawing.Imaging.ImageFormat.Png)
            m.Save(MemStream, System.Drawing.Imaging.ImageFormat.Png)
            MemStream.WriteTo(Response.OutputStream)
 
        Catch ex As Exception
            Response.Write("error: " & ex.Message)
        End Try
    End Sub
 

VB.NET

 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	MergeImages("bg.jpg", "frame.gif")
End Sub
 
Private Sub MergeImages(ByVal imgBG As String, ByVal imgFG As String)
Try
    Dim myGraphic As System.Drawing.Graphics = Nothing
 
    Dim imgB As Image
    imgB = Image.FromFile(imgBG)
    Dim imgF As Image
    imgF = Image.FromFile(imgFG)
    Dim m As Image
    m = Image.FromFile(imgBG)
    myGraphic = System.Drawing.Graphics.FromImage(m)
    myGraphic.DrawImageUnscaled(imgB, 0, 0)
    myGraphic.DrawImageUnscaled(imgF, 0, 0)
    myGraphic.Save()
 
    m.Save("save.png", System.Drawing.Imaging.ImageFormat.Png)
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try
 
End Sub