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