Основы VBA. Часть 9

Диалоговое окно Color

В диалоговом окне Color (Цвет) поль зователь может выбрать цвет из палитры или соз дать и выбрать собственный цвет. Во время вы полнения, когда пользователь выбирает цвет и закрывает окно диалога, можно использовать свойство color (Цвет) для получения выбранного цвета.
Чтобы отобразить диалоговое окно Color, следует:
1. Установить значение свойства Flags (Флажки) для элемента управления Common Dialog равным константе cdlccRGBinit.
2. Методом showColor отобразить окно диалога.
Можно использовать свойство Color для получения RGB-значения выбран ного пользователем цвета. Следующий код отображает диалоговое окно Color, когда пользователь щелкает на кнопке управления command1:
Private Sub Command1_Click ()
’ Установка свойства Cancel в True.
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
’ Установка свойства Flags.
CommonDialog1.Flags = cdlCCRGBInit
’ Отображение окна диалога Color.
CommonDialog1.ShowColor
’ Установка цвета фона формы в соответствии с выбранным
цветом
Form1.BackColor = CommonDialog1.Color
Exit Sub
ErrHandler:
’ Пользователь нажал кнопку Cancel.
Exit Sub
End Sub

Диалоговое окно Font

В диалоговом окне Font (Шрифт) пользователь может выбрать шрифт, а также его размер, цвет и стиль. Свойства, содержащие информа цию о характеристиках шрифта, перечислены в табл.

Чтобы отобразить диалоговое окно Font, следует:
1. Установить значение свойства Flags равным значению одной из констант:
• cdlCFScreenFonts (экранные шрифты)
• cdlCFPrinterFonts (шрифты принтера)
• cdlCFBoth (шрифты и для экрана, и для принтера)
Значение свойства Flags должно быть установлено равным одному из этих значений до отображения диалогового окна Font. В противном случае возник нет ошибка «No fonts exist» (Нет ни одного шрифта).
2. Методом showFont отобразить окно диалога.
Следующий код устанавливает свойства шрифта для текстового поля на ос новании параметров, выбранных пользователем в диалоговом окне Font:
Private Sub Command1_Click ()
’ Установка свойства Cancel в True. CommonDialog1.CancelError = True
On Error GoTo ErrHandler
’ Установка свойства Flags.
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
’ Отображение диалога Font.
CommonDialog1.ShowFont
’ Установка свойств текстового окна
’ в соответствии с выбором пользователя.
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru =CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
’ Пользователь нажал кнопку Cancel.
Exit Sub
End Sub