HIRO's.NET

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

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

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

HIRO's.NET RSSHIRO's.NET RSS

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

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

03.ペンの線スタイルを変更する

UPDATE:2004/06/27 

<< 前のTips  次のTips >>

 


　線スタイルを変更するには、DashStyleプロパティを変更します。DashStyleプロパティにはDashStyle列挙体の値をセットします。

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

    'グラフィックオブジェクトを取得する
    Dim GR As Graphics = e.Graphics

    'Color.Blue,幅3でペンを作成
    Dim Pen1 As New Pen(Color.Blue, 3)
    Dim Pen2 As New Pen(Color.Blue, 3)
    Dim Pen3 As New Pen(Color.Blue, 3)
    Dim Pen4 As New Pen(Color.Blue, 3)
    Dim Pen5 As New Pen(Color.Blue, 3)

    '各DashStyleを各ペンにセットする
    Pen1.DashStyle = Drawing2D.DashStyle.Dash
    Pen2.DashStyle = Drawing2D.DashStyle.DashDot
    Pen3.DashStyle = Drawing2D.DashStyle.DashDotDot
    Pen4.DashStyle = Drawing2D.DashStyle.Dot
    Pen5.DashStyle = Drawing2D.DashStyle.Solid

    '各ペンで線を描画する
    GR.DrawLine(Pen1, 10, 10, 110, 10)
    GR.DrawLine(Pen2, 10, 20, 110, 20)
    GR.DrawLine(Pen3, 10, 30, 110, 30)
    GR.DrawLine(Pen4, 10, 40, 110, 40)
    GR.DrawLine(Pen5, 10, 50, 110, 50)

    '各Penオブジェクトを破棄する
    Pen1.Dispose()
    Pen2.Dispose()
    Pen3.Dispose()
    Pen4.Dispose()
    Pen5.Dispose()

    'Graphicsオブジェクト破棄する
    GR.Dispose()
End Sub