创建一个按钮，每次单击都会更改 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

使用上面的代码，当我运行程序时，按钮将标签前景色更改为黑色。它紧跟在最后一行代码之后。所以，我去了互联网，寻找解决方案，我在这里缺少一些代码。我找到了一个叫做 "string" 的东西，但它与前景色无关，我不确定该想什么或做什么。我有点卡住了，我需要知道要添加什么才能让这个按钮按我预期的方式工作。但 most 重要的是，我想知道我找到的解决方案是如何工作的。例如，当有人告诉我要输入什么时，我会修复我的按钮，但我还没有了解我输入的内容的含义。我想学习。所以，当你回复这个的时候，请稍微解释一下。就一点点，这就是我的全部要求。我在寻找什么命令？我该如何使用它？它有什么作用？

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

希望这可以作为第二个选择

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

Creating a button that changes Label ForeColor with each click

vb.net

button

colors

label