ClientHwndクラス FillClosedCurveClientメソッド
オブジェクトウインドウ座標で、Point構造体の配列で定義された、閉じたカーディナル スプライン曲線の内部を塗りつぶします。
使用法
Dim instance As ClientHwnd
Dim brush As System.Drawing.Brush '線の色、幅、およびスタイルを決定する
Dim pts As System.Drawing.Point() 'スプラインを定義するPoint構造体の配列
'Overloads
instance.FillClosedCurveClient(brush, pts)
Dim instance As ClientHwnd
Dim brush As System.Drawing.Brush '線の色、幅、およびスタイルを決定する
Dim pts As System.Drawing.Point() 'スプラインを定義するPoint構造体の配列
Dim fillmode As System.Drawing.Drawing2D.FillMode '塗りつぶす方法を決定するFillMode列挙体メンバ
'Overloads
instance.FillClosedCurveClient(brush, pts, fillmode)
Dim instance As ClientHwnd
Dim brush As System.Drawing.Brush '線の色、幅、およびスタイルを決定する
Dim pts As System.Drawing.Point() 'スプラインを定義するPoint構造体の配列
Dim fillmode As System.Drawing.Drawing2D.FillMode '塗りつぶす方法を決定するFillMode列挙体メンバ
Dim tension As Single '曲線のテンションを指定する0.0F以上の値
'Overloads
instance.FillClosedCurveClient(brush, pts, fillmode, tension)
使用例
'ClientHwndクラス FillClosedCurveClientメソッド
Imports System.Windows.Forms
Imports System.Drawing
Public Class AddIn
Public Sub AddIn_Start()
Dim chw As ClientHwnd = New ClientHwnd()
Dim br As Brush = Brushes.Green
Dim pts As point() = New Point() { _
New Point(50, 30) _
,New Point(90, 200) _
,New Point(250, 10) _
,New Point(300, 80) _
,New Point(400, 10) _
,New Point(450, 200) _
,New Point(120, 300) _
,New Point(300, 50) _
,New Point(60, 80) _
}
chw.FillClosedCurveClient(br, pts)
End Sub
End Class
'ClientHwndクラス FillClosedCurveClientメソッド
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class AddIn
Public Sub AddIn_Start()
Dim chw As ClientHwnd = New ClientHwnd()
Dim pts As point() = New Point() { _
New Point(50, 30) _
,New Point(90, 200) _
,New Point(250, 10) _
,New Point(300, 80) _
,New Point(400, 10) _
,New Point(450, 100) _
,New Point(20, 200) _
,New Point(300, 50) _
,New Point(60, 80) _
}
chw.FillClosedCurveClient(Brushes.Green, pts, FillMode.Alternate)
pts = New Point() { _
New Point(50, 230) _
,New Point(90, 400) _
,New Point(250, 210) _
,New Point(300, 280) _
,New Point(400, 210) _
,New Point(450, 300) _
,New Point(20, 400) _
,New Point(300, 250) _
,New Point(60, 280) _
}
chw.FillClosedCurveClient(Brushes.Green, pts, FillMode.Winding)
End Sub
End Class
'ClientHwndクラス FillClosedCurveClientメソッド
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class AddIn
Public Sub AddIn_Start()
Dim chw As ClientHwnd = New ClientHwnd()
Dim pts As point() = New Point() { _
New Point(50, 30) _
,New Point(90, 200) _
,New Point(250, 10) _
,New Point(300, 80) _
,New Point(400, 10) _
,New Point(450, 100) _
,New Point(20, 200) _
,New Point(300, 50) _
,New Point(60, 80) _
}
chw.FillClosedCurveClient(Brushes.Green, pts, FillMode.Alternate)
pts = New Point() { _
New Point(50, 230) _
,New Point(90, 400) _
,New Point(250, 210) _
,New Point(300, 280) _
,New Point(400, 210) _
,New Point(450, 300) _
,New Point(20, 400) _
,New Point(300, 250) _
,New Point(60, 280) _
}
chw.FillClosedCurveClient(Brushes.Green, pts, FillMode.Alternate,0.9F)
End Sub
End Class