Graphics.clear() blinken verhindern

Vb K1ng · 25. September 2010, 12:24

Hallo liebe Forum-User,
Wenn ich die Methode Graphics, g.clear(backColor) aufrufe, und eine Animation erstelle, blinkt es immer fürchterlich.
Gibt es eine Möglichkeiten, es zu umgehen?

lg,
VB K1ng

kevin89 · 25. September 2010, 12:28

BufferedGraphics verwenden.

EiPott · 25. September 2010, 12:55

Auf eine seperate Bitmap zeichnen und diese setzten. DoubleBuffered = True nicht vergessen.

Vb K1ng · 25. September 2010, 14:04

Hat jemand vielleicht einen Besipielcode?

kevin89 · 25. September 2010, 14:11

Vergiss das mit der Bitmap mal, ist extrem speicherlastig und unperformant. Nein, aber die gibt's im Internet. Einfach mal "BufferedGraphics" googeln oder sich das hier ansehen....

Vb K1ng · 25. September 2010, 15:21

Danke Kevin,
Ich habe das jetzt ein wenig verstanden.
Mein bisheriger Code:

VB.NET-Quellcode

Public Class Form1
Private bgcContext As BufferedGraphicsContext
Dim clearColor As Color = Color.Black
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
render(Me.CreateGraphics())
End Sub
Private Sub render(ByVal bg As Graphics)
Dim b As BufferedGraphics = bgcContext.Allocate(bg, Rectangle.Round(bg.ClipBounds))
Draw(b)
b.Render()
b.Dispose()
End Sub
Private Sub Draw(ByVal bufferedSurface As BufferedGraphics)
With bufferedSurface.Graphics
.Clear(clearColor)
.FillEllipse(Brushes.Blue, 50, 50, 50, 50)
End With
End Sub
End Class

Jedoch tretet ein Fehler auf: Ausname NullReferenzException.
Hat jemand ne Idee?

Turtle10 · 25. September 2010, 18:36

Wie es aussieht, hast du bgcContext nicht instanziert...

EiPott · 25. September 2010, 18:38

Vieleicht ... As New BufferedGraphicsContext?

Vb K1ng · 25. September 2010, 18:47

Ok aber es kommt dann folgende Fehlermeldung:
System.ComponentModel.Win32Exception.

Hat jemand ne Idee oder kann mir ein Beispielcode posten?

Turtle10 · 26. September 2010, 00:03

Hi,

verwende mal

VB.NET-Quellcode

Me.ClientRectangle

anstatt von

VB.NET-Quellcode

Rectangle.Round(bg.ClipBounds)

Und das Rendern musst du nach dem Form-Load-Ereignis ausführen, z.B. im Form-Shown-Ereignis, oder - noch besser - im Paint-Ereignis (das für so etwas eigentlich gedacht ist). Damit musst du auch nicht über Me.CreateGraphics() gehen, sondern kannst die Graphics-Eigenschaft der PaintEventArgs-Instanz verwenden. Ich hoffe mal, das hilft.

MfG

Vb K1ng · 26. September 2010, 00:48

Hej danke für die hilfreiche Antwort, ich musste, so wie du es beschrieben hast, durch Me.ClientRectangle ersetzen.
Vielen Dank und für den Fall, dass noch andere den selben Fehler haben, Code:

VB.NET-Quellcode

Public Class Form1
Dim x As Integer = 0
Private bgcContext As New BufferedGraphicsContext
Dim clearColor As Color = Color.Black
Private Sub render(ByVal bg As Graphics)
Dim b As BufferedGraphics = bgcContext.Allocate(bg, Me.ClientRectangle)
Draw(b)
b.Render()
b.Dispose()
End Sub
Private Sub Draw(ByVal bufferedSurface As BufferedGraphics)
With bufferedSurface.Graphics
.Clear(clearColor)
If (x < 200) Then
x += 1
Else
x = 0
End If
.FillEllipse(Brushes.Blue, x, 50, 50, 50)
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
render(Me.CreateGraphics)
End Sub
End Class

Graphics.clear() blinken verhindern

Graphics.clear() blinken verhindern

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben