Обмен кнопками, ведение статистики, реклама.
|
|
| ::Главная страница :: Visual Basic :: Статьи _ Часть 1 :: Часть 2 :: Часть 3 :: Часть 4 :: Часть 5 :: Часть 6 |
|
Часть#3 |
А. Мнацаканян |
Окно
диалога 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 полностью готов к работе.
|
Тематические
ссылки
|
| Ваша ссылка | Ваша ссылка |
|
Обмен кнопками, ведение статистики, реклама. |
|||
|
|
|
|
|