Setzen Sie Bilder nebeneinander

Question

Wie kombiniere ich zwei Bilder in VB.net, um ein großes Bild zu erstellen. Sie sind beide 1920x1080 JPEG und ich möchte es in einem 3840x1080 JPEG herauskommen.

So: Ich bekomme diese Bilder in: Bild 1

Und bekommen diese aus: Bild 1 Seite an Seite mit Bild 2

Answer 1

ich es gefunden . Der Code ist ziemlich einfach, grundsätzlich zwei Bilder in einem Bild.

 Dim ImageOne As System.Drawing.Image = Image.FromFile("img1") 
    Dim ImageTwo As System.Drawing.Image = System.Drawing.Image.FromFile("img2") 
    'replace path of image two with Image2.ImageUrl 
    Dim NewImageHeight As Integer = If(ImageOne.Height > ImageTwo.Height, ImageOne.Height, ImageTwo.Height) 
    'To calculate height of new image 
    Dim NewImageWidth As Integer = ImageOne.Width + ImageTwo.Width 
    ' width of new image 



    Dim NewImageBmp As New Bitmap(NewImageWidth, NewImageHeight, Imaging.PixelFormat.Format32bppArgb) 
    ' you can change the bpp as per your requirment. Size of image directly propotionate to bpp of image 

    Dim NewImageGrx As Graphics = System.Drawing.Graphics.FromImage(NewImageBmp) 


    NewImageGrx.DrawImageUnscaled(ImageOne, 0, 0) 
    'draw first image at coordinate 0,0 
    NewImageGrx.DrawImageUnscaled(ImageTwo, ImageOne.Width, 0) 
    'draw second image at coordinate image1.width,0 
    Dim CombineImage As String = Guid.NewGuid().ToString() + ".jpg" 
    NewImageBmp.Save("output file", ImageFormat.Jpeg) 
    ' saving combined image. You can specify the ImageFormat as per your requirment. 

    'disposing objects after use 
    ImageOne.Dispose() 
    ImageTwo.Dispose() 


    NewImageBmp.Dispose() 
    NewImageGrx.Dispose()