Visual Basic 中学校 > VB.NET サンプル >
グラフィックスメソッドで画像に描画する
以下のサンプルを実行するためにはフォームにピクチャーボックス(PictureBox1)を貼り付ける。
１．単純な線を描く例
・PictureBox1の座標(0, 0)から座標(500, 800)に赤い線を引く例
Dim g As Graphics = PictureBox1.CreateGraphics() g.DrawLine(Pens.Red, 0, 0, 500, 800)
２．単純な長方形を描く例
・PictureBox1の座標(50, 50)と座標(120, 100)を結ぶ線を対角線とする長方形を描画する例
Dim g As Graphics = PictureBox1.CreateGraphics() g.DrawRectangle(Pens.DarkGreen, 50, 50, 120, 100)
・上の例と同じ長方形の内部をぬりつぶして描画する例
Dim g As Graphics = PictureBox1.CreateGraphics() g.FillRectangle(Brushes.DarkGreen, 50, 50, 120, 100)
３．単純な円を描く例
・PictureBox1に長方形(50, 60)-(100, 100)に内接する赤い円を描く例
(長方形(50, 60)-(100, 100)とは点(50, 60)を左上、点(100, 100)を右下とする長方形を指す)
Dim g As Graphics = PictureBox1.CreateGraphics() g.DrawEllipse(Pens.Red, 50, 60, 100, 100)
・上の例と同じ長方形の内部をぬりつぶして描画する例
Dim g As Graphics = PictureBox1.CreateGraphics() g.FillEllipse(Brushes.Red, 50, 60, 100, 100)
・紫で塗りつぶしたように見せる例
PictureBox1.BackColor = Color.Violet
・紫で塗りつぶす例
Dim g As Graphics = PictureBox1.CreateGraphics() g.Clear(Color.Violet)
