Drawing.AddInForEndOfDraw プロパティー |
宣言 Public WriteOnly Property AddInForEndOfDraw() As Object |
Public Sub Draw(ByVal KsGrid As KsGrid, ByRef Graphics As Graphics) メソッドを含んだクラスを作成し、引数Graphics に対して、描画します。
KsGridは、描画の最後に、上記Drawメソッドを実行します。
AddIn という名のクラスを作成し、 Draw メソッドの中で、円を描くコードを書きます。
Private Class AddIn
Public Sub Draw(ByVal KsGrid As KsGrid, ByRef Graphics As Graphics)
Graphics.DrawPie(Pens.Red, KsGrid.Grid.AreaRectWithOutScrollBar, 0, 360)
End Sub
End Class
Button1 のクリックイベントの中で、上記で作成した、AddIn という名のクラスを宣言し AddInForEndOfDrawにセットします。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AddinClass As New AddIn
With KsGrid1
.Drawing.AddInForEndOfDraw = AddinClass
.Draw()
End With
End Sub
Drawing.AddInForFirstOfDraw プロパティー
著作権 加茂屋株式会社 2015 ( ©Kamoya Corporation 2015) お問い合わせ