Problem mit Invalidate()

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von TheVBTutorialsVB.

    Problem mit Invalidate()

    Hallo Community,

    ich bin gerade dabei ein 2D-Game zu programmieren. Ich habe gerade damit angefangen den Spieler zu programmieren, und stoße beim Zeichnen gleich auf ein Problem. Da ich ja nur den Player neu zeichnen möchte, zeichne ich mit Invalidate() nur den Teil neu, wo die Position des Spielers ist. Das Problem ist jetzt, dass der Spieler an die neue Position gezeichnet wird, aber die Positionen, an denen er vorher war, immernoch gezeichnet sind.

    Klasse Player.vb:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Player
    5. Private _point As Point
    6. Private _size As Size
    7. Private _brush As Brush
    9. Public Enum Direction
    10. Top
    11. Bottom
    12. Left
    13. Right
    14. End Enum
    16. Public Sub New(ByVal point As Point, ByVal size As Size, ByVal brush As Brush)
    17. _point = point
    18. _size = size
    19. _brush = brush
    20. End Sub
    22. Public Property Location As Point
    23. Get
    24. Return _point
    25. End Get
    26. Set(value As Point)
    27. _point = value
    28. End Set
    29. End Property
    31. Public ReadOnly Property Size As Size
    32. Get
    33. Return _size
    34. End Get
    35. End Property
    37. Public Property Brush As Brush
    38. Get
    39. Return _brush
    40. End Get
    41. Set(value As Brush)
    42. _brush = value
    43. End Set
    44. End Property
    46. Public ReadOnly Property Rectangle As Rectangle
    47. Get
    48. Return New Rectangle(_point, _size)
    49. End Get
    50. End Property
    52. Public Sub DrawPlayer(ByVal e As PaintEventArgs)
    53. With e.Graphics
    54. .FillRectangle(_brush, New Rectangle(_point, _size))
    55. End With
    56. End Sub
    58. Public Sub DoStep(ByVal stepsize As Integer, ByVal direction As Direction)
    59. Select Case direction
    60. Case Player.Direction.Top
    61. _point = New Point(_point.X, _point.Y - stepsize)
    62. Case Player.Direction.Bottom
    63. _point = New Point(_point.X, _point.Y + stepsize)
    64. Case Player.Direction.Right
    65. _point = New Point(_point.X + stepsize, _point.Y)
    66. Case Player.Direction.Left
    67. _point = New Point(_point.X - stepsize, _point.Y)
    68. End Select
    69. End Sub
    70. End Class



    Klasse Form1.vb:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Private p As New Player(New Point(10, 10), New Size(50, 50), Brushes.Red)
    7. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    8. DoubleBuffered = True
    9. End Sub
    11. Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    12. Select Case e.KeyCode
    13. Case Keys.W
    14. p.DoStep(10, Player.Direction.Top)
    15. Invalidate(p.Rectangle)
    16. Case Keys.S
    17. p.DoStep(10, Player.Direction.Bottom)
    18. Invalidate(p.Rectangle)
    19. Case Keys.A
    20. p.DoStep(10, Player.Direction.Left)
    21. Invalidate(p.Rectangle)
    22. Case Keys.D
    23. p.DoStep(10, Player.Direction.Right)
    24. Invalidate(p.Rectangle)
    25. End Select
    26. End Sub
    28. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    29. p.DrawPlayer(e)
    30. End Sub
    31. End Class



    Mit Me.Invalidate() funktioniert es, aber ich möchte nicht mehr neu zeichnen als nötig, außerdem flackert es dann. Ich hoffe ihr könnt mir helfen.

    TheVBTutorialsVB

    Danke Artentus für die schnelle Hilfe, da hätte ich auch selbst drauf kommen können. Ich habe das jetzt einfach so gelöst:

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Private p As New Player(New Point(10, 10), New Size(50, 50), Brushes.Red)
    6. Private lastPos As Rectangle
    8. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    9. DoubleBuffered = True
    10. lastPos = New Rectangle(p.Location, p.Size)
    11. End Sub
    13. Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    14. Select Case e.KeyCode
    15. Case Keys.W
    16. lastPos = New Rectangle(p.Location, p.Size)
    17. p.DoStep(10, Player.Direction.Top)
    18. Invalidate(lastPos)
    19. Invalidate(p.Rectangle)
    20. Case Keys.S
    21. lastPos = New Rectangle(p.Location, p.Size)
    22. p.DoStep(10, Player.Direction.Bottom)
    23. Invalidate(lastPos)
    24. Invalidate(p.Rectangle)
    25. Case Keys.A
    26. lastPos = New Rectangle(p.Location, p.Size)
    27. p.DoStep(10, Player.Direction.Left)
    28. Invalidate(lastPos)
    29. Invalidate(p.Rectangle)
    30. Case Keys.D
    31. lastPos = New Rectangle(p.Location, p.Size)
    32. p.DoStep(10, Player.Direction.Right)
    33. Invalidate(lastPos)
    34. Invalidate(p.Rectangle)
    35. End Select
    36. End Sub
    38. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    39. p.DrawPlayer(e)
    40. End Sub
    41. End Class

    guck mal, das geht auch viel kürzer:

    VB.NET-Quellcode

    1. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    2. Dim oldRectangle As Rectangle = p.Rectangle
    4. Select Case e.KeyCode
    5. Case Keys.W
    6. p.DoStep(10, Player.Direction.Top)
    7. Case Keys.S
    8. p.DoStep(10, Player.Direction.Bottom)
    9. Case Keys.A
    10. p.DoStep(10, Player.Direction.Left)
    11. Case Keys.D
    12. p.DoStep(10, Player.Direction.Right)
    13. End Select
    15. Invalidate(oldRectangle)
    16. Invalidate(p.Rectangle)
    17. End Sub