Выбор цвета с помощью TColorDialog
Материал из GedeminWiki
Класс TColorDialog позволяет обратиться к стандартному диалоговому окну выбора цвета, предоставляемому операционной системой.
Option Explicit Sub SelectColor Dim C Set C = Designer.CreateObject(nil, "TColorDialog", "") C.Options = "cdFullOpen cdAnyColor" If C.Execute Then MsgBox "Выбран цвет: " & C.Color End If Designer.DestroyObject(C) End Sub
Свойство Color определяет выбранный или установленный цвет.
Свойство Options включает следующие параметры:
- cdFullopen -- отображение дополнительной панели выбора цвета
- cdPreventFullOpen -- отключение кнопки Define Custom Color
- cdShowHelp -- отображение кнопки Help
- cdSolidColor -- задание вместо выбранного цвета ближайшего сплошного цвета
- cdAnyColor -- выбор несплошных цветов
По умолчанию все параметры выключены.