|
::Главная страница :: Visual Basic :: Статьи _ Часть 1 :: Часть 2 :: Часть 3 :: Часть 4 :: Часть 5 :: Часть 6 |
Часть#4 |
А. Мнацаканян |
Окно диалога Font
Для
вызова окна диалога Font неоходимо свойство
CommonDialog1.Action установить в 4
или же применить метод ShowFont.
Но, прежде необходимо установить необходимое Вам для работы значение свойства
Flags
и назначить ряд свойств.
Значение
свойства Flags
необходимо выбрать из таблицы.
Константы |
Значения |
Описание |
cdlCFANSIOnly |
&H400& |
Диалоговое окно позволяет только выбор шрифтов, которые используют набор символов Windows. |
cdlCFBoth | &H3& | Диалоговое окно открывает список шрифтов доступных дисплею и принтеру. |
cdlCFEffects |
&H100& |
Диалоговое окно допускает перечеркивание, подчеркивание, и цветовые эффекты. |
cdlCFFixedPitchOnly | &H4000& | Диалоговое окно отображаетр шрифты устанавливаемого - шага. |
cdlCFForceFontExist | &H10000& | Отображается окно ошибки, если пользователь выбирает шрифт или стиль, который не существует. |
cdlCFLimitSize | &H2000& | Диалоговое окно выбрает шрифта размеры которых находятся в диапазоне, определенными свойствами Минимумом и Максимум. |
cdlCFNoSimulations | &H1000& | Диалоговое окно запрещает выбор графических шрифтов |
cdlCFNoVectorFonts | &H800& | Диалоговое окно запрещает выбор векторных шрифтов. |
cdlCFPrinterFonts | &H2& | Диалоговое окно открывает список шрифтов, поддерживаемых принтером. |
cdlCFScalableOnly | &H20000& | Диалоговое окно отображает только масштабируемые шрифты. |
cdlCFScreenFonts |
&H1& | Диалоговое окно открывает список только экранных шрифтов, поддерживаемых системой. |
cdlCFHelpButton | &H4& | Диалоговое окно отображает кнопку Help. |
cdlCFTTOnly |
&H40000& |
Диалоговое окно отображает только TrueType шрифты. |
cdlCFWYSIWYG |
&H8000& | Диалоговое окно отображает шрифты доступные и экрану и принтеру. Если этот флаг установлен, также должны быть установлены флаги cdlCFBoth и cdlCFScalableOnly. |
Примечание.
Вы можете устанавить несколько
флажгов
для
диалогового окна, используя оператор 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 полностью готов к работе.
Тематические
ссылки
|
Ваша ссылка | Ваша ссылка |
Обмен кнопками, ведение статистики, реклама. |
|||