You can use the set colour dialog to allow the user to select a system color. Below are the most common parameters you will need to set before displaying the Open Dialog Box.
| Parameter | Changes... |
| DialogTitle | the Title displayed in the Dialog Box |
| Color | the selected color |
| Flags | custom settings such as disable custom color button. |
| CancelError | whether an error occurs when the dialog box is cancelled. |
The following code displays a colour dialog. When the user clicks OK, it sets the forms background colour to the one selected.
' Sets the Dialog Title to Save File
CommonDialog1.DialogTitle = "Select Colour"
CommonDialog1.CancelError = True
' Set flags - enabled the Custom Color button
CommonDialog1.Flags = cdlCCFullOpen
' Enables error handling to catch cancel error
On Error Resume Next
' display the set colour dialog box
CommonDialog1.ShowColor
If Err Then
' This code runs if the dialog was cancelled
Msgbox "Dialog Cancelled"
Exit Sub
End If
' Sets Form1 background color to the selected colour
Form1.Backcolor = CommonDialog1.Color
Comments