Работа с элементом управления 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 полностью готов к работе.