タイトル | : Re^3: BMP画像の結合 |
記事No | : 5047 |
投稿日 | : 2007/03/04(Sun) 23:19 |
投稿者 | : 花ちゃん |
> なんせ、最近勉強を始めたばかりのものですから・・・ > 今のところ、PictureBoxにずらして貼って取り出すのは完璧な失敗でした。
ここのTips集の PictureBoxに文字を描画してファイルに保存 (画像を加工して保存・エラー回避) 等を利用すればできたかと思うのですが。
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim bmap As Bitmap = New Bitmap("c:\test.bmp") Dim picW As Long = bmap.Width Dim pich As Long = bmap.Height Dim g As Graphics With PictureBox1 .Width = picW * 3 .Height = pich .BackColor = Color.White .SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize .Image = New Bitmap(.Size.Width, .Size.Height) g = Graphics.FromImage(.Image) End With g.DrawImage(bmap, 0, 0) g.DrawImage(bmap, picW - 1, 0) g.DrawImage(bmap, picW + picW - 2, 0) bmap.Dispose() g.Dispose() PictureBox1.Image.Save("c:\test99.bmp", Imaging.ImageFormat.Bmp) End Sub
|