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 メニュー

04.カスタムペンを作成する

UPDATE:2004/06/27 

<< 前のTips  次のTips >>

 


　DashPatternプロパティを使用すると、独自のカスタムペンを作成することが出来ます。DashPatternには{線の長さ,空白の長さ,線の長さ,空白の長さ, ...}のように指定することで独自の点線を作成することが出来ます。サンプルではDashPatternに{6.0f, 2.0f, 3.0f, 2.0f}としていますが、これは{線の長さ=6.0f, 空白の長さ=2.0f, 線の長さ3.0f, 空白の長さ2.0f}を意味しており、描画の終点に到達するまでこのパターンで描画されます。

　
サンプル
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 CustomPen As Pen = New Pen(Color.Blue, 3)
    '線6, 空白2, 線6, 空白2のパターンを作成
    Dim Pattern() As Single = {6.0F, 2.0F, 3.0F, 2.0F}
    'CustomPenに作成したパターンをセットする
    CustomPen.DashPattern = Pattern
    '作成したCustomPenで線を描画する
    GR.DrawLine(CustomPen, 10, 30, 210, 30)

    'CustomPenを破棄する
    CustomPen.Dispose()

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