VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。
基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。
様々な塗りつぶした矩形を描画するにはGraphicsオブジェクトのFill~で始まるメソッドを使用します。
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) _ Handles Me.Paint 'Graphicsオブジェクトを作成します Dim g As Graphics = e.Graphics 'Brushオブジェクトの作成 Dim brush1 As New SolidBrush(Color.Blue) g.FillRectangle(brush1, 10, 10, 100, 100) '長方形を描画 g.FillPie(brush1, 120, 10, 100, 100, 45, 90) '扇形を描画 g.FillEllipse(brush1, 10, 120, 100, 50) '楕円を描画 Dim pa() As Point = {New Point(120, 120), _ New Point(170, 170), _ New Point(170, 220), _ New Point(150, 200)} '多角形描画用の座標を作成 g.FillPolygon(brush1, pa) '多角形を描画 'Brushオブジェクトの解放 brush1.Dispose() 'Graphicsオブジェクトの解放 g.Dispose() End Sub