Question

这就是我要做的事情。我有一个名为＆＃34; lblWelcome＆＃34;的标签，以及一个名为＆＃34; btnTextColor＆＃34;的按钮。我希望按钮做的是每次单击按钮时更改标签forecolor。每次按下按钮时，标签的前景色将变为不同的颜色。这就是我想要的。

这是我尝试过的。旁注：我只把红色，蓝色和黑色作为开头，所以我可以尝试按钮，看它是否有效。我的第一个希望是每次点击它时按钮选择一个随机颜色。那将是完美的。否则，只需逐个查看颜色列表就可以了。

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

使用上面的代码，当我运行程序时，该按钮会将标签forecolor更改为黑色。它紧跟最后一行代码。所以，我去了互联网，寻找解决方案，我在这里找不到一些代码。我找到了一个名为＆＃34; string＆＃34;的东西，但它没有参考forecolor，我也不确定要做什么或做什么。我只是陷入困境，我需要知道要添加什么才能使这个按钮按照我的预期方式工作。但大多数重要的是，我想知道我找到的解决方案是如何工作的。例如，当有人告诉我要输入什么内容时，我会修复我的按钮，但我还没有学会输入内容的含义。我想学习。所以，请你在回复此问题时解释一下。只是一点点，这就是我所要求的。我在找什么命令？我该如何使用它？它做了什么？

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

2 个答案: