フォームに線を引く＠VB.Net
フォームに以下の様な矢印線を引きます。
フォームのPaintイベントをHandleします。
e.GraphicsにてGraphicsオブジェクトを取得します。
Penを生成し、色、幅、始点、終点を設定します。
DrawLineにて、生成したPenを元に線を引きます。
引数には、Penのオブジェクトと位置を指定します。
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
'Graphicsオブジェクト取得
Dim graph As Graphics = e.Graphics
'Pen生成
Dim pen As Pen = New Pen(Color.LightBlue, 20)
'始点と終点の設定
pen.StartCap = Drawing2D.LineCap.Flat
pen.EndCap = Drawing2D.LineCap.ArrowAnchor
'線を引く
graph.DrawLine(pen, 50, 50, 200, 50)
End Sub
End Class
|
