2014年计算机二级VB基础教程（109）：Color对话框

Color对话框

下面的过程可用用户选择的颜色作为窗体的底色。

Private Sub mnuColor_Click ()
On Error GoTo CancelButton
CommonDialog1.CancelError = True
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
CancelButton:
Exit Sub
End Sub