VB.NET, C#, PowerShell Tipsサイト

VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSS

HIRO's.NET HOME

VB.NET 2005 HOME

VB.NET 2005の開発でお困りのことはありませんか？
そんな悩みは当サイトで解決！！

HOME > VB.NET 2005 Tips > GDI+ Tips メニュー

03.様々な矩形を描画する

UPDATE:2006/07/23

<< 前のTips 次のTips >>

C#はこちら

　様々な矩形を描画するにはGraphicsオブジェクトのDraw～で始まるメソッドを使用します。

サンプル

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

    'Penオブジェクトの作成
    Dim pen1 As New Pen(Color.Blue, 2)             '青、太さ２


    g.DrawRectangle(pen1, 10, 10, 100, 100)     '長方形を描画
    g.DrawArc(pen1, 120, 10, 100, 100, 45, 270) '円弧を描画
    g.DrawPie(pen1, 230, 10, 100, 100, 45, 90)  '扇形を描画
    g.DrawEllipse(pen1, 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.DrawPolygon(pen1, pa)                     '多角形を描画


    'Penオブジェクトの解放
    pen1.Dispose()

    'Graphicsオブジェクトの解放
    g.Dispose()
End Sub

<< 前のTips 次のTips >>