§17 グラフィックス(1)2 プログラミング実習
 back next 

【4】 四角形とだ円の描画

 グラフィックスクラスを使って、ピクチャボックスに四角形とだ円を描画する。

○ 四角形

操作 10 ボタンを1つ追加し、プロパティを次のように設定する。ダブルクリックで配置する。

(Name) Button2 Location 215, 41
Text 四角形    

操作 11 [四角形](Button2)ボタンのクリックイベントに対応するメソッドを次のように作成する。

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim gr As Graphics = PictureBox1.CreateGraphics    'ピクチャボックス用
        Dim gpen As New Pen(Color.Green, 3)    'ペンオブジェクト
        '四角形
        gr.DrawRectangle(gpen, 50, 50, 100, 100)
        gr.Dispose()    'オブジェクト解放
        gpen.Dispose()
    End Sub

 gr.DrawRectangleメソッドでピクチャボックスの中に四角形を描画している。
DrawRectangle(ペン, 始点x, 始点y, , 高さ)
 ペン オブジェクトを使って、四角形を描画する。
結果 実行して、[四角形]ボタンをクリックすると四角形が描画される。

○ だ円

操作 12 ボタンを1つ追加し、プロパティを次のように設定する。ダブルクリックで配置する。

(Name) Button3 Location 215, 70
Text だ円    

操作 13 [だ円](Button3)ボタンのクリックイベントに対応するメソッドを次のように作成する。

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim gr As Graphics = PictureBox1.CreateGraphics    'ピクチャボックス用
        Dim gpen As New Pen(Color.Pink, 3)    'ペンオブジェクト
        'だ円
        gr.DrawEllipse(gpen, 50, 50, 100, 100)
        gr.Dispose()    'オブジェクト解放
        gpen.Dispose()
    End Sub

 gr.DrawEllipseメソッドでピクチャボックスの中に円を描画している。
DrawEllipse(ペン, 始点x, 始点y, , 高さ)
 ペン オブジェクトを使って、だ円を描画する。
 始点x, 始点y, , 高さ で囲まれた四角形の中に収まるだ円が描画される。
結果 実行して、[だ円]ボタンをクリックすると円が描画される。

○ 塗りつぶしの四角形とだ円

FillRectangle(, 始点x, 始点y, , 高さ)
例 gr.FillRectangle(Brushes.Green, 50, 50, 100, 100)
FillEllipse(, 始点x, 始点y, , 高さ)
例 gr.FillEllipse(Brushes.Pink, 50, 50, 100, 100)

 

【5】 文字列の描画

 グラフィックスクラスを使って、ピクチャボックスに文字列を描画する。

操作 14 ボタンを1つ追加し、プロパティを次のように設定する。ダブルクリックで配置する。

(Name) Button4 Location 215, 99
Text 文字    

操作 15 [文字](Button4)ボタンのクリックイベントに対応するメソッドを次のように作成する。

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim gr As Graphics = PictureBox1.CreateGraphics    'ピクチャボックス用
        Dim gfont As New Font("MSゴシック", 12, FontStyle.Bold Or FontStyle.Italic)    'フォントオブジェクト
        '文字
        gr.DrawString("プログラミング実習", gfont, Brushes.Blue, 10, 10)
        gr.Dispose()    'オブジェクト解放
        gfont.Dispose()
    End Sub

 gr.DrawStringメソッドでピクチャボックスの中に文字を描画している。
 フォントオブジェクトgfontにフォント名、サイズやスタイルを設定している。スタイルは、FontStyle列挙体で指定する。複数のスタイルを指定する場合は、"Or"演算子で演算をする。
FontStyle 列挙体
Regular  標準テキスト Underline  下線付きテキスト
Bold  太字テキスト Strikeout  中央に線が引かれているテキスト
Italic  斜体テキスト    
DrawString(文字列, , 始点x, 始点y)
 文字列 をフォント オブジェクトで描画する。
結果 実行して、[文字]ボタンをクリックすると文字「プログラミング実習」が太字・斜体で描画される。

 

 back next 
 §17 グラフィックス(1)2 Copyright©2009 Hiroshi Masuda 

 

 

inserted by FC2 system