Was ist bei dem Code falsch?
Er soll jedes Control was es in der Form gibt mit einer Zuffalsfarbe einfärben, aber er macht garnichts.
VB.NET-Quellcode
- Randomize()
- For Each Control In Me.Controls
- zuffalszahl = Int(3 * Rnd())
- Dim x As Control = Control
- If zuffalszahl = 1 Then
- x.BackColor = Color.Green
- End If
- If zuffalszahl = 2 Then
- x.BackColor = Color.Gray
- End If
- If zuffalszahl = 3 Then
- x.BackColor = Color.Brown
- End If
- If zuffalszahl = 0 Then
- x.BackColor = Color.Green
- End If
- Next
Er soll jedes Control was es in der Form gibt mit einer Zuffalsfarbe einfärben, aber er macht garnichts.