ClientHwndクラス FillPolygonClientメソッド
オブジェクトウインドウ座標で、多角形の内部を塗りつぶします。
使用法
Dim instance As ClientHwnd
Dim br As System.Drawing.Brush '塗りつぶしの特性を決定するSystem.Drawing.Brush
Dim pts As System.Drawing.Point() '多角形の頂点を表すPoint構造体の配列
instance.FillPolygonClient(br, pts)
Dim instance As ClientHwnd
Dim br As System.Drawing.Brush '塗りつぶしの特性を決定するSystem.Drawing.Brush
Dim pts As System.Drawing.Point() '多角形の頂点を表すPoint構造体の配列
Dim fillmode As System.Drawing.Drawing2D.FillMode '塗りつぶす方法を決定するFillMode列挙体メンバ
instance.FillPolygonClient(br, pts, fillmode)
使用例
'ClientHwndクラス FillPolygonClientメソッド
Imports System.Windows.Forms
Imports System.Drawing
Public Class AddIn
Public Sub AddIn_Start()
Dim chw As ClientHwnd = New ClientHwnd()
Dim pts As Point() = New Point() { _
New Point(90, 10) _
,New Point(20, 180) _
,New Point(190, 50) _
,New Point(10, 70) _
,New Point(160, 120) _
}
chw.FillPolygonClient(Brushes.DodgerBlue, pts)
End Sub
End Class
'ClientHwndクラス FillPolygonClientメソッド
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(90, 10) _
,New Point(20, 180) _
,New Point(190, 50) _
,New Point(10, 70) _
,New Point(160, 120) _
}
chw.FillPolygonClient(Brushes.DodgerBlue, pts, FillMode.Alternate)
pts = New Point() { _
New Point(290, 10) _
,New Point(220, 180) _
,New Point(390, 50) _
,New Point(210, 70) _
,New Point(360, 120) _
}
chw.FillPolygonClient(Brushes.DodgerBlue, pts, FillMode.Winding)
End Sub
End Class