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

08.線の末端スタイルを変更する

UPDATE:2006/07/23 

<< 前のTips  次のTips >>

 


 線の末端スタイルを変更するにはPenオブジェクトのStartCapプロパティまたはEndCapプロパティを変更します。StartCapプロパティは線の開始点スタイルを、EndCapプロパティは線の終点スタイルを変更します。

LineCap列挙体

メンバ名 説明
AnchorMask ライン キャップがアンカ キャップかどうかをチェックする際に使用するマスクを指定します。
ArrowAnchor 矢印形のアンカ キャップを指定します。
Custom カスタム ライン キャップを指定します。
DiamondAnchor 菱形のアンカ キャップを指定します。
Flat 平坦なライン キャップを指定します。
NoAnchor アンカなしを指定します。
Round 丸いライン キャップを指定します。
RoundAnchor 丸いアンカ キャップを指定します。
Square 四角形のライン キャップを指定します。
SquareAnchor 四角形のアンカ ライン キャップを指定します。
Triangle 三角形のライン キャップを指定します。


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

    'グラフィックオブジェクトを取得する
    Dim g As Graphics = e.Graphics
    Dim objPen(9) As Pen

    For I As Integer = 0 To 9
        objPen(I) = New Pen(Brushes.Blue, 10)
    Next

    objPen(0).EndCap = Drawing2D.LineCap.AnchorMask
    objPen(1).EndCap = Drawing2D.LineCap.ArrowAnchor
    objPen(2).EndCap = Drawing2D.LineCap.DiamondAnchor
    objPen(3).EndCap = Drawing2D.LineCap.Flat
    objPen(4).EndCap = Drawing2D.LineCap.NoAnchor
    objPen(5).EndCap = Drawing2D.LineCap.Round
    objPen(6).EndCap = Drawing2D.LineCap.RoundAnchor
    objPen(7).EndCap = Drawing2D.LineCap.Square
    objPen(8).EndCap = Drawing2D.LineCap.SquareAnchor
    objPen(9).EndCap = Drawing2D.LineCap.Triangle

    For I As Integer = 0 To 9
        g.DrawLine(objPen(I), 10, 10 + 20 * I, 200, 10 + 20 * I)
        objPen(I).Dispose()
    Next
    'Graphicsオブジェクト破棄する
    g.Dispose()
End Sub
 

<< 前のTips  次のTips >>