GDI+ Flimmern bei Ping Pong

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    GDI+ Flimmern bei Ping Pong

    Hallo,

    ich habe versucht ein Ping Pong Spiel mit GDI zu machen, nur mal so zur Übung. Aber irgendwie flimmert es die ganze Zeit wenn ich Invaladite benutze und woanders zeichne. Auch

    VB.NET-Quellcode

    1. MyBase.SetStyle
    hat nichts gebracht. Arbeite mit dem Paint-Event. Anbei der bisherige Code.

    Danke im Vorraus TGenius.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    2. Public Class Form1
    3. Dim bmp As New Bitmap(My.Resources.background)
    4. Dim cpu As Integer = 10
    5. Private Sub RectangleShape1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles p1.Paint
    6. With e.Graphics
    7. .FillRectangle(New LinearGradientBrush(New Rectangle(p1.Left, p1.Top, p1.Width + 1, p1.Height + 1), Color.Yellow, Color.Orange,LinearGradientMode.Horizontal), New Rectangle(p1.Left, p1.Top, p1.Width + 1, p1.Height + 1))
    8. End With
    9. End Sub
    12. Private Sub p2_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles p2.Paint
    13. With e.Graphics
    14. .FillRectangle(New LinearGradientBrush(New Rectangle(p2.Left,p2.Top,p2.Width+2,p2.Height+2),Color.Blue,Color.Aqua,LinearGradientMode.Horizontal),New Rectangle(p2.Left, p2.Top, p2.Width + 2,p2.Height+2))
    15. End With
    16. End Sub
    19. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    20. Me.MaximumSize = Me.Size
    21. Me.MinimumSize = Me.Size
    22. MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    23. End Sub
    28. Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
    29. Panel1.BackgroundImage = bmp
    30. End Sub
    32. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    33. Timer1.Start()
    34. End Sub
    36. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    37. If ball.Top < p2.Top Then
    38. p2.Top -= cpu
    39. p2.Invalidate()
    40. End If
    41. If ball.Bottom > p2.Bottom Then
    42. p2.Top += cpu
    43. p2.Invalidate()
    44. End If
    46. If MousePosition.Y > p2.Location.Y Then
    47. p1.Top += 5
    48. p1.Invalidate()
    49. End If
    50. If MousePosition.Y < p2.Location.Y Then
    51. p1.Top -= 5
    52. p1.Invalidate()
    53. End If
    54. If p1.Top < 1 Then
    55. p1.Top = 1
    56. End If
    57. If p1.Bottom > Panel1.Height - 1 Then
    58. p1.Top = Panel1.Height - 1 - p1.Height
    59. End If
    60. End Sub
    61. End Class

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

    Probier mal, dem Invalidate als Parameter die Position, an der sich was geändert hat, mitzugeben.
    Dann wird nur noch dieser Ausschnitt refreshed.
    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!

    VB.NET-Quellcode

    1. Public Class MyUltraSuperGigaGDIPlusDrawingPanel
    2. Inherits System.Windows.Forms.Panel
    3. Sub New()
    4. MyBase.New()
    5. Me.SetStyle(stylesDieBlazeGeschriebenHat,True)
    6. End Sub
    7. End Class

    erstellen->aus Toolbox einfügen->Paint Event von dem neuen Control verwenden fertig
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

Facebook
Telefonspende