Picturebox mehrere Kreise mit verschiedenen Eigenschaften zeichnen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Picturebox mehrere Kreise mit verschiedenen Eigenschaften zeichnen

    Hallo liebes Forum,
    ich bin neu und da ich hier als Passivnutzer viele gute Tipps bekommen habe, hoffe ich bei meiner folgenden Frage Hilfe zu bekommen :)

    Es geht darum, dass ich ein kleines Spiel programmiere, bei dem man einen Tannenbaum schmücken kann.
    Es sollen Kugeln in verschiedenen Farben und Größen in eine Picturebox per Klick eingezeichnet werden können.

    Mein Problem ist, dass ich nicht weiß, wie ich jede Kugel einzeln mit seinen Eigenschaften einzeichnen kann.
    Bis jetzt ist es so, dass alle alten bereits gezeichneten Kugeln mit den neuen Eigenschaften überschrieben werden
    und ich dann lauter gleichaussehende Kugeln habe ...
    Wie kann ich das Problem lösen?
    Vielen Dank schonmal :)

    Dazu der folgende Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim punkte As New List(Of Point)
    3. Dim r As Integer = 10
    4. Dim r2 As Integer = 20
    5. Dim r3 As Integer = 30
    6. Dim rot As Boolean = False
    7. Dim grün As Boolean = False
    8. Dim blau As Boolean = False
    9. Dim lila As Boolean = False
    10. Dim gelb As Boolean = False
    11. Dim orange As Boolean = False
    12. Dim klein As Boolean = False
    13. Dim mittel As Boolean = False
    14. Dim gross As Boolean = False
    16. Protected x As Integer
    17. Protected y As Integer
    19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    21. End Sub
    23. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    24. rot = True
    25. grün = False
    26. blau = False
    27. lila = False
    28. gelb = False
    29. orange = False
    30. End Sub
    31. Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
    32. rot = False
    33. grün = True
    34. blau = False
    35. lila = False
    36. gelb = False
    37. orange = False
    38. End Sub
    39. Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
    40. rot = False
    41. grün = False
    42. blau = True
    43. lila = False
    44. gelb = False
    45. orange = False
    46. End Sub
    47. Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
    48. rot = False
    49. grün = False
    50. blau = False
    51. lila = True
    52. gelb = False
    53. orange = False
    54. End Sub
    55. Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
    56. rot = False
    57. grün = False
    58. blau = False
    59. lila = False
    60. gelb = True
    61. orange = False
    62. End Sub
    63. Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
    64. rot = False
    65. grün = False
    66. blau = False
    67. lila = False
    68. gelb = False
    69. orange = True
    70. End Sub
    71. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    72. klein = True
    73. mittel = False
    74. gross = False
    75. End Sub
    76. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    77. klein = False
    78. mittel = True
    79. gross = False
    80. End Sub
    81. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    82. klein = False
    83. mittel = False
    84. gross = True
    85. End Sub
    87. Private Sub PictureBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
    88. 'click liefert die koordinaten nicht mit, mausclick schon - in e stecken koord des mausklicks
    89. x = e.X
    90. y = e.Y
    91. punkte.Add(New Point(x, y))
    92. PictureBox1.Invalidate()
    94. End Sub
    96. Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    98. Dim g As Graphics = e.Graphics
    99. Debug.Assert(g IsNot Nothing)
    101. For Each i As Point In punkte
    102. If rot And klein Then
    103. g.DrawEllipse(Pens.Red, i.X, i.Y, 2 * r, 2 * r)
    104. g.FillEllipse(Brushes.Red, i.X, i.Y, 2 * r, 2 * r)
    105. End If
    106. If rot And mittel Then
    107. g.DrawEllipse(Pens.Red, i.X, i.Y, 2 * r2, 2 * r2)
    108. g.FillEllipse(Brushes.Red, i.X, i.Y, 2 * r2, 2 * r2)
    109. End If
    110. If rot And gross Then
    111. g.DrawEllipse(Pens.Red, i.X, i.Y, 2 * r3, 2 * r3)
    112. g.FillEllipse(Brushes.Red, i.X, i.Y, 2 * r3, 2 * r3)
    113. End If
    115. If grün And klein Then
    116. g.DrawEllipse(Pens.Green, i.X, i.Y, 2 * r, 2 * r)
    117. g.FillEllipse(Brushes.Green, i.X, i.Y, 2 * r, 2 * r)
    118. End If
    119. If grün And mittel Then
    120. g.DrawEllipse(Pens.Green, i.X, i.Y, 2 * r2, 2 * r2)
    121. g.FillEllipse(Brushes.Green, i.X, i.Y, 2 * r2, 2 * r2)
    122. End If
    123. If grün And gross Then
    124. g.DrawEllipse(Pens.Green, i.X, i.Y, 2 * r3, 2 * r3)
    125. g.FillEllipse(Brushes.Green, i.X, i.Y, 2 * r3, 2 * r3)
    126. End If
    128. If blau And klein Then
    129. g.DrawEllipse(Pens.Blue, i.X, i.Y, 2 * r, 2 * r)
    130. g.FillEllipse(Brushes.Blue, i.X, i.Y, 2 * r, 2 * r)
    131. End If
    132. If blau And mittel Then
    133. g.DrawEllipse(Pens.Blue, i.X, i.Y, 2 * r2, 2 * r2)
    134. g.FillEllipse(Brushes.Blue, i.X, i.Y, 2 * r2, 2 * r2)
    135. End If
    136. If blau And gross Then
    137. g.DrawEllipse(Pens.Blue, i.X, i.Y, 2 * r3, 2 * r3)
    138. g.FillEllipse(Brushes.Blue, i.X, i.Y, 2 * r3, 2 * r3)
    139. End If
    141. If lila And klein Then
    142. g.DrawEllipse(Pens.Violet, i.X, i.Y, 2 * r, 2 * r)
    143. g.FillEllipse(Brushes.Violet, i.X, i.Y, 2 * r, 2 * r)
    144. End If
    145. If lila And mittel Then
    146. g.DrawEllipse(Pens.Violet, i.X, i.Y, 2 * r2, 2 * r2)
    147. g.FillEllipse(Brushes.Violet, i.X, i.Y, 2 * r2, 2 * r2)
    148. End If
    149. If lila And gross Then
    150. g.DrawEllipse(Pens.Violet, i.X, i.Y, 2 * r3, 2 * r3)
    151. g.FillEllipse(Brushes.Violet, i.X, i.Y, 2 * r3, 2 * r3)
    152. End If
    154. If gelb And klein Then
    155. g.DrawEllipse(Pens.Yellow, x, x, 2 * r, 2 * r)
    156. g.FillEllipse(Brushes.Yellow, x, x, 2 * r, 2 * r)
    157. End If
    158. If gelb And mittel Then
    159. g.DrawEllipse(Pens.Yellow, i.X, i.Y, 2 * r2, 2 * r2)
    160. g.FillEllipse(Brushes.Yellow, i.X, i.Y, 2 * r2, 2 * r2)
    161. End If
    162. If gelb And gross Then
    163. g.DrawEllipse(Pens.Yellow, i.X, i.Y, 2 * r3, 2 * r3)
    164. g.FillEllipse(Brushes.Yellow, i.X, i.Y, 2 * r3, 2 * r3)
    165. End If
    167. If orange And klein Then
    168. g.DrawEllipse(Pens.Orange, x, x, 2 * r, 2 * r)
    169. g.FillEllipse(Brushes.Orange, x, x, 2 * r, 2 * r)
    170. End If
    171. If orange And mittel Then
    172. g.DrawEllipse(Pens.Orange, i.X, i.Y, 2 * r2, 2 * r2)
    173. g.FillEllipse(Brushes.Orange, i.X, i.Y, 2 * r2, 2 * r2)
    174. End If
    175. If orange And gross Then
    176. g.DrawEllipse(Pens.Orange, i.X, i.Y, 2 * r3, 2 * r3)
    177. g.FillEllipse(Brushes.Orange, i.X, i.Y, 2 * r3, 2 * r3)
    178. End If
    179. Next i
    180. End Sub
    183. '**********************************************************
    184. '********************** Menü-Befehle **********************
    185. '**********************************************************
    188. Private Sub Baum1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baum1ToolStripMenuItem.Click
    189. PictureBox1.Image = My.Resources.baum1
    190. End Sub
    192. Private Sub Baum2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baum2ToolStripMenuItem.Click
    193. PictureBox1.Image = My.Resources.baum2
    194. End Sub
    196. Private Sub NeuesSpielToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuesSpielToolStripMenuItem.Click
    197. Form1_Load(sender, e)
    198. Refresh()
    199. PictureBox1.Invalidate()
    200. End Sub
    202. End Class

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

    Willkommen im Forum. :thumbup:
    Editiere bitte Deinen Post oben und mach einen Expander [+] um den Code.
    Mach Dir eine Klasse, wo Du für jede Kugel eine Instanz mit New erstellst

    VB.NET-Quellcode

    1. Public Class Weihnachtsbaumkugel
    2. Public x As Integer
    3. Public y As Integer
    4. Public col As Color
    5. ' ...
    6. End Class
    Diese Instanz hängst Du dann mit Add() an eine Dim MyListOfKugeln = New List(Of Weihnachtsbaumkugel) und im Paint gehst Du die Liste durch und malst alle.
    For Each Kugel in MyListOfKugeln
    ' malen
    Next
    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!

    Vielen Dank für die schnelle Antwort :)
    Ich habe nun eine Klasse erstellt und versucht zu verstehen, was Du meinst.
    Mein Problem ist, dass ich nicht weiß, was genau in die neu angelegte Klasse geschrieben werden soll.

    x, y und col sind statische Werte aber die müssen doch dynamisch reingeschrieben werden können?

    Und wie stelle ich es an, dass der Farbwert und Radius aus meinen If-Blöcken
    in die neue Instanz geschrieben wird?

    Ist das mit dem malen der Kugelliste so OK?

    VB.NET-Quellcode

    1. For Each kugel In mylistofkugeln
    2. If rot And klein Then
    3. g.DrawEllipse(Pens.Red, kugel.X, kugel.Y, 2 * r, 2 * r)
    4. g.FillEllipse(Brushes.Red, kugel.X, kugel.Y, 2 * r, 2 * r)
    5. End If
    6. ' restliche If-Blöcke


    In jeder Instanz einer Kugel müsste dann ja für ihre Farbe und Größe ein True stehen,
    dass die Schleife das rausziehen kann, oder irre ich mich?

    Vielen Dank schonmal :)

    Statt punkte.Add(New Point(x, y)) machst Du
    punkte.Add(New Weihnachtsbaumkugel(x, y, r, col, WAS_AUCH_IMMER_DU_BRAUCHST)), natürlich muss statt Dim punkte As New List(Of Point) ein
    Dim punkte As New List(Of Weihnachtsbaumkugel) da stehen.
    Wenn Du ganz gescheit bist, bekommt Weihnachtsbaumkugel eine Paint-Prozedur, die dann im PictureBox1_Paint aufgerufen wird.
    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!

    Danke erstmal für Deine super Hilfe.
    Ich habe jetzt das Programm umgeformt, es geht zwar noch nicht
    aber ich denke, es hängt nur an einer Kleinigkeit :)

    Meine Klasse hat nun folgenden Inhalt:

    VB.NET-Quellcode

    1. Public Class weihnachtsbaumkugel
    2. Public x As Integer
    3. Public y As Integer
    4. Public radius As Integer
    5. Public farbe As Pen
    6. End Class


    Im Mausclick-Event der Picturebox steht folgendes:

    VB.NET-Quellcode

    1. x = e.X
    2. y = e.Y
    4. If rot And klein Then
    5. kugelliste.Add(New weihnachtsbaumkugel(x, y, 10, Pens.Red))
    6. End If
    8. 'restliche If-Blöcke


    Im Paint-Event steht das:

    VB.NET-Quellcode

    1. Dim g As Graphics = e.Graphics
    2. Debug.Assert(g IsNot Nothing)
    4. For Each weihnachtsbaumkugel In kugelliste
    5. g.DrawEllipse(farbe, x, y, radius, radius)
    6. Next


    Die Fehlerkonsole sagt mir nun, dass "Zu viele Argumente für Public Sub New()" vorliegen
    und macht Kringel unter die Zeilen "kugelliste.Add(New weihnachtsbaumkugel(x, y, 10, Pens.Red))".
    Ich hoffe es ist nur eine Kleinigkeit :)
    Danke schonmal, hast mir schon super geholfen :)

    Du musst der Klasse weihnachtsbaumkugel natürlich auch einen entsprechenden Konstruktor hinzufügen.
    Für dich wäre das z.B. so:

    VB.NET-Quellcode

    1. Sub New(Byval x As Integer,Byval y As Integer, Byval Radius as Integer, Byval drawPen As Pen)
    2. Me.x = x
    3. Me.y = y
    4. Me.radius = Radius
    5. Me.farbe = drawPen
    6. End Sub


    Diesen Code fügst du noch zu deiner Weihnachtsbaumkugel-Klasse hinzu.

    Danke, jetzt gibt es keine Fehler mehr aber wenn ich das Programm starte
    und dann eine Farbe und eine Größe auswähle und in die Picturebox klicke,
    dann erscheint ein rotes Kreuz auf weißem Hintergrund.
    Laut Eigenschaft der Picbox ist das ein Fehlerbild ...
    Woran liegt das wohl?
    Ich glaube wir sind ganz nah an der Lösung :)

    Hier der Code.

    Die Klasse weihnachtsbaumkugel
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class weihnachtsbaumkugel
    3. Public x As Integer
    4. Public y As Integer
    5. Public radius As Integer
    6. Public farbe As Pen
    7. Public füllfarbe As Brush
    9. Sub New(ByVal x As Integer, ByVal y As Integer, ByVal Radius As Integer, ByVal drawPen As Pen, ByVal drawbrush As Brush)
    10. Me.x = x
    11. Me.y = y
    12. Me.radius = Radius
    13. Me.farbe = drawPen
    14. Me.füllfarbe = drawbrush
    15. End Sub
    16. End Class


    Der Code in Form1:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim kugelliste As New List(Of weihnachtsbaumkugel)
    4. Dim r As Integer = 10
    5. Dim r2 As Integer = 20
    6. Dim r3 As Integer = 30
    7. Dim rot As Boolean = False
    8. Dim grün As Boolean = False
    9. Dim blau As Boolean = False
    10. Dim lila As Boolean = False
    11. Dim gelb As Boolean = False
    12. Dim orange As Boolean = False
    13. Dim klein As Boolean = False
    14. Dim mittel As Boolean = False
    15. Dim gross As Boolean = False
    17. Public x As Integer
    18. Public y As Integer
    19. Public radius As Integer
    20. Public farbe As Pen
    21. Public füllfarbe As Brush
    23. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    25. End Sub
    27. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    28. rot = True
    29. grün = False
    30. blau = False
    31. lila = False
    32. gelb = False
    33. orange = False
    34. End Sub
    35. Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
    36. rot = False
    37. grün = True
    38. blau = False
    39. lila = False
    40. gelb = False
    41. orange = False
    42. End Sub
    43. Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
    44. rot = False
    45. grün = False
    46. blau = True
    47. lila = False
    48. gelb = False
    49. orange = False
    50. End Sub
    51. Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
    52. rot = False
    53. grün = False
    54. blau = False
    55. lila = True
    56. gelb = False
    57. orange = False
    58. End Sub
    59. Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
    60. rot = False
    61. grün = False
    62. blau = False
    63. lila = False
    64. gelb = True
    65. orange = False
    66. End Sub
    67. Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
    68. rot = False
    69. grün = False
    70. blau = False
    71. lila = False
    72. gelb = False
    73. orange = True
    74. End Sub
    75. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    76. klein = True
    77. mittel = False
    78. gross = False
    79. End Sub
    80. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    81. klein = False
    82. mittel = True
    83. gross = False
    84. End Sub
    85. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    86. klein = False
    87. mittel = False
    88. gross = True
    89. End Sub
    91. Private Sub PictureBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
    92. 'click liefert die koordinaten nicht mit, mausclick schon - in e stecken koord des mausklicks
    93. x = e.X
    94. y = e.Y
    96. If rot And klein Then
    97. kugelliste.Add(New weihnachtsbaumkugel(x, y, 10, Pens.Red, Brushes.Red))
    98. End If
    99. If rot And mittel Then
    100. kugelliste.Add(New weihnachtsbaumkugel(x, y, 20, Pens.Red, Brushes.Red))
    101. End If
    102. If rot And gross Then
    103. kugelliste.Add(New weihnachtsbaumkugel(x, y, 30, Pens.Red, Brushes.Red))
    104. End If
    106. If grün And klein Then
    107. kugelliste.Add(New weihnachtsbaumkugel(x, y, 10, Pens.Green, Brushes.Green))
    108. End If
    109. If grün And mittel Then
    110. kugelliste.Add(New weihnachtsbaumkugel(x, y, 20, Pens.Green, Brushes.Green))
    111. End If
    112. If grün And gross Then
    113. kugelliste.Add(New weihnachtsbaumkugel(x, y, 30, Pens.Green, Brushes.Green))
    114. End If
    116. If blau And klein Then
    117. kugelliste.Add(New weihnachtsbaumkugel(x, y, 10, Pens.Blue, Brushes.Blue))
    118. End If
    119. If blau And mittel Then
    120. kugelliste.Add(New weihnachtsbaumkugel(x, y, 20, Pens.Blue, Brushes.Blue))
    121. End If
    122. If blau And gross Then
    123. kugelliste.Add(New weihnachtsbaumkugel(x, y, 30, Pens.Blue, Brushes.Blue))
    124. End If
    126. If lila And klein Then
    127. kugelliste.Add(New weihnachtsbaumkugel(x, y, 10, Pens.Purple, Brushes.Purple))
    128. End If
    129. If lila And mittel Then
    130. kugelliste.Add(New weihnachtsbaumkugel(x, y, 20, Pens.Purple, Brushes.Purple))
    131. End If
    132. If lila And gross Then
    133. kugelliste.Add(New weihnachtsbaumkugel(x, y, 30, Pens.Purple, Brushes.Purple))
    134. End If
    136. If gelb And klein Then
    137. kugelliste.Add(New weihnachtsbaumkugel(x, y, 10, Pens.Yellow, Brushes.Yellow))
    138. End If
    139. If gelb And mittel Then
    140. kugelliste.Add(New weihnachtsbaumkugel(x, y, 20, Pens.Yellow, Brushes.Yellow))
    141. End If
    142. If gelb And gross Then
    143. kugelliste.Add(New weihnachtsbaumkugel(x, y, 30, Pens.Yellow, Brushes.Yellow))
    144. End If
    146. If orange And klein Then
    147. kugelliste.Add(New weihnachtsbaumkugel(x, y, 10, Pens.Orange, Brushes.Orange))
    148. End If
    149. If orange And mittel Then
    150. kugelliste.Add(New weihnachtsbaumkugel(x, y, 20, Pens.Orange, Brushes.Orange))
    151. End If
    152. If orange And gross Then
    153. kugelliste.Add(New weihnachtsbaumkugel(x, y, 30, Pens.Orange, Brushes.Orange))
    154. End If
    156. PictureBox1.Invalidate()
    158. End Sub
    160. Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    162. Dim g As Graphics = e.Graphics
    163. Debug.Assert(g IsNot Nothing)
    165. For Each weihnachtsbaumkugel In kugelliste
    166. g.DrawEllipse(farbe, x, y, radius, radius)
    167. g.FillEllipse(füllfarbe, x, y, radius, radius)
    168. Next
    170. 'For Each weihnachtsbaumkugel In kugelliste
    171. ' If rot And klein Then
    172. ' g.DrawEllipse(Pens.Red, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r, 2 * r)
    173. ' g.FillEllipse(Brushes.Red, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r, 2 * r)
    174. ' End If
    175. ' If rot And mittel Then
    176. ' g.DrawEllipse(Pens.Red, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    177. ' g.FillEllipse(Brushes.Red, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    178. ' End If
    179. ' If rot And gross Then
    180. ' g.DrawEllipse(Pens.Red, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    181. ' g.FillEllipse(Brushes.Red, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    182. ' End If
    184. ' If grün And klein Then
    185. ' g.DrawEllipse(Pens.Green, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r, 2 * r)
    186. ' g.FillEllipse(Brushes.Green, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r, 2 * r)
    187. ' End If
    188. ' If grün And mittel Then
    189. ' g.DrawEllipse(Pens.Green, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    190. ' g.FillEllipse(Brushes.Green, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    191. ' End If
    192. ' If grün And gross Then
    193. ' g.DrawEllipse(Pens.Green, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    194. ' g.FillEllipse(Brushes.Green, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    195. ' End If
    197. ' If blau And klein Then
    198. ' g.DrawEllipse(Pens.Blue, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r, 2 * r)
    199. ' g.FillEllipse(Brushes.Blue, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r, 2 * r)
    200. ' End If
    201. ' If blau And mittel Then
    202. ' g.DrawEllipse(Pens.Blue, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    203. ' g.FillEllipse(Brushes.Blue, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    204. ' End If
    205. ' If blau And gross Then
    206. ' g.DrawEllipse(Pens.Blue, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    207. ' g.FillEllipse(Brushes.Blue, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    208. ' End If
    210. ' If lila And klein Then
    211. ' g.DrawEllipse(Pens.Violet, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r, 2 * r)
    212. ' g.FillEllipse(Brushes.Violet, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r, 2 * r)
    213. ' End If
    214. ' If lila And mittel Then
    215. ' g.DrawEllipse(Pens.Violet, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    216. ' g.FillEllipse(Brushes.Violet, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    217. ' End If
    218. ' If lila And gross Then
    219. ' g.DrawEllipse(Pens.Violet, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    220. ' g.FillEllipse(Brushes.Violet, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    221. ' End If
    223. ' If gelb And klein Then
    224. ' g.DrawEllipse(Pens.Yellow, x, x, 2 * r, 2 * r)
    225. ' g.FillEllipse(Brushes.Yellow, x, x, 2 * r, 2 * r)
    226. ' End If
    227. ' If gelb And mittel Then
    228. ' g.DrawEllipse(Pens.Yellow, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    229. ' g.FillEllipse(Brushes.Yellow, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    230. ' End If
    231. ' If gelb And gross Then
    232. ' g.DrawEllipse(Pens.Yellow, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    233. ' g.FillEllipse(Brushes.Yellow, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    234. ' End If
    236. ' If orange And klein Then
    237. ' g.DrawEllipse(Pens.Orange, x, x, 2 * r, 2 * r)
    238. ' g.FillEllipse(Brushes.Orange, x, x, 2 * r, 2 * r)
    239. ' End If
    240. ' If orange And mittel Then
    241. ' g.DrawEllipse(Pens.Orange, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    242. ' g.FillEllipse(Brushes.Orange, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r2, 2 * r2)
    243. ' End If
    244. ' If orange And gross Then
    245. ' g.DrawEllipse(Pens.Orange, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    246. ' g.FillEllipse(Brushes.Orange, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, 2 * r3, 2 * r3)
    247. ' End If
    248. 'Next
    249. End Sub
    252. '**********************************************************
    253. '********************** Menü-Befehle **********************
    254. '**********************************************************
    257. Private Sub Baum1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baum1ToolStripMenuItem.Click
    258. PictureBox1.Image = My.Resources.baum1
    259. End Sub
    261. Private Sub Baum2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baum2ToolStripMenuItem.Click
    262. PictureBox1.Image = My.Resources.baum2
    263. End Sub
    265. Private Sub NeuesSpielToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuesSpielToolStripMenuItem.Click
    266. Form1_Load(sender, e)
    267. Refresh()
    268. PictureBox1.Invalidate()
    269. End Sub
    271. End Class



    Hoffentlich findet sich der Fehler schnell :)

    Ist klar, da du ja nicht die Eigenschaften der Weihnachtskugel nimmst, sndern irgendwelche anderen

    VB.NET-Quellcode

    1. For Each kugel As weihnachtsbaumkugel In kugelliste
    2. g.FillEllipse(new SolidBrush(kugel.fuellfarbe), kugel.x, kugel.y, kugel.radius, kugel.radius)
    3. g.DrawEllipse(kugel.farbe, kugel.x, kugel.y, kugel.radius, kugel.radius)
    4. Next

    Du musst der Weihnachtsbaumkugelklasse noch eine Variable fuellfarbe hinzufügen, die den Typen Color hat. Im Konstruktor dementsprechend auch zuweisen.
    Mit den ganzen Booleans, das geht schöner mit Enums.

    DANKEEE, echt klasse :-)))

    Habe Deinen Rat nur halb befolgt aber es geht super :)

    Hier der abschließende Code:

    VB.NET-Quellcode

    1. Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    3. Dim g As Graphics = e.Graphics
    4. Debug.Assert(g IsNot Nothing)
    6. For Each weihnachtsbaumkugel In kugelliste
    7. g.DrawEllipse(weihnachtsbaumkugel.farbe, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, weihnachtsbaumkugel.radius, weihnachtsbaumkugel.radius)
    8. g.FillEllipse(weihnachtsbaumkugel.füllfarbe, weihnachtsbaumkugel.x, weihnachtsbaumkugel.y, weihnachtsbaumkugel.radius, weihnachtsbaumkugel.radius)
    9. Next
    11. End Sub


    Vielen Dank Euch beiden, ich melde mich bestimmt wieder :)

    Wenn Du das Paint in die Weihnachts-Klasse auslagerst, ist es noch eine Spur eleganter.
    Und dann solltest Du den Mittelpunkt der Kugel an der MouseKlick-Position liegen lassen, da musst Du im Konstruktor jeweila den Radius von x und y abziehen.

    VB.NET-Quellcode

    1. Class Form1
    2. Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    3. Dim g As Graphics = e.Graphics
    4. For Each weihnachtsbaumkugel In kugelliste
    5. weihnachtsbaumkugel.Paint(g)
    6. Next
    7. End Sub
    8. ' ...
    9. End Class

    VB.NET-Quellcode

    1. Class weihnachtsbaumkugel
    2. ' ...
    3. Public Sub Paint(g As Graphics)
    4. g.DrawEllipse(Me.farbe, Me.x, Me.y, Me.radius, Me.radius)
    5. g.FillEllipse(Me.füllfarbe, Me.x, Me.y, Me.radius, Me.radius)
    6. End Sub
    7. End Class
    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!

Facebook
Telefonspende