VB2008グラフィック：フォームとピクチャーボックスに直線を引く（CreateGraphics、DrawLine）

DrawLineの実行例サンプルです

グラフィック関連へ


■実行画面
Button1をクリックすると、フォーム（Form1）に線を描きます。
Button2をクリックすると、ピクチャーボックス（PictureBox1）に線を描きます。
直線を引くフォーム

■実行コード

Public Class Form1

'フォームに直線を描く
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Graphicsクラスのインスタンスを作成
Dim g As Graphics = Me.CreateGraphics()

'赤色の直線を引く
g.DrawLine(Pens.Red, 50, 0, 100, 100)
'Graphics によって使用されているすべてのリソースを解放
g.Dispose()
End Sub


'ピクチャーボックスに直線を引く
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Graphicsクラスのインスタンスを作成
Dim g As Graphics = PictureBox1.CreateGraphics()

'青色の直線を引く
g.DrawLine(Pens.Blue, 50, 0, 100, 100)
'Graphics によって使用されているすべてのリソースを解放
g.Dispose()
End Sub

End Class

Visual Basic 2008 Express Edition実践入門