:: Gefülltes Rechteck in Vb.net Zeichnen

Heute zeig ich euch wie ihr ein Gefülltes Rechteck in Vb.net Zeichnen könnt.

Was ihr braucht:

- Picturebox

- 1 Win Forms

Deklarationen:
Dim g As Graphics
    Dim startpt As Point

starpt ist dann wo das Rechteck sein soll und g ist die Graphics

in den Form1 Paint event

Dim Rechteck As New Rectangle(startpt.X, startpt.Y, 50, 50)
        g.DrawRectangle(Pens.Black, Rechteck)
        g.FillRectangle(Brushes.Blue, Rechteck)

So haben wir ein neues Rechteck mit den Größen 50 x 50 angelegt es ist dort wo startpt ist.

Jetzt müssen wir nur noch die graphics erstellen und startpt einen wert zuweisen.

Graphics erstellen (Form1 Load)

Me.BackgroundImage = New Bitmap(Me.Width, Me.Height)
        g = Graphics.FromImage(Me.BackgroundImage)
        g.Clear(Me.BackColor)

Das Backgroundimage ist jetzt ein neues mit den Größen der Form Graphics wurde erstellt mit der Backcolor der Form.

Jetzt nur noch startpt einen wert zuweisen (Form1 Mousedown):
startpt = e.Location
        Me.Invalidate()

Jetzt sollte euer kompletter code so aussehen:

Public Class Form1
    Dim g As Graphics
    Dim startpt As Point

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackgroundImage = New Bitmap(Me.Width, Me.Height)
        g = Graphics.FromImage(Me.BackgroundImage)
        g.Clear(Me.BackColor)
    End Sub

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        startpt = e.Location
        Me.Invalidate()
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim Rechteck As New Rectangle(startpt.X, startpt.Y, 50, 50)
        g.DrawRectangle(Pens.Black, Rechteck)
        g.FillRectangle(Brushes.Blue, Rechteck)
    End Sub
End Class

Startet nun dass Debugging und klickt auf die Form und ihr werdet sehen dass ihr Rechtecke mit einen Schwarzen Rand und mit einer Blauen Füllung habt. 

Mfg

Blackman

Falls ihr noch fragen habt schickt mir eine PN und schreibt ein kommentar.

» Kommentare

Es wurden noch keine Kommentare verfasst.

» Kommentar schreiben

Um ein Kommentar schreiben zu können, müssen Sie eingeloggt sein.