ClientHwndクラス FillRectanglesClientメソッド
オブジェクトウインドウ座標で、一連の四角形の内部を塗りつぶします。
使用法
Dim instance As ClientHwnd
Dim br As System.Drawing.Brush '塗りつぶしの特性を決定するSystem.Drawing.Brush
Dim rects As System.Drawing.Rectangle() '塗りつぶす四角形を表すRectangle構造体の配列
instance.FillRectanglesClient(pen, rects)
使用例
'ClientHwndクラス FillRectanglesClientメソッド
Imports System.Windows.Forms
Imports System.Drawing
Public Class AddIn
Public Sub AddIn_Start()
Dim chw As ClientHwnd = New ClientHwnd()
Dim rects As Rectangle() = New Rectangle() { _
New Rectangle(10, 10, 100, 50) _
,New Rectangle(40, 50, 100, 50) _
,New Rectangle(70, 90, 100, 50) _
,New Rectangle(100, 130, 100, 50) _
,New Rectangle(130, 170, 100, 50) _
}
chw.FillRectanglesClient(Brushes.PaleVioletRed, rects)
End Sub
End Class