Вопрос: Какой язык программирования вы предпочитаете
|
Иллюстрированный самоучитель по Visual Basic 6.0
Гл 7.htm
назад | содержание
| вперед
Диалоговое окно настройки шрифтов
текста
Для вызова диалогового окна настройки
шрифтов (рис. 7.26) необходимо в событие click кнопки cbcontrol ввести следующий
код:
Private Sub cbControl_Click()
cdlMyDialog.Flags = cdlCFBoth +
cdlCFEffects
cdlMyDialog.ShowFont
End Sub
Рис. 7.26. Диалоговое окно
настройки шрифта, открытое с использованием объекта CommonDialog
Флаги диалогового окна настройки
шрифтов перечислены в табл. 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
|
назад | содержание
| вперед
|
|
|