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

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

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

HIRO's.NET RSS

HIRO's.NET HOME

VB.NET 2003 HOME

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

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

05.折れ線を作成する

UPDATE:2004/06/27

<< 前のTips 次のTips >>

C#はこちら

　DrawLineメソッドを何回も実行することで折れ線を作成することが出来ますが、あらかじめ折れ線を構成するポジションを作成しておいてDrawLinesメソッドを使用すると簡単に折れ線を描画することが出来ます。

サンプル

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

    'グラフィックオブジェクトを取得する
    Dim GR As Graphics = e.Graphics
    '折れ線を構成するポジションを作成しておく
    Dim points As Point() = {New Point(10, 10), New Point(50, 50), _
        New Point(50, 20), New Point(100, 50)}
    'Color.Blue, 幅3のペンを作成する
    Dim BluePen As Pen = New Pen(Color.Blue, 3)

    '折れ線を描画する
    GR.DrawLines(BluePen, points)

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

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

<< 前のTips 次のTips >>