Mittels GDI zeichnen will nicht wie ich will

  • VB.NET

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

    Mittels GDI zeichnen will nicht wie ich will

    Hi,

    Ich versuche eine Art Mensch-ärgere-dich-nicht und nutze jetzt das erste mal GDI.

    ich will quasi die Spielfiguren als Punkte darstellen. Das will natürlich nicht so richtig:

    VB.NET-Quellcode

    1. Private Structure Spieler
    2. Dim Feld As Integer
    3. Dim Location As Point
    4. Dim Farbe As Color
    5. End Structure
    7. Private Leute As New Dictionary(Of Spieler, Byte)
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. Dim x1 As Spieler
    12. x1.Farbe = Color.Black
    13. x1.Location = New Point(20, 20)
    14. Leute.Add(x1, 0)
    15. Dim x2 As Spieler
    16. x2.Farbe = Color.Blue
    17. x2.Location = New Point(80, 70)
    18. Leute.Add(x2, 0)
    19. Dim x3 As Spieler
    20. x3.Farbe = Color.Red
    21. x3.Location = New Point(120, 450)
    22. Leute.Add(x3, 0)
    24. End Sub
    27. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    28. If Leute.Count = 0 Then Exit Sub
    30. Dim g As Graphics = e.Graphics
    31. g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    33. 'g.FillEllipse(New SolidBrush(Color.Green), New Rectangle(10, 20, 30, 40))
    34. For Each User As Spieler In Leute.Keys
    35. g.FillEllipse(New SolidBrush(User.Farbe), New Rectangle(User.Location, New Size(20, 20)))
    36. Next
    37. End Sub


    Hier sollte er, nachdem button1 gedrückt wurde, eigentlich 3 Punkte zeichnen. Macht er aber nicht...
    Kann mit wer unter die Arme greifen?
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!