VB.netで2つの画像を組み合わせて1つの大きな画像を作成するにはどうすればいいですか?彼らは1920x1080 jpegであり、3840x1080 jpegで出てきたいと思います。このよう画像を並べて並べる
:私はこれらのイメージで取得:私はそれを見つけた2
VB.netで2つの画像を組み合わせて1つの大きな画像を作成するにはどうすればいいですか?彼らは1920x1080 jpegであり、3840x1080 jpegで出てきたいと思います。このよう画像を並べて並べる
:私はこれらのイメージで取得:私はそれを見つけた2
画像と並べて画像1辺: 画像1
そして、このアウトを取得します。コードはかなり簡単ですが、基本的には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()
_ "コードはかなり簡単です" _それで、あなたは何かを試してみました**?いくつかの調査を行います(マニュアルを読む、Googleでチュートリアルをチェックするなど)?それだけです。あなたは実用的なソリューションを持っていますか?そして、ここでは自分でコードを書くのが面倒だと思っていました...あなた自身の質問に答える努力をupvoteしますが、私の近い投票はまだ立っています... –
困ったときに質問を投稿してください。 – Plutonix
'GDI +'と 'DrawImage'メソッドが動作します。 2つの 'Rectangle 'が必要です.' DrawImage'メソッドは矩形パラメータをとります。四角形を左右に作成し、画像をペイントします。 – OneFineDay