VB.NET-Quellcode
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- If ColorDialog2.ShowDialog Then Label1.ForeColor = ColorDialog2.Color
- Label2.ForeColor = ColorDialog2.Color
- GroupBox1.ForeColor = ColorDialog2.Color
- Button2.ForeColor = Color.Black
- Button1.ForeColor = Color.Black
- Button3.ForeColor = Color.Black
- Button4.ForeColor = Color.Black
- Button5.ForeColor = Color.Black
- GroupBox2.ForeColor = ColorDialog2.Color
- GroupBox3.ForeColor = ColorDialog2.Color
- GroupBox4.ForeColor = ColorDialog2.Color
- Label3.ForeColor = ColorDialog2.Color
- End Sub
Wo ist das falsch?
Der Code hat seine Richtigkeit, und wenn die Farbe dadurch geändert wird, isses doch in Ordnung.
(Aber da es hier Menschen gibt, die sich beim Zitat "No Risk, No Fun" aufregen und einen als bekloppt bezeichnen, wundere ich mich nicht, dass der Code oben "schlecht" ist)