Flackernarmes Bewegen von Bildern über Form

  • VB.NET
  • .NET (FX) 4.0

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von M-Stef.

    Flackernarmes Bewegen von Bildern über Form

    Grüss euch Community :)

    Dies ist mein erster Post, aber ich will direkt zur Sache kommen.
    Ich habe da ein Problem. Ich will mittels vb.net ein einfaches Spiel programmieren. Eine Figur, die sich durch die Landschaft bewegen kann in X und Y Richtung.
    (Und ja ich weiss, dass VB.NET nicht so ideal ist um ein Spiel zu machen, aber ich liebe die Herausforderung ;) )

    Klingt erstmal nicht spektakulär. Die Probleme aber, sind nicht ohne.
    Ich habe für die Bewegung der Figur verschiedene Bilder, die nach und nach gezeichnet bzw. wieder entfernt werden. Dadurch entsteht der Eindruck, dass sich die Figur bewegt.

    Der grosse Vorteil des direkten zeichnen auf die Form gegenüber einem Bild in der Picturebox ist ganz klar, dass wenn man ein anderes Objekt kreuzt, nicht der "unsichtbare" Hintergrund der Picturebox zu sehen ist.
    Das Problem ist aber, dass das Bild nicht flüssig ist, sondern ein bisschen flackert. Weiss jemand, wie man das minimieren bzw. ganz vermeiden kann?

    Ich erstelle sie im Form.paint event.

    Ich wäre wirklich Froh, wenn mir jemand helfen könnte. Danke im Voraus! :)

    Falls jemand nicht weiss für was das invalidate ist -> es dient dazu, die Form neu zu zeichnen. Und weil ich nicht will, dass alles wie wild flackert, zeichne ich nur das Rechteck neu, welches mein Objekt enthält.
    Hier noch der Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    6. Dim i As Integer = 0
    7. Dim i2 As Integer = 0
    8. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    10. e.Graphics.DrawImage(My.Resources.visual_studio, 100, 100, 100, 100)
    11. 'e.Graphics.DrawImage(My.Resources.visual_studio, 100, 0, 50, 50)
    12. If richtung = 0 Then
    13. e.Graphics.DrawImage(My.Resources.indi0, 0 + (i * 10), 0 + (i2 * 10), 80, 100)
    14. Else
    15. If switchfigur = False Then
    16. If richtung = 1 Then
    17. e.Graphics.DrawImage(My.Resources.indi1, 0 + (i * 10), 0 + (i2 * 10), 80, 100)
    18. ElseIf richtung = 2 Then
    19. e.Graphics.DrawImage(My.Resources.indi3, 0 + (i * 10), 0 + (i2 * 10), 80, 100)
    20. Else
    21. e.Graphics.DrawImage(My.Resources.indi1, 0 + (i * 10), 0 + (i2 * 10), 80, 100)
    22. End If
    23. Else
    24. If richtung = 1 Then
    25. e.Graphics.DrawImage(My.Resources.indi2, 0 + (i * 10), 0 + (i2 * 10), 80, 100)
    26. ElseIf richtung = 2 Then
    27. e.Graphics.DrawImage(My.Resources.indi4, 0 + (i * 10), 0 + (i2 * 10), 80, 100)
    28. Else
    29. e.Graphics.DrawImage(My.Resources.indi2, 0 + (i * 10), 0 + (i2 * 10), 80, 100)
    30. End If
    32. End If
    33. End If
    36. End Sub
    39. Private Sub gehnachrechts()
    40. Me.Invalidate(New Rectangle(New Point(0 + (i * 10), 0 + (i2 * 10)), New Size(90, 100)))
    41. i += 1
    42. End Sub
    44. Dim richtung As Integer = 0
    45. Private Sub Button1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
    46. richtung = 1
    47. Timer1.Enabled = True
    48. End Sub
    51. Private Sub gehnachlinks()
    52. i -= 1
    53. Me.Invalidate(New Rectangle(New Point(0 + (i * 10), 0 + (i2 * 10)), New Size(90, 100)))
    55. End Sub
    56. Private Sub gehnachoben()
    57. i2 -= 1
    58. Me.Invalidate(New Rectangle(New Point(0 + (i * 10), 0 + (i2 * 10)), New Size(80, 110)))
    60. End Sub
    61. Private Sub stehenbleiben()
    62. Me.Invalidate(New Rectangle(New Point(0 + (i * 10), 0 + (i2 * 10)), New Size(80, 110)))
    63. Timer1.Stop()
    64. End Sub
    65. Private Sub gehnachunten()
    66. Me.Invalidate(New Rectangle(New Point(0 + (i * 10), 0 + (i2 * 10)), New Size(80, 110)))
    67. i2 += 1
    68. End Sub
    69. Dim switchfigur As Boolean = False
    70. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    71. If richtung = 1 Then 'rechts
    72. gehnachrechts()
    73. ElseIf richtung = 2 Then 'linkgs
    74. gehnachlinks()
    75. ElseIf richtung = 3 Then 'oben
    76. gehnachoben()
    77. ElseIf richtung = 4 Then 'unten
    78. gehnachunten()
    79. ElseIf richtung = 0 Then 'unten
    80. stehenbleiben()
    82. End If
    83. If switchfigur = False Then
    84. switchfigur = True
    85. Exit Sub
    86. End If
    87. If switchfigur = True Then
    88. switchfigur = False
    89. Exit Sub
    90. End If
    91. End Sub
    92. Private Sub Button1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
    93. richtung = 0
    94. 'Timer1.Enabled = False
    95. End Sub
    96. Private Sub Button2_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseDown
    97. richtung = 2
    98. Timer1.Enabled = True
    99. End Sub
    101. Private Sub Button2_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseUp
    102. richtung = 0
    103. ' Timer1.Enabled = False
    105. End Sub
    107. Private Sub Button3_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseDown
    108. richtung = 3
    109. Timer1.Enabled = True
    111. End Sub
    113. Private Sub Button3_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseUp
    114. richtung = 0
    115. ' Timer1.Enabled = False
    117. End Sub
    119. Private Sub Button4_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseDown
    120. richtung = 4
    121. Timer1.Enabled = True
    122. End Sub
    124. Private Sub Button4_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseUp
    125. richtung = 0
    126. ' Timer1.Enabled = False
    128. End Sub
    129. End Class
    Bilder

    • bild1.PNG

      33,33 kB, 426×443, 214 mal angesehen

    • Bild2.PNG

      33,11 kB, 402×467, 206 mal angesehen

    • bild_bewegung_bilder.PNG

      34,11 kB, 1.227×442, 197 mal angesehen

    • bild3.PNG

      29,03 kB, 473×467, 185 mal angesehen
    "Die menschliche Vorstellungskraft ist unendlich"
    ->Versuch dir mal 'ne neue Farbe auszudenken!

    Mit Schleifen kann man alles lösen!

    Dim d as Double = 1
    Do until d = 0
    d = (d / 2)
    Loop ∞

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „M-Stef“ ()

    Setze die (protected) Eigenschaft DoubleBuffered der Form auf true. Am besten im Konstruktor.
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

    WOW, hätte nicht gedacht, dass sich das Problem so schnell lösen lässt!

    Vielen Dank 'Arby' :thumbup:
    "Die menschliche Vorstellungskraft ist unendlich"
    ->Versuch dir mal 'ne neue Farbe auszudenken!

    Mit Schleifen kann man alles lösen!

    Dim d as Double = 1
    Do until d = 0
    d = (d / 2)
    Loop ∞