创建一个按钮，每次单击都会更改 Label ForeColor

Question

这就是我想要做的。我有一个名为“lblWelcome”的标签和一个名为“btnTextColor”的按钮。我想要按钮做的是每次单击按钮时更改标签前色。每次按下按钮时，标签的前景色都会变为与以前相比不同的颜色。这就是我想要的。

这是我尝试过的。旁注：我只是把红色、蓝色和黑色作为开始，所以我可以试试这个按钮，看看它是否有效。我的第一个希望是让按钮在每次单击时选择一种随机颜色。那将是完美的。否则，只需逐个浏览颜色列表也可以。

Private Sub btnTextColor_Click(sender As Object, e As EventArgs) Handles btnTextColor.Click
    lblWelcome.ForeColor = Color.Red
    lblWelcome.ForeColor = Color.Blue
    lblWelcome.ForeColor = Color.Black

End Sub

使用上面的代码，当我运行程序时，按钮将标签前颜色更改为黑色。它只是跟在最后一行代码之后。所以，我上网，寻找解决方案，我在这里缺少一些代码。我发现了一个叫做“字符串”的东西，但它不是指前景色，我不知道该怎么想或做什么。我只是有点卡住了，我需要知道要添加什么才能使这个按钮按我想要的方式工作。但最重要的是，我想知道我找到的解决方案是如何工作的。例如，当有人告诉我要输入什么时，我会修复我的按钮，但我还没有了解我输入的内容的含义。我想学习。因此，请在您回复此问题时稍微解释一下。一点点，这就是我所要求的。我在寻找什么命令？我该如何使用它？它有什么作用？

Answer 1

这应该适合你。

Private Sub btnTextColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTextColor.Click
    Static m_Rnd As New Random
    lblWelcome.ForeColor = Color.FromArgb(255, m_Rnd.Next(0, 255), m_Rnd.Next(0, 255), m_Rnd.Next(0, 255))
End Sub

Answer 2

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
     Dim mybrush = Brushes.Black
    Dim cDialog As New ColorDialog()
    cDialog.Color = Label1.BackColor ' initial selection is current color.

    If (cDialog.ShowDialog() = DialogResult.OK) Then
        Label1.BackColor = cDialog.Color ' update with user selected color.
    End If


End Sub

希望这有助于作为第二种选择