Работа с элементом управления CommonDialog

Работа с элементом управления CommonDialog

Окно диалога Color

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

Константы	Значения	Описание
cdlCCRGBInit	0x1	Устанавливает начальное значение цветов для диалогового окна
cdlCCFullOpen	0x2	Диалоговое окно отображается с развернутой палитрой Define Custom Colors
cdlCCPreventFullOpen	0x4	Диалоговое окно отображается с отключенной палитрой Define Custom Colors
cdlCCHelpButton	0x8	Диалоговое окно отображается с кнопкой Help

Не забудте вставить в код обработчик нажатия на кнопку 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 полностью готов к работе.

На главную К списку статей