Шаг 5 - Свойство DayFont

Свойство DayFont определяет шрифт, используемый для отображения дней недели в календаре.

Синтаксис:

имяЭлемента.DayFont[ = имя ]
имяЭлемента.DayFont.Name[ = имя ]
имяЭлемента.DayFont.Size[ = размер ]
имяЭлемента.DayFont.Bold[ = полужирный ]
имяЭлемента.DayFont.Italic[ = наклонный ]
имяЭлемента.DayFont.Underline[ = подчеркнутый ]
имяЭлемента.DayFont.Strikethrough[ = перечеркнутый ]

Значения:
Свойство DayFont использует следующие значения:

Значение данного свойства может быть задано в окне специальных свойств или в программе Visual Basic.

Дополнительные сведения:
Свойство DayFont возвращает объект, имеющий дополнительные свойства Name, Size, Bold, Italic, Underline и Strikethrough. Эти свойства позволяют установить атрибуты шрифта для дней недели в календаре.

Свойство Name является используемым по умолчанию свойством объекта, возвращаемого свойством DayFont. Поэтому для указания шрифта достаточно задать строковое значение для свойства DayFont без явной ссылки на свойство Name.

Примечание. При использовании ключевого слова WithEvents для создания процедуры обработки события элемента управления календаря необходимо установить ссылку на библиотеку OLE Automation, прежде чем станет возможным задание или возвращение значения свойства DayFont. Чтобы установить эту ссылку, выберите в режиме конструктора модулей в меню Сервис команду Ссылки и установите флажок OLE Automation. Эта библиотека типа содержится в файле Stdole2.tlb, который по умолчанию помещается в каталог System Microsoft Windows.

Пример:

В следующем примере производится установка свойств календаря во время загрузки формы. Для его запуска необходимо поместить в форму календарь ActiveXCtl0 и вставить в соответствующий модуль следующий код:

Private Sub Form_Load()
	Dim ctl As Control

	Set ctl = Me!ActiveXCtl0
	' Устанавливает шрифт для дней недели.
	With ctl.DayFont
		.Name = "Arial Cyr"
		.Size = 10
		.Bold = True
		.Italic = True
	End With

	' Устанавливает шрифт для дней месяца.
	With ctl.GridFont
		.Name = "Times New Roman Cyr"
		.Size = 12
		.Bold = False
		.Italic = True
	End With
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.