Диалоговое окно настройки шрифтов текста

Диалоговое окно настройки цветовой палитры

Диалоговое окно сохранения файла

Для поиска файла, в котором будут сохранены данные из программы, используется диалоговое окно сохранения файла (рис. 7.23). Это диалоговое окно вызывается так же, как окно открытия файла. Для его создания в событии click кнопки cbControl приложения MySmallProject необходимо заменить код на следующий:

Private Sub cbControl_Click()

cdlMyDialog.ShowSave

End Sub

Как видно из рисунка, это диалоговое окно аналогично окну, предназначенному для открытия файла. Флаги этого диалогового окна перечислены в табл. 7.12.

Для настройки цвета фона формы и расположенных в форме элементов можно использовать диалоговое окно настройки цветовой палитры (рис. 7.24). Для вызова этого диалогового окна необходимо заменить код в событии click кнопки cbcontrol приложения MySmallProject на следующий:

Private Sub cbControl_Click()

cdlMyDialog.ShowColor

End Sub

Константы, используемые для настройки диалогового окна выбора цветовой палитры, перечислены в табл. 7.13. Расширенное диалоговое окно настройки цветовой палитры можно создать с помощью объекта CommonDialog (рис. 7.25).

Таблица 7.13. Значения для метода Flags диалогового окна цветовой палитры

Константа	Значение	Описание
cdlCCFullOpen	&H2	Помещает в диалоговое окно дополнительную кнопку Добавить в набор и цветовое поле с маркером и линейкой назначения оттенка для добавления цветов в поля Дополнительные цвета диалогового окна цветовой палитры (рис. 7.25)
cdlCCShowHelp	&H8	Добавляет в диалоговое окно кнопку Справка
cdlCCPreventFullOpen	&H4	Скрывает кнопку Добавить в набор
cdlCCRGBInit	&H1	Восстанавливает в диалоговом окне исходный набор цветов

Для вызова диалогового окна настройки шрифтов (рис. 7.26) необходимо в событие click кнопки cbcontrol ввести следующий код:

Private Sub cbControl_Click()

cdlMyDialog.Flags = cdlCFBoth + cdlCFEffects

cdlMyDialog.ShowFont

End Sub

Флаги диалогового окна настройки шрифтов перечислены в табл. 7.14.

Таблица 7.14. Значения для метода Flags диалогового окна настройки шрифтов

Константа	Значение	Описание
cdlCFANSIOnly	&H400	Назначает выбор только из системных наборов шрифтов Windows
cdlCFApply	&H200	Добавляет в диалоговое окно кнопку Применить
cdlCFBoth	&H3	Назначает использование экранных шрифтов принтера, указанного в свойстве hDC
CdlCFEffects	&H100	Указывает на необходимость размещения в диалоговом окне элементов управления, задающих эффект подчеркивания, зачеркивания и цвета
cdlCFForceFontExis	it &H10000	Назначает вывод предупреждения об ошибке при выборе несуществующего шрифта
cdlCFHelpButton	&H4	Добавляет в диалоговое окно кнопку Справка
cdlCFLimitSize	&H2000	Назначает выбор размеров шрифтов в интервале, указанном в свойствах Min и Мах
cdlCFNoFaceSel	&H80000	Отключает выбор наименования шрифта
cdlCFNoSizeSel	&H1000	Отключает выбор размера шрифта
cdlCFNoSimulations	&H200000	Отключает в диалоговом окне графические шрифты
cdlCFNoStyleSel	&H100000	Отключает выбор стиля шрифта
cdlCFNoVectorFonts	&H800	Отключает выбор векторных шрифтов
cdlCFPrinterFonts	&H2	Назначает выбор только шрифтов принтера, который указан в свойстве hDC
cdlCFScreenFonts	&H1	Назначает выбор только экранных шрифтов системы
cdlCFTTOnly	&H40000	Назначает только выбор шрифтов типа True Type
CdlCFWYSIWYG	&H8000	Назначает выбор только тех шрифтов, которые подходят одновременно и для принтера, и для экрана. При этом должны дополнительно использоваться флаги cdlCFBoth и cdlCFScalableOnly

Дата добавления: 2014-12-23