Поместите изображения бок о бок

Question

Как объединить два изображения в VB.net, чтобы создать одно большое изображение. Они оба 1920x1080 jpegs, и я хотел бы, чтобы он вышел в формате 3840x1080.

Как это: я получаю эти изображения в: изображения 1

И получить это: изображение 1 бок о бок с изображением 2

Answer 1

Я нашел его , Код довольно прост, в основном два изображения в одном изображении.

 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()