VB颜色对话框ShowColor

“ 本节课程学习ShowColor颜色对话框”

上节课程一起学习了ShowSave保存对话框，本节课程将学习的是颜色对话框。

颜色对话框，为用户提供一个颜色选择器，用户选择一个颜色后，可以返回这个颜色的值。

首先，将对话框控件添加到窗体上。

然后，设置对话框属性。比如：

'设置取消报错 
CommonDialog1.CancelError = True
'设置flags属性
CommonDialog1.Flags = cdlCCRGBInit

注意：以上属性设置并不是必须要设置的，即使不进行属性设置，也是可以直接使用ShowColor方法的。

其中Flags属性具有以下值：

接着，使用ShowColor方法弹出颜色对话框。

CommonDialog1.ShowColor
1

最后，获取用户选择的颜色

CommonDialog1.Color
1

完整的举例，如下:

Private Sub Command1_Click() 
    '设置取消报错
    CommonDialog1.CancelError = True
    '设置flags属性
    CommonDialog1.Flags = cdlCCRGBInit
    On Error GoTo err
    '弹出颜色对话框
    CommonDialog1.ShowColor
    '使用颜色值改变窗体背景色
    Me.BackColor = CommonDialog1.Color
    Exit Sub
err:
    MsgBox "用户未选择颜色"
End Sub
5
6
7
8
9
10
11
12
13
14

颜色对话框

获取颜色并改变背景