GDI + Zeichnungen Entfernen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    GDI + Zeichnungen Entfernen

    Hallo Com,

    Da mir mehrmalig entfehlt wurde Controls mit GDI+ zu entwerfen habe ich mich mal Ran Gemacht und kann auch schon ein "Rechteck" Zeichnen. Nun möchte ich aber das wenn der user Die Weite ändert das rechteck sich erneut Zeichnet. Es werden Später auch Strings Gezeichnet. Meine Frage

    1. muss ich alles neu zeichnen oder kann ich auch das "Rechteck" Lokal Deklarieren ? Wenn nicht wie lösche ich die Zeichnung

    VB.NET-Quellcode

    1. Public Class Button
    3. Private rect As System.Drawing.Rectangle
    5. Private PanelColor_Value As Drawing.Brush
    6. Public Property Panel_Color() As Drawing.Brush
    7. Get
    8. Return PanelColor_Value
    9. End Get
    10. Set(ByVal value As Drawing.Brush)
    11. PanelColor_Value = value
    13. DrawPanel()
    14. End Set
    15. End Property
    17. Private PanelWidth As Integer
    18. Public Property Panel_Width() As Integer
    19. Get
    20. Return PanelWidth
    21. End Get
    22. Set(ByVal value As Integer)
    23. PanelWidth = value
    25. DrawPanel()
    26. End Set
    27. End Property
    31. Private Sub Button_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    32. DrawPanel()
    33. End Sub
    35. Private Sub DrawPanel()
    36. Dim height As Integer = Me.Height
    37. Dim width As Integer = Me.Panel_Width
    38. Dim PanelColor As Drawing.Brush = Me.Panel_Color
    42. Dim d As Drawing.Graphics = CreateGraphics()
    44. rect.X = 0
    45. rect.Y = 0
    46. rect.Height = height
    47. rect.Width = width
    49. d.FillRectangle(Drawing.Brushes.Green, rect)
    52. End Sub
    53. End Class

    Danke und Grüße Andy

    such mal nach einschlägigen tuts im WinForms-Tutorial-Bereich. Sollte OwnerDrawing oder GDI im Titel enthalten.

    Generell gilt:
    • nur im Paint-Event zeichnen, nur mit dem dort übermittelten Graphics-Objekt.
    • immer alles zeichnen. Das ist performancemäßig egal, denn das Graphics ist geclippt, sodass tatsächlich nur genau der notwendige Ausschnitt gezeichnet wird - alles annere wird automatisch übersprungen.
    • einen Zeichen-Vorgang ruft man nicht direkt auf, sondern man fordert das Paint-Event an, indem man Control.Invalidate(rct As RectAngle) aufruft.
      rct gibt hierbei genau den neu zu zeichnenden Bereich an. Damit wird auch ein Bereich gelöscht, denn wenn du anschließend im Paint-Event nix hinzeichnest, so ist die vorherige Zeichnung an der Stelle natürlich weg.

    Aber such nach Tutorials, oder frag nochmal, wennde nix gscheits findest.

    @Andy16823:: Das Paint-Event zeichnet seine "GUI" aus dem Gedächtnis auf ein leeres Blatt in der jeweils eingestellten Hintergrundfarbe.
    Alle Informationen, die Du in einem zeitlichen Ablauf darstellen willst, musst Du selbst so organisieren, dass sie halt so darbestellt werden.
    Beispiel: Form mit Button und Timer:

    VB.NET-Quellcode

    1. Private number As Integer = 0
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Me.Timer1.Enabled = Not Me.Timer1.Enabled
    5. End Sub
    7. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    8. number += 1
    9. If number = 8 Then
    10. number = 0
    11. End If
    12. Invalidate()
    13. End Sub
    15. Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    16. For i = 0 To number
    17. Dim y = 20 * i
    18. e.Graphics.DrawLine(Pens.Black, 0, y, Me.Width, y)
    19. Next
    20. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende