ClientHwndクラス DrawRectanglesClientメソッド
オブジェクトウインドウ座標で、一連の四角形を描画します
使用法
Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen '線の色、幅、およびスタイルを決定する
Dim rects As System.Drawing.Rectangle() '描画する四角形を表すRectangle構造体の配列
instance.DrawRectanglesClient(pen, rects)
使用例
'ClientHwndクラス DrawRectanglesClientメソッド
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.MediumBlue
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.DrawRectanglesClient(pen, rects)
End Sub
End Class