Formfehler

  • VB.NET

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

    Formfehler

    Hallo Forum,

    ich habe ein Programm geschrieben, bei dem ein Kreis bewegt werden kann, und an den Rändern der Form "stoppt".
    Ich habe ein Rectangle angegeben, in dem sich der Kreis bewegen darf und dieses Rectangle die Größe der Form zugewiesen.
    Die Formgröße ist 800;600, aber wenn ich jetzt starte und dem Kreis sage, dass dieser stoppen soll, hält er nur außerhalb der Form.
    Ich habe mir die Position in einer Konsole ausgeben lassen, vielleicht hat jemand eine Idee. Hier der Code:


    Spoiler anzeigen

    Klasse Kreis:

    VB.NET-Quellcode

    1. Public Class Kreis
    3. Private r As Integer
    4. Private p As Point
    6. Public Sub New(ByVal radius As Integer, ByVal position As Point)
    7. r = radius
    8. p = position
    9. End Sub
    11. Public Property Position As Point
    12. Get
    13. Return p
    14. End Get
    15. Set(value As Point)
    16. p = value
    17. End Set
    18. End Property
    20. Public Property Radius As Integer
    21. Get
    22. Return r
    23. End Get
    24. Set(value As Integer)
    25. r = value
    26. End Set
    27. End Property
    29. Public Sub Draw(ByVal e As System.Windows.Forms.PaintEventArgs)
    30. e.Graphics.DrawEllipse(Pens.Black, New Rectangle(p, New Size(r * 2, r * 2)))
    31. End Sub
    32. End Class


    Klasse Form:

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    5. <DllImport("kernel32", SetLastError:=True)> _
    6. Private Shared Function AllocConsole() As Boolean
    7. End Function
    9. <DllImport("kernel32", SetLastError:=True)> _
    10. Private Shared Function FreeConsole() As Boolean
    11. End Function
    13. Private k As New Kreis(50, New Point(50, 50))
    14. Private r As Rectangle
    16. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    17. AllocConsole()
    18. Console.WriteLine("-Programm gestartet-" & vbNewLine)
    19. Console.WriteLine("X: " + CStr(k.Position.X.ToString) + " Y: " + CStr(k.Position.Y))
    20. Console.WriteLine("Startet mit Radius: " + CStr(k.Radius))
    21. Me.Width = 1000
    22. Me.Height = 800
    23. r = New Rectangle(New Point(0, 0), New Size(Me.Width - 120, Me.Height - 140))
    24. End Sub
    26. Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    27. Select Case e.KeyCode
    28. Case Keys.W
    29. If k.Position.Y > r.Y Then
    30. k.Position = New Point(k.Position.X, k.Position.Y - 5)
    31. Me.Invalidate()
    32. Console.WriteLine("X: " + CStr(k.Position.X.ToString) + " Y: " + CStr(k.Position.Y))
    33. End If
    34. Case Keys.S
    35. If k.Position.Y < r.Height Then
    36. k.Position = New Point(k.Position.X, k.Position.Y + 5)
    37. Me.Invalidate()
    38. Console.WriteLine("X: " + CStr(k.Position.X.ToString) + " Y: " + CStr(k.Position.Y))
    39. End If
    40. Case Keys.D
    41. If k.Position.X < r.Width Then
    42. k.Position = New Point(k.Position.X + 5, k.Position.Y)
    43. Me.Invalidate()
    44. Console.WriteLine("X: " + CStr(k.Position.X.ToString) + " Y: " + CStr(k.Position.Y))
    45. End If
    46. Case Keys.A
    47. If k.Position.X > r.X Then
    48. k.Position = New Point(k.Position.X - 5, k.Position.Y)
    49. Me.Invalidate()
    50. Console.WriteLine("X: " + CStr(k.Position.X.ToString) + " Y: " + CStr(k.Position.Y))
    51. End If
    52. Case Keys.Add
    53. k.Radius += 1
    54. Me.Invalidate()
    55. Console.WriteLine("Radius: " + CStr(k.Radius))
    56. Case Keys.Subtract
    57. k.Radius -= 1
    58. Me.Invalidate()
    59. Console.WriteLine("Radius: " + CStr(k.Radius))
    60. End Select
    61. End Sub
    63. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    64. k.Draw(e)
    65. End Sub
    66. End Class



    Grüße,

    TheVBTutorialsVB

    @TheVBTutorialsVB: Dein Algorithmus macht Mist, sobald Du den Durchmesser des Kreises veränderst.
    Bei einer Durchmesseränderung musst Du das Rectangle neu berechnen und ggf. auf Kreis-außerhalb reagieren.
    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!

    das wird letztlich vom Betriebssystem aufgerufen, welches erkennt, wann ein Bildschirmbereich neu zu zeichnen ist.

    Bei OwnerDrawing teilt mans dem OS dann explizit mit, wenn man einen Bereich neugezeichnet haben will, durch Control.Invalidate().

    Das ist hier übrigens sehr unperformant umgesetzt, man würde besser genau das Rectangle angeben, was ungültig ist, anstatt das ganze Control zu invalidieren.
    gugge ObjectBrowser und MSDN zu Invalidate() und seine Überladungen.

    @TheVBTutorialsVB:: Was machst du da eiglich mit AllocConsole() und FreeConsole()?

    ErfinderDesRades schrieb:

    AllocConsole() FreeConsole()
    Wohl ursprünglich von mir, um mit Console.WriteLine() Testausgaben machen zu können.
    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!

    @RodFromGermany: Ja, das habe ich vor kurzem bei dir gesehen und fand es sehr nützlich. Die Änderung des Durchmessers habe ich entfernt, brauche es doch nicht, aber danke für den Hinweis.
    @sonne75: Ich zeichne in der Form1_Paint, was gezeichnet wird steht in der Kreisklasse.
    @ErfinderDesRades: Ich hab den ObjectBrowser zwar noch nie benutzt, aber ich probiers mal.

    Danke für alle Antworten, ich probier es aus.

Facebook
Telefonspende