0

Visual Basicで作成された一連の図形があり、色を付ける必要があります。

Public Class Form1

Private Sub btnDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDraw.Click
    Dim formSurface As Graphics = Me.CreateGraphics 'creates surface

    Dim world As New Pen(Color.Black, 3)
    formSurface.DrawRectangle(world, 250, 50, 300, 300) 'world


    Dim roof As New Pen(Color.Black, 3)
    Dim roof1 As New Point(325, 200)
    Dim roof2 As New Point(475, 200)
    Dim roof3 As New Point(400, 100)
    Dim roof4 As New Point(400, 100)
    Dim curvePoints As Point() = {roof1, roof2, roof3, roof4}
    formSurface.DrawPolygon(roof, curvePoints) 'triangle roof

    Dim body As New Pen(Color.Black, 3)
    formSurface.DrawRectangle(body, 325, 200, 150, 150) 'square body

    Dim sun As New Pen(Color.Black, 3)
    formSurface.DrawEllipse(sun, 450, 75, 50, 50) 'sun

    Dim door As New Pen(Color.Black, 3)
    formSurface.DrawRectangle(door, 387, 300, 25, 50) 'door

End Sub

エンドクラス

すべてが完璧に機能します。シェイプはすべて、希望する場所に生成されます。（家を描いてみました）でも、どうやって色を塗るの？また、そうすると、色が重なるのでしょうか（それを実現したいのですが）？

私はのようないくつかの機能を使用する必要がありますimage.fillか？私はそれが正しくないことを知っていますが、私はそのようなものを探しています。

ありがとう！

4

1 に答える 1

1

formSurface.FillPolygon、FillRectangle、およびFillEllipseコマンドを使用します。描画コマンドを使用して、塗りつぶしとは異なる色のアウトラインを作成することもできます。

「塗りつぶし」コマンドには、ペンではなくブラシが必要です。（ペンは線を引き、ブラシはスペースを埋めます。）最も使いやすいタイプのブラシは「Brushes.AliceBlue」のようなものです。

于 2012-07-23T22:19:26.427 に答える