Работа с элементом управления CommonDialog
Окно диалога Font Для
вызова окна диалога Font неоходимо
свойство CommonDialog1.Action установить
в 4 или же применить метод ShowFont.
Но, прежде необходимо установить необходимое Вам для работы значение свойства
Flags
и назначить ряд свойств. Значение
свойства Flags
необходимо выбрать из таблицы.
Примечание.
Вы можете устанавить несколько
флажгов
для
диалогового окна, используя оператор Or.
Например:
CMDialog1.Flags = cdlCFBoth Or
CdlCFEffects Совет.
Всегда устанавливайте флаг cdlCFBoth , т.к. если его не установить появляется диалоговое окно
Windows , которое предупреждает Вас, что нет инталлированных шрифтов. И так, устанавливаем свойство Flags CommonDialog1.Flags
= cdlCFBoth Or
cdlCFEffects Or
cdlCFLimitSize Or
cdlCFTTOnly Or
dlCFForceFontExist Так как мы выбрали один из флагов - cdlCFLimitSize, небходимо задать свойствам Min и Max CommonDialog – а, значения минимального и максимального размера шрифта, которые будут отображаться при открытии окно диалога Font. CommonDialog1.Min = 8 CommonDialog1.Max = 22 Установите
свойство CancelError
в True и сделайте так,
как описанно в окне диалога Open. Теперь
рассмотрим несколько свойств CommonDialog
- а, которые мы используем для передачи выбранных значений шрифта,
его размера и других свойств которые Вы назначите выбранному шрифту. ·
Свойство FontName
– возвращает имя выбранного шрифта; ·
Свойство FontBold
– возвращает значение выбрана ли опция (True)
или не выбрана (False); ·
Свойство
FontItalic - возвращает значение выбрана ли опция (True)
или не выбрана (False); Примечание.
При Вашем выборе опции BoldItalic,
свойство FontBold
и свойство FontItalic вернут
значение True. ·
Свойство FontSize
- возвращает реазмер выбранного шрифта; ·
Свойство FontStrikethru
– (перечеркивание) возвращает значение выбрана ли опция (True) или не выбрана
(False); ·
Свойство FontUnderline
– (подчеркивание) возвращает значение выбрана ли опция (True)
или не выбрана (False); ·
Свойство Color
- возвращает выбранный цвет шрифта; Теперь
скомпануем все вышеописанное в упорядоченный код: Private
Sub mnuFont_Click() 'Если
возникнет ошибка, т.е пользователь нажaл на клавишу
Cancel, ‘отправиться
к обработчику ошибки - ErrorHandler On Error
GoTo ErrorHandler 'Обеспечиваем
генерацию ощибки CommonDialog1.CancelError
= True ‘Устанавливаем
тип отображения диалогово окна Font CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects Or cdlCFLimitSize Or cdlCFTTOnly Or dlCFForceFontExist ‘Устанавливаем
значения минимального и максимального размера шрифта
CommonDialog1.Min = 8 CommonDialog1.Max = 22 'Вызываем
диалог Font CommonDialog1.Action = 4
'Или же
CommonDialog1.ShowFont 'Присваиваем
выбранные свойства(к примеру текстовому полю) Text1.FontName = CommonDialog1.FontName Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontSize = CommonDialog1.FontSize Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Exit Sub 'Обработка
перехватываемой ошибки ErrorHandler: If
Err.Number = 32755 Then Exit
Sub End
If Теперь
диалог Font полностью готов
к работе. |