DrawImage flackert?

  • VB.NET

Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von nafets3646.

    Ja du siehst es doch in der GIF.
    Ich komme mit dem Spieler nicht bis an den Rand der Form, sondern irgendwo ist eine Grenze gezogen die ich ja nicht hin gemacht habe..

    Code bis jetzt:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short
    3. Dim g As Graphics = Me.CreateGraphics
    5. Sub Render()
    6. Dim g As Graphics = Me.CreateGraphics
    7. paintPlayer(g)
    8. End Sub
    9. Private Sub paintPlayer(ByVal g As Graphics)
    10. Dim playerSprite As New Bitmap("C:\Unten.png")
    11. g.DrawImage(playerSprite, XPOS, YPOS, 30, 86)
    12. End Sub
    13. Dim XPOS As Integer
    14. Dim YPOS As Integer
    15. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    16. Label3.Text = XPOS
    17. Label4.Text = YPOS
    18. Dim hotkey1 As Boolean
    19. hotkey1 = GetAsyncKeyState(Keys.A)
    20. If hotkey1 = True Then
    21. XPOS = XPOS - 3
    22. Refresh()
    23. paintPlayer(g)
    24. End If
    26. Dim hotkey2 As Boolean
    27. hotkey2 = GetAsyncKeyState(Keys.D)
    28. If hotkey2 = True Then
    29. XPOS = XPOS + 3
    30. Refresh()
    31. paintPlayer(g)
    32. End If
    34. Dim hotkey3 As Boolean
    35. hotkey3 = GetAsyncKeyState(Keys.W)
    36. If hotkey3 = True Then
    37. YPOS = YPOS - 3
    38. Refresh()
    39. paintPlayer(g)
    40. End If
    42. Dim hotkey4 As Boolean
    43. hotkey4 = GetAsyncKeyState(Keys.S)
    44. If hotkey4 = True Then
    45. YPOS = YPOS + 3
    46. Refresh()
    47. paintPlayer(g)
    48. End If
    49. End Sub
    50. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    51. Me.DoubleBuffered = True
    52. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
    53. XPOS = 191
    54. YPOS = 131
    55. End Sub
    57. End Class


    Wie kann ich denn das dauernd neue Laden des Bildes umgehen?

    Mfg. TGS

    Du brauchst eine ordentliche Klassenstruktur. Wenn z.B. die Spielfigur in einer eigenen Klasse ist, dann kannst du dort alle Werte wie Position und aktuelles Bild speichern. Wenn sich der Zustand ändern soll veränderst du nur die Werte innerhalb der Klasse und rufst dann Invalidate auf. Dadurch wird das Paint-Event ausgelöst, in dem du dann alle Objekte auf einmal mit ihrem derzeitigen Status neuzeichnest. Das ist die einzige richtige Vorgehensweise in GDI eine Engine zu erstellen.

    Hier ist mal ein kleines Beispiel, dass mit Doublebuffer nicht flackert. Kopier das mal in ein neues Projekt und guck obs klappt.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. WithEvents Timer1 As New Timer With {.Enabled = True, .Interval = 2}
    2. Dim counter As Single = 0
    4. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    5. Dim g As Graphics = e.Graphics
    6. With g
    7. .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
    8. .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
    9. .SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    10. End With
    11. Dim radiusX As Integer = Me.Width \ 2 - 30
    12. Dim radiusY As Integer = Me.Height \ 2 - 30
    13. Dim x As Single = CSng(Math.Cos(counter) * radiusX) + Me.Width \ 2
    14. Dim y As Single = CSng(Math.Sin(counter) * radiusY) + Me.Height \ 2 - 25
    15. g.FillEllipse(Brushes.Black, x, y, 15, 15)
    16. End Sub
    18. Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
    19. counter += 0.03F
    20. If counter = 359 Then counter = 0
    21. Me.Invalidate()
    22. End Sub
    24. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    25. Me.DoubleBuffered = True
    26. End Sub

    Danke sehr, hat funktioniert.

    Hier mein Code:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short
    3. WithEvents Timer1 As New Timer With {.Enabled = True, .Interval = 2}
    4. Dim counter As Single = 0
    5. Dim XPOS As Single
    6. Dim YPOS As Single
    7. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    8. Dim g As Graphics = e.Graphics
    9. With g
    10. .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
    11. .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
    12. .SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    13. End With
    18. Dim playerSprite As New Bitmap("C:\Unten.png")
    19. g.DrawImage(playerSprite, XPOS, YPOS, 30, 86)
    22. End Sub
    24. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    25. counter += 0.03F
    26. If counter = 359 Then counter = 0
    31. Me.Invalidate()
    32. Dim hotkey1 As Boolean
    33. hotkey1 = GetAsyncKeyState(Keys.A)
    34. If hotkey1 = True Then
    35. XPOS = XPOS - 3
    37. End If
    39. Dim hotkey2 As Boolean
    40. hotkey2 = GetAsyncKeyState(Keys.D)
    41. If hotkey2 = True Then
    42. XPOS = XPOS + 3
    44. End If
    46. Dim hotkey3 As Boolean
    47. hotkey3 = GetAsyncKeyState(Keys.W)
    48. If hotkey3 = True Then
    49. YPOS = YPOS - 3
    51. End If
    53. Dim hotkey4 As Boolean
    54. hotkey4 = GetAsyncKeyState(Keys.S)
    55. If hotkey4 = True Then
    56. YPOS = YPOS + 3
    58. End If
    60. End Sub
    62. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    63. Me.DoubleBuffered = True
    64. End Sub
    67. End Class



    Mfg. TGS :)

    Ich hab deinen Code mal ein bisschen verbessert, unter anderem hab ich die Tastenabfrage verkürzt und OPTION STRICT ON gemacht. Außerdem habe ich das Laden des Bildes verschoben, damit es nicht immer wieder aufs Neue geladen wird. Des weiteren habe ich noch das Zeichnen in die OnPaint-Sub gemacht und das Invalidaten an das Ende der Timer-Sub verschoben:

    VB.NET-Quellcode

    1. Option Strict On 'Das Allerwichtigste, sollte in jedem Programm stehen
    3. Public Class Form1
    4. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short
    5. WithEvents Timer1 As New Timer With {.Enabled = True, .Interval = 2}
    6. Dim counter As Single = 0
    7. Dim XPOS As Single
    8. Dim YPOS As Single
    9. Dim playerSprite As New Bitmap("C:\Unten.png") 'Das Laden des Bildes von der Festplatte hierhin verschieben
    11. Protected Overrides Sub OnPaint(e As PaintEventArgs) 'OnPaint zu Overriden ist noch einen minimalen Ticken schneller als das Event abzuwarten ;)
    12. With e.Graphics 'Du musst kein Graphics-Objekt deklarieren, wenn du schon eins hast
    13. '.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic 'Die Modes kannst du eigentlich weglassen, da ich denke, dass deine Spielfigur schon die richtige Größe hat,
    14. '.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality 'ansonsten kannst du sie auch wieder auskommentieren bzw. nicht so hoch stellen. Dies sollte die Performance deutlich erhöhen.
    15. '.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    17. .DrawImage(playerSprite, XPOS, YPOS, 30, 86) 'Warum nicht gleich hier rein? :D
    18. End With
    20. MyBase.OnPaint(e)
    21. End Sub
    23. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    24. counter += 0.03F
    25. If counter = 359 Then counter = 0
    27. Dim XPOSOld As Single = XPOS
    28. Dim YPOSOld As Single = YPOS
    30. If CBool(GetAsyncKeyState(Keys.A)) Then XPOS = XPOS - 3 'kürzer und schneller, außerdem Option Strict On
    32. If CBool(GetAsyncKeyState(Keys.D)) Then XPOS = XPOS + 3
    34. If CBool(GetAsyncKeyState(Keys.W)) Then YPOS = YPOS - 3
    36. If CBool(GetAsyncKeyState(Keys.S)) Then YPOS = YPOS + 3
    38. If XPOS = XPOSOld AndAlso YPOS = YPOSOld Then Me.Invalidate() 'Invalidaten ans Ende verschoben und mit If-Abfrage versehen, da ich denke, dass du erst zeichnen willst, wenn die Werte von der Tastatur abgefragt wurden und auch nur, wenn sich irgendetwas geändert hat
    39. End Sub
    41. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    42. Me.DoubleBuffered = True
    43. End Sub
    45. End Class


    //EDIT: Hab noch die Empfehlungen von ErfinderDesRades umgesetzt, allerdings habe ich das mit der Region beim invalidaten nicht ersetzt. Probiers aus :).

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nafets3646“ ()

    für DrawImage braucht man glaub keinen der Modes (InterpolationMode, .PixelOffsetMode, .SmoothingMode) zu manipulieren.
    Wenn keine Taste gedrückt ist, sollteman auch kein .Invalidate() aufrufen.
    Die Performance lässt sich ca. 50-fach steigern, wenn man bei Invalidate einschränkt, welches Rechteck zu neuzeichnen ist.

    Ich kanns nicht ausprobieren, weil ich das Bildle nicht hab, aber hat der DoppelPuffer eine merkliche Auswirkung?

    Hab noch eine Frage.

    Mit der Picturebox gings so, dass sie nicht mehr aus der Form kam:

    VB.NET-Quellcode

    1. Dim ScreenSize As Size = Me.Size
    3. If PictureBox1.Left <= 0 Then
    4. PictureBox1.Left = 0
    5. ElseIf PictureBox1.Left + PictureBox1.Width >= ScreenSize.Width Then
    6. PictureBox1.Left = ScreenSize.Width - PictureBox1.Width
    7. End If
    9. If PictureBox1.Top <= 0 Then
    10. PictureBox1.Top = 0
    11. ElseIf PictureBox1.Top + PictureBox1.Height >= ScreenSize.Height Then
    12. PictureBox1.Top = ScreenSize.Height - PictureBox1.Height
    13. End If



    Doch wie geht das nun mit GDI (Mit dem Code oben)?

    Wäre nett, wenn mir da jemand helfen könnte :)

    Danke, und mfg.
    TGS :)

    Das geht dann so:

    VB.NET-Quellcode

    1. Dim MovingRectangle As New Rectangle(New Point(10, 10), New Size(100, 100)) 'Das Rectangle, in dem sich die Figur bewegen kann
    2. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. counter += 0.03F
    4. If counter = 359 Then counter = 0
    6. Dim XPOSOld As Single = XPOS
    7. Dim YPOSOld As Single = YPOS
    9. If CBool(GetAsyncKeyState(Keys.A)) AndAlso XPOS - 3 >= MovingRectangle.X Then XPOS -= 3 'einfach noch ne zweite Bedingung, welche prüft, ob die Figur aus dem Rectangle rauslaufen würde
    11. If CBool(GetAsyncKeyState(Keys.D)) AndAlso XPOS + 3 <= MovingRectangle.X + MovingRectangle.Width - 30 Then XPOS += 3 'Die -30 steht für die Breite deiner Spielfigur
    13. If CBool(GetAsyncKeyState(Keys.W)) AndAlso YPOS - 3 >= MovingRectangle.Y Then YPOS -= 3
    15. If CBool(GetAsyncKeyState(Keys.S)) AndAlso YPOS + 3 <= MovingRectangle.Y + MovingRectangle.Height - 80 Then YPOS += 3 'Die -80 steht für die Höhe deiner Spielfigur
    17. If XPOS = XPOSOld AndAlso YPOS = YPOSOld Then Me.Invalidate() 'Invalidaten ans Ende verschoben und mit If-Abfrage versehen, da ich denke, dass du erst zeichnen willst, wenn die Werte von der Tastatur abgefragt wurden und auch nur, wenn sich irgendetwas geändert hat
    18. End Sub

Facebook
Telefonspende