ヘッダー

VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応

 

Visual Basic 中学校 > VB.NET サンプル >

グラフィックスメソッドで画像に描画する

以下のサンプルを実行するためにはフォームにピクチャーボックス(PictureBox1)を貼り付ける。

 

1.単純な線を描く例

・PictureBox1の座標(0, 0)から座標(500, 800)に赤い線を引く例

VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応

Dim g As Graphics = PictureBox1.CreateGraphics()

g.DrawLine(Pens.Red, 0, 0, 500, 800)

 

2.単純な長方形を描く例

・PictureBox1の座標(50, 50)と座標(120, 100)を結ぶ線を対角線とする長方形を描画する例

VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応

Dim g As Graphics = PictureBox1.CreateGraphics()

g.DrawRectangle(Pens.DarkGreen, 50, 50, 120, 100)

 

・上の例と同じ長方形の内部をぬりつぶして描画する例   

VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応

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)を右下とする長方形を指す)

VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応

Dim g As Graphics = PictureBox1.CreateGraphics()

g.DrawEllipse(Pens.Red, 50, 60, 100, 100)

 

・上の例と同じ長方形の内部をぬりつぶして描画する例

VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応

Dim g As Graphics = PictureBox1.CreateGraphics()

g.FillEllipse(Brushes.Red, 50, 60, 100, 100)

 

4.背景を単純に塗りつぶす例

・紫で塗りつぶしたように見せる例

VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応


PictureBox1.BackColor = Color.Violet
 

 

・紫で塗りつぶす例

VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応

Dim g As Graphics = PictureBox1.CreateGraphics()

g.Clear(Color.Violet)


VB6対応 →グラフィックスメソッドで画像に描画する参照