ClientHwndクラス DrawPathClientメソッド
オブジェクトウインドウ座標で、System.Drawing.Drawing2D.GraphicsPathオブジェクトを描画します。
使用法
Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen '線の色、幅、およびスタイルを決定する
Dim path As System.Drawing.Drawing2D.GraphicsPath '描画するGraphicsPathオブジェクト
instance.DrawPathClient(pen, path)
使用例
'ClientHwndクラス DrawPathClientメソッド
Imports System.Windows.Forms
Imports System.Drawing
Public Class AddIn
Public Sub AddIn_Start()
Dim chw As ClientHwnd = New ClientHwnd()
Dim pen As Pen = Pens.DodgerBlue
'GraphicsPathオブジェクトの作成
Dim path As New Drawing2D.GraphicsPath
'新しい図形を開始する
path.StartFigure()
'直線を2本追加する
path.AddLine(0, 0, 50, 50)
path.AddLine(100, 0, 150, 50)
'図形を閉じる
path.CloseFigure()
'新しい図形を開始する
path.StartFigure()
'直線を2本追加する
path.AddLine(0, 60, 50, 110)
path.AddLine(100, 60, 150, 110)
'新しい図形を開始する
path.StartFigure()
'直線を追加する
path.AddLine(100, 120, 150, 170)
'新しい図形を開始する
path.StartFigure()
'直線を追加する
path.AddLine(0, 120, 50, 170)
'四角を2つ追加する
path.AddRectangle(New Rectangle(160, 10, 60, 80))
path.AddRectangle(New Rectangle(160, 100, 60, 60))
chw.DrawPathClient(pen, path)
End Sub
End Class