VB流行颜色选择器

Question

我有一个关于 VB 事件处理程序和颜色选择器的问题。
现在我有一个标签，我希望当用户单击它时，它会弹出一个颜色选择器对话框并让用户更改标签的背景颜色。
不知道如何实施，有人可以给我指导吗？

谢谢

Answer 1

在 Label 的单击处理程序中使用 .NET Framework 的 ColorDialog 类。

Private Sub Label1_Click(ByVal sender As Object, ByVal e As EventArgs) _
     Handles Label1.Click  

    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

Answer 2

这是执行此操作的方法：

    ColorDialog1.ShowDialog()
    paperLabel.BackColor = Me.ColorDialog1.color