Выбор цвета с помощью 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 -- выбор несплошных цветов

По умолчанию все параметры выключены.

См. также

Персональные инструменты
Пространства имён

Варианты
Действия
Навигация
Инструменты