Работа с элементом управления CommonDialog - Окно диалога Color

Для вызова окна диалога Color неоходимо свойство CommonDialog1.Action установить в 3 или же применить метод ShowColor. Но, прежде необходимо установить необходимое Вам для работы значение свойства Flags равным одной из ниже перечисленных констант.

Не забудте вставить в код обработчик нажатия на кнопку Cancel.

 Private Sub mnuColor_Click()

 'Если возникнет ошибка, т.е пользователь нажaл на клавишу Cancel,

‘отправиться к обработчику ошибки -  ErrorHandler

On Error GoTo ErrorHandler

 'Обеспечиваем генерацию ощибки

CommonDialog1.CancelError = True 

‘Устанавливаем тип отображения диалогово окна Color

CommonDialog1.Flags = CdlCCRGBInit        

 'Вызываем диалог Color

CommonDialog1.Action = 3  'Или же CommonDialog1.ShowSave

 'Установка цвета (к примеру фона формы)

Me.BackColor = CommonDIalog1.Color

 Exit Sub

 'Обработка перехватываемой ошибки

ErrorHandler:

 If Err.Number = 32755 Then

                                    Exit Sub 

End If 

End Sub

 Теперь диалог Color полностью готов к работе.