2016-06-24 11 views
-1

VB.netで2つの画像を組み合わせて1つの大きな画像を作成するにはどうすればいいですか?彼らは1920x1080 jpegであり、3840x1080 jpegで出てきたいと思います。このよう画像を並べて並べる

:私はこれらのイメージで取得:私はそれを見つけた2

enter image description here

+2

困ったときに質問を投稿してください。 – Plutonix

+1

'GDI +'と 'DrawImage'メソッドが動作します。 2つの 'Rectangle 'が必要です.' DrawImage'メソッドは矩形パラメータをとります。四角形を左右に作成し、画像をペイントします。 – OneFineDay

答えて

1

画像と並べて画像1辺: 画像1

enter image description here

そして、このアウトを取得します。コードはかなり簡単ですが、基本的には1つのイメージに2つのイメージがあります。

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

_ "コードはかなり簡単です" _それで、あなたは何かを試してみました**?いくつかの調査を行います(マニュアルを読む、Googleでチュートリアルをチェックするなど)?それだけです。あなたは実用的なソリューションを持っていますか?そして、ここでは自分でコードを書くのが面倒だと思っていました...あなた自身の質問に答える努力をupvoteしますが、私の近い投票はまだ立っています... –

関連する問題