Bitmapで (ID:123068)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 サンプルが悪かったようです。以下のソースで試してください。 赤色の背景に明るい色で線を引いています。その後Ｂｉｔ1に 取り込んでいます。背景を青色にし、取り込んだＢｉｔ1を PictureBox1.Image に再設定します。すると期待の赤色の背景に 明るい線ではなく、青い背景に明るい線で表示されます。 Dim lightPen As New Pen(Color.LightGray, 1) Dim bit1 As Bitmap, bit2 As Bitmap bit1 = New Bitmap(PictureBox1.Width, PictureBox1.Height) bit2 = New Bitmap(PictureBox1.Width, PictureBox1.Height) PictureBox1.Image = bit1 Dim g = Graphics.FromImage(PictureBox1.Image) PictureBox1.BackColor = Color.Red g.DrawLine(lightPen, 0, 0, 100, 100) bit1 = PictureBox1.Image PictureBox1.BackColor = Color.Blue PictureBox1.Image = bit1 マグ様の先のコードでは PictureBox1.BackColor = Color.Red 途中略 bit2 = CType(PictureBox1.Image, Bitmap) 赤色が入りそうな気がするでしょうが、bit2には何も入りません。 g.Clear(Color.White)これは当然Imageに描画しているので線が消えます。 赤の背景にしたければ Dim drawBrush As New SolidBrush(Color.Red) g.FillRectangle(drawBrush,0,0,PictureBox1.Width, PictureBox1.Height) で塗りつぶしてください。