VB.NETで画像を合体、結合させる

VB.NETで複数の画像を例えば、縦200ピクセル、横300ピクセルの画像を2枚
縦に並べて結合させたい場合


Dim bmpAll As Bitmap '結合後の画像
Dim bmpTemp As Bitmap '各画像
Dim g As Graphics

'結合後の画像のサイズは各画像を縦に2枚並べたサイズ
bmpAll = New Bitmap(300, 400, Imaging.PixelFormat.Format32bppArgb)
g = Graphics.FromImage(bmpAll)
g.Clear(Color.White)

'1枚目は左上から描写
bmpTemp = New Bitmap("[1枚目の画像ファイルのパス]")
g.DrawImage( _
bmpTemp, _
0, _
0, _
CSng(bmpTemp.Width), _
CSng(bmpTemp.Height))

'2枚目は左上から200ピクセル下げた位置に描写
bmpTemp = New Bitmap("[2枚目の画像ファイルのパス]")
g.DrawImage( _
bmpTemp, _
0, _
200, _
CSng(bmpTemp.Width), _
CSng(bmpTemp.Height))

g.Dispose()
'できた画像を保存
bmpAll.Save("[結合後の画像の保存先のパス]")







posted by VB.NET+MSDE+ActiveReports at 16:14 | Comment(0) | TrackBack(0) | VB.NET
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL
http://blog.sakura.ne.jp/tb/43542100