使用“颜色”对话框

可用“颜色”对话框在调色板中选择颜色，或者创建并选定自定义颜色。运行时，选定颜色并关闭对话框后可用 Color 属性获取选定的颜色。

图 7.13 “颜色”对话框

要显示“颜色”对话框，请

1. 将 CommonDialog 控件的 Flags 属性设置成 Visual Basic 常数 cdlCCRGBInit。
   
   
2. 用 ShowColor 方法显示对话框。

可用 Color 属性获取选定颜色的 RGB 值。单击“Command1”命令按钮时，下列代码将显示“颜色”对话框：

Private Sub Command1_Click ()
   '将 Cancel 设置成 True。
   CommonDialog1.CancelError = True
   On Error GoTo ErrHandler
   '设置 Flags 属性。
   CommonDialog1.Flags = cdlCCRGBInit
   '显示“颜色”对话框。
   CommonDialog1.ShowColor 
   '将窗体的背景颜色设置成选定的
   '颜色。
   Form1.BackColor = CommonDialog1.Color
   Exit Sub

ErrHandler:
   '用户按了“取消”按钮。
   Exit Sub
End Sub

详细信息 关于 Flag 属性常数完整的列表，请参阅《语言参考》的“CommonDialog 控件常数”。