HIRO's.NET

VB.NET, C#, PowerShell Tipsサイト

 VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

 基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSSHIRO's.NET RSS

VB.NET 2005の開発でお困りのことはありませんか？
そんな悩みは当サイトで解決！！

HOME > VB.NET 2005 Tips > GDI+ Tips メニュー

02.ペンを作成して、線を描画する

UPDATE:2006/07/23 

<< 前のTips  次のTips >>

 


　ペンを作成して線を描画するには、Penクラスでペンオブジェクトを作成し、DrawLineメソッドで線を描画します。Penクラスのコンストラクタは第２引数を指定した場合は線の太さは1となります。


　

　
サンプル
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) _
    Handles Me.Paint

    'Graphicsオブジェクトを作成します
    Dim g As Graphics = e.Graphics

    'Penオブジェクトの作成
    Dim pen1 As New Pen(Color.Black)    '黒、太さ１
    Dim pen2 As New Pen(Color.Blue, 3)  '青、太さ３
    Dim pen3 As New Pen(Color.Red, 5)   '赤、太さ５

    '作成したPenオブジェクトで線を描画
    g.DrawLine(pen1, 10, 10, 200, 10)
    g.DrawLine(pen2, 10, 30, 200, 30)
    g.DrawLine(pen3, 10, 50, 200, 50)

    'Penオブジェクトの解放
    pen1.Dispose()
    pen2.Dispose()
    pen3.Dispose()

    'Graphicsオブジェクトの解放
    g.Dispose()
End Sub