[GDI] unerklärliches (negatives) Phänomen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    [GDI] unerklärliches (negatives) Phänomen

    Hallo,

    machen wirs kurz und knapp: ich will mit GDI etwas an eine bestimmte Position zeichnen, welche ausgerechnet wird. Jedoch wirds nicht an die Position gezeichnet (Position: (Höhe - 10) - 10) stattdessen in die Mitte, bzw. nicht weiter unten.

    VB.NET-Quellcode

    1. Imports System.Threading
    3. Public Class LineRunnerGameEngine
    4. Private RunnerPos As Point = New Point(0, (Me.Height - 10) - 10)
    5. Private Sub LineRunnerGameEngine_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    6. MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    7. MyBase.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
    8. End Sub
    10. Private Sub LineRunnerGameEngine_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    11. Form1.Text = e.Location.ToString
    12. End Sub
    14. Private Sub LineRunnerGameEngine_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    16. Dim basePen As Pen = New Pen(Brushes.Black, 20)
    17. With e.Graphics
    18. .DrawLine(basePen, New Point(0, Me.Height - 10), New Point(Me.Width, Me.Height - 10))
    19. .FillRectangle(Brushes.Red, New Rectangle(RunnerPos, New Size(10, 10)))
    20. End With
    21. End Sub
    22. Sub StartRunning()
    23. Timer1.Start()
    24. End Sub
    25. Sub StopRunning()
    26. Timer1.Stop()
    27. End Sub
    28. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    29. ' RunnerPos.Offset(2, 0)
    30. Me.Invalidate()
    32. End Sub
    33. End Class
    Naja, ein Control halt :P

    Ich hoffe, jemand kann mir helfen.
    Grüße

    * Topic verschoben *

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

    Hi
    Ich würde für Controlinterne Berechnungen immer ClientSize statt Size verwenden, da es z.B. bei einer Form zu einem oft nicht erwünschten Verhalten kommt. RunnerPos würde ich nach der Änderung der Form-Größe setzen.

    VB.NET-Quellcode

    1. Private Sub LineRunnerGameEngine_SizeChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Me.SizeChanged
    2. Static previousHeight As Integer = 0
    3. If previousHeight <> ClientSize.Height Then
    4. RunnerPos = New Point(RunnerPos.X, RunnerPos.Y + ClientSize.Height - previousHeight)
    5. previousHeight = ClientSize.Height
    6. End If
    7. End Sub

    Die Dekaration kann so stehen bleiben. Diese Vorgehensweise hilft beim Ableiten anderer Controls von der eigenen Klasse. (Ich persönlich würde das Programm übrigens ohne Zugriff auf Controls gestalten und mit einem gepufferten bösen CreateGraphics bepinseln. Mit AddHandler würde ich dann einen Handler für das Paint-Event abonnieren, in dem ich dann den Puffer in e.Graphics rüberschiebe.)

    Gruß
    ~blaze~

    Hallo,
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Threading
    3. Public Class LineRunnerGameEngine
    4. Private RunnerPos As Point = New Point(0, ClientSize.Height)
    5. Private Sub LineRunnerGameEngine_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    6. MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    7. MyBase.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
    8. End Sub
    10. Private Sub LineRunnerGameEngine_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    11. Form1.Text = e.Location.ToString
    12. End Sub
    14. Private Sub LineRunnerGameEngine_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    16. Dim basePen As Pen = New Pen(Brushes.Black, 20)
    17. With e.Graphics
    18. .DrawLine(basePen, New Point(0, Me.Height - 10), New Point(Me.Width, Me.Height - 10))
    19. .FillRectangle(Brushes.Red, New Rectangle(RunnerPos, New Size(10, 10)))
    20. End With
    21. End Sub
    22. Private Sub LineRunnerGameEngine_SizeChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Me.SizeChanged
    23. Static previousHeight As Integer = 0
    24. If previousHeight<> ClientSize.Height Then
    25. ' RunnerPos = New Point(RunnerPos.X, RunnerPos.Y + ClientSize.Height - previousHeight)
    26. ' previousHeight = ClientSize.Height
    27. End If
    28. End Sub
    29. Sub StartRunning()
    30. Timer1.Start()
    31. End Sub
    32. Sub StopRunning()
    33. Timer1.Stop()
    34. End Sub
    35. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    36. ' RunnerPos.Offset(2, 0)
    37. Me.Invalidate()
    39. End Sub
    40. End Class


    wird es halt in der Mitte positioniert. Ich habe vorerst den Snippet von ~blaze~ auskommentiert.

    So siehts dann aus:

    Wenn ich ein neues UserControl erstelle, dann hat dies die Abmessungen 150;150.
    Zufällig genau die Größe, die ClientSize.Height in deinem Beispiel hat, wenn man einen Haltepunkt setzt.

    ~blaze~ schrieb:

    RunnerPos würde ich nach der Änderung der Form-Größe setzen.

    /Sign

    Siehe Veränderung im Beispiel...

    VB.NET-Quellcode

    1. Private RunnerPos As Point
    4. Private Sub LineRunnerGameEngine_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    5. MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    6. MyBase.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
    7. RunnerPos = New Point(30, ClientSize.Height - 30)
    8. End Sub