Создание кнопки, которая меняет ярлык ForeColor при каждом нажатии

Question

Вот что я пытаюсь сделать. У меня есть ярлык с именем «lblWelcome» и кнопка с именем «btnTextColor». То, что я хочу, чтобы кнопка делала, - это изменение меток forecolor при каждом нажатии кнопки. Каждый раз, когда нажимается кнопка, 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 на черный. Он просто следует за последней строкой кода. Итак, я пошел в интернет, искал решение, немного кода, который мне здесь не хватает. Я нашел что-то под названием «строка», но это не было связано с 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 

надеюсь, что это помогает в качестве второго варианта