Свойство календаря «Выделенная дата» (Value)

В Microsoft Access допускается присоединение календаря к полям таблицы или запроса формы, в которые он помещен, что дает возможность просмотра даты на основании данных приложения.

Для этого используется свойство полей Данные (ControlSource). Поле в этом случае должно иметь тип «Дата/Время».

В установленном календаре отображается значение данного поля для всех записей формы. Указание значения свойства Value приводит к заданию соответствующего поля в таблице.


Свойства DayFont, GridFont, пример

В следующем примере производится установка свойств календаря во время загрузки формы. Для его запуска необходимо поместить в форму календарь 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


Метод NextDay, пример

В данном примере при нажатии кнопки «СледующийДень» выводится календарь, в котором текущим становится значение следующего дня.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и кнопку «СледующийДень» и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

Private Sub СледующийДень_Click()

Me!ActiveXCtl0.NextDay

End Sub


Метод NextMonth, пример

В данном примере при нажатии кнопки «СледующийМесяц» выводится календарь, в котором текущим становится значение следующего месяца.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и кнопку «СледующийМесяц» и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

Private Sub СледующийМесяц_Click()

Me!ActiveXCtl0.NextMonth

End Sub


Метод NextWeek, пример

В данном примере при нажатии кнопки «СледующаяНеделя» выводится календарь, в котором текущим становится значение следующей недели.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и кнопку «СледующаяНеделя» и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

Private Sub СледующаяНеделя_Click()

Me!ActiveXCtl0.NextWeek

End Sub


Метод NextYear, пример

В данном примере при нажатии кнопки «СледующийГод» выводится календарь, в котором текущим становится значение следующего года.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и кнопку «СледующийГод» и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

Private Sub СледующийГод_Click()

Me!ActiveXCtl0.NextYear

End Sub


Метод PreviousDay, пример

В данном примере при нажатии кнопки «ПредыдущийДень» выводится календарь, в котором текущим становится значение предыдущего дня.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и кнопку «ПредыдущийДень» и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

Private Sub ПредыдущийДень _Click()

Me!ActiveXCtl0.PreviousDay

End Sub


Метод PreviousMonth, пример

В данном примере при нажатии кнопки «ПредыдущийМесяц» выводится календарь, в котором текущим становится значение предыдущего месяца.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и кнопку «ПредыдущийМесяц» и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

Private Sub ПредыдущийМесяц _Click()

Me!ActiveXCtl0.PreviousMonth

End Sub


Метод PreviousWeek, пример

В данном примере при нажатии кнопки «ПредыдущаяНеделя» выводится календарь, в котором текущим становится значение предыдущей недели.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и кнопку «ПредыдущаяНеделя» и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

Private Sub ПредыдущаяНеделя _Click()

Me!ActiveXCtl0.PreviousWeek

End Sub


Метод PreviousYear, пример

В данном примере при нажатии кнопки «ПредыдущийГод» выводится календарь, в котором текущим становится значение предыдущего года.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и кнопку «ПредыдущийГод» и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

Private Sub ПредыдущийГод _Click()

Me!ActiveXCtl0.PreviousYear

End Sub


Метод Refresh, свойство FirstDay, пример

В следующем примере разрешен выбор из поля со списком дня недели, определяющего первый день недели в календаре.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и поле со списком Combo1 и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

' Создание поля со списком.

Private Sub Form_Load()

Dim cbo As ComboBox

Set cbo = Me!Combo1

' Задает вид источника значений.

cbo.RowSourceType = "Список значений"

' Задает значения.

cbo.RowSource = "Воскресенье;Понедельник"

End Sub

Private Sub Combo1_AfterUpdate()

Dim ctl As Control

' Возвращает ссылку на календарь.

Set ctl = Me!ActiveXCtl0

'Задает для свойства FirstDay значение из поля со списком.

If Combo1 = "Воскресенье" Then

' Устанавливает первым днем недели воскресенье.

ctl.FirstDay = 1

Else

' Устанавливает первым днем недели понедельник.

ctl.FirstDay = 2

End If

' Обновляет календарь с помощью метода Refresh.

ctl.Refresh

End Sub


Календарь

Элемент управления-календарь представляет помесячный календарь, который может быть вставлен в форму.

Имя файла

Mscal.ocx

Дополнительные сведения

Элемент управления-календарь поддерживает свойства, с помощью которых пользователь задает или возвращает дату и определяет внешний вид календаря. Календарь поддерживает методы, с помощью которых задается соответствующий день, месяц и год, выполняется обновление календаря и выводится диалоговое окно О программе. Кроме того, календарь поддерживает события, с помощью которых в приложение передается информация о том, что пользователь перешел на новую дату в календаре, о нажатии или двойном нажатии кнопки мыши пользователем на поле даты или о нажатии клавиши пользователем.


Свойства календаря

В следующей таблице перечислены свойства элемента управления-календаря.

Свойство	Описание
BackColor	Определяет цвет фона календаря.
Day	Содержит значение текущего дня.
DayFont	Определяет шрифт, используемый для отображения дней недели.
DayFontColor	Определяет цвет, используемый для отображения дней недели.
DayLength	Определяет формат дней недели.
FirstDay	Определяет первый день недели в календаре.
GridCellEffect	Определяет оформление ячеек календаря.
GridFont	Определяет шрифт, используемый для отображения чисел в ячейках календаря.
GridFontColor	Определяет цвет, используемый для отображения чисел в ячейках календаря.
GridLinesColor	Определяет цвет линий сетки календаря, свойство GridCellEffect которого установлено в Flat (0).
Month	Содержит значение текущего месяца.
MonthLength	Определяет формат месяцев.
ShowDateSelectors	Выводит на экран или скрывает поля со списками месяцев и годов.
ShowDays	Выводит на экран или скрывает название дней недели.
ShowHorizontalGrid	Выводит на экран или скрывает горизонтальные линии сетки календаря, свойство GridCellEffect которого установлено в Flat (0).
ShowTitle	Выводит на экран или скрывает заголовок, содержащий месяц и год.
ShowVerticalGrid	Выводит на экран или скрывает вертикальные линии сетки календаря, свойство GridCellEffect которого установлено в Flat.
TitleFont	Определяет шрифт, используемые для вывода месяца и года над сеткой календаря.
TitleFontColor	Определяет цвет, используемые для вывода месяца и года над сеткой календаря.
Value	Содержит значение, соответствующее выделенной в календаре дате.
ValueIsNull	Включает или отключает выделение текущей даты.
Year	Содержит значение текущего года.


Методы календаря

В следующей таблице перечислены методы элемента управления-календаря.

Метод	Описание
AboutBox	Выводит сведения о версии программы и информацию об авторских правах.
NextDay	Увеличивает текущее число календаря на единицу.
NextMonth	Увеличивает текущий месяц календаря на единицу.
NextWeek	Увеличивает текущую неделю календаря на единицу.
NextYear	Увеличивает текущий год календаря на единицу.
PreviousDay	Уменьшает текущее число календаря на единицу.
PreviousMonth	Уменьшает текущий месяц календаря на единицу.
PreviousWeek	Уменьшает текущую неделю календаря на единицу.
PreviousYear	Уменьшает текущий год календаря на единицу.
Refresh	Обновляет изображение календаря.
Today	Делает текущей датой календаря сегодняшнюю дату.


События календаря

В следующей таблице перечислены события элемента управления-календаря.

Событие	Описание
После обновления (AfterUpdate)	Возникает после выбора пользователем новой даты в календаре и после обновления изображения календаря.
До обновления (BeforeUpdate)	Возникает после выбора пользователем даты в календаре, но до обновления изображения календаря.
Нажатие кнопки (Click)	Возникает при выборе пользователем даты в календаре.
Двойное нажатие кнопки (DblClick)	Возникает при двойном нажатии кнопки мыши в ячейке даты в календаре.
Клавиша вниз (KeyDown)	Возникает при нажатии клавиши пользователем в тот момент, когда календарь имеет фокус.
Нажатие клавиши (KeyPress)	Возникает после того, как пользователь нажимает и отпускает клавишу, соответствующую символу ANSI в тот момент, когда календарь имеет фокус.
Клавиша вверх (KeyUp)	Возникает после того, как пользователь отпускает клавишу в тот момент, когда календарь имеет фокус.
NewMonth	Возникает при изменении значения месяца в дате календаря.
NewYear	Возникает при изменении значения года в дате календаря.


Свойство календаря «Цвет фона» (BackColor)

Свойство Цвет фона (BackColor) определяет цвет фона календаря.

Синтаксис

Значением свойства BackColor является величина типа Long, представляющая цвет в модели RGB.

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

Дополнительные сведения

Пользователь имеет возможность определить свойство BackColor с помощью функции RGB Visual Basic. Допустимые значения цветов в модели RGB лежат в диапазоне от 0 до 16777215.

Для указания значения, соответствующего системному цвету, можно также использовать вкладку Оформление окна свойств экрана панели управления Windows. Простейшим способом определения свойства BackColor через системный цвет является выбор цвета на вкладке Цвет окна специальных свойств календаря.

В Microsoft Windows определен набор отрицательных чисел, соответствующих системным цветам, позволяющий устанавливать свойство Цвет фона (BackColor) из программы Visual Basic. Эти числа служат для описания различных компонентов окна приложения (например, рамки окна или текста в строке заголовка). Для определения числа, описывающего конкретный цвет, следует установить этот цвет и прочитать значение свойства BackColor.

В случае, когда значение свойства BackColor не задано, в качестве цвета фона календаря используется системный цвет.


Свойство Day

Свойство Day определяет текущий день в календаре.

Значение

Значением свойства Day является числовое выражение в диапазоне от 1 до 31, в зависимости от месяца и года, представляющее день в значении даты.

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


Свойство DayFont

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

Синтаксис

имяЭлемента.DayFont[ = имя ]

имяЭлемента.DayFont.Name[ = имя ]

имяЭлемента.DayFont.Size[ = размер ]

имяЭлемента.DayFont.Bold[ = полужирный ]

имяЭлемента.DayFont.Italic[ = наклонный ]

имяЭлемента.DayFont.Underline[ = подчеркнутый ]

имяЭлемента.DayFont.Strikethrough[ = перечеркнутый ]

Значения

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

Значение	Visual Basic
имяЭлемента	Имя объекта календаря.
имя	Строковое выражение, представляющее имя шрифта.
размер	Числовое выражение, представляющее размер шрифта.
полужирный	Логическое выражение, определяющее использование полужирного шрифта.
наклонный	Логическое выражение, определяющее использование наклонного шрифта.
подчеркнутый	Логическое выражение, определяющее использование шрифта с подчеркиванием.
перечеркнутый	Логическое выражение, определяющее использование шрифта с перечеркиванием.
Значение данного свойства может быть задано в окне специальных свойств или в программе Visual Basic.

Дополнительные сведения

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

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

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


Свойство DayFontColor

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

Значения

Значением свойства DayFontColor является величина типа Long, описывающая цвет в модели RGB.

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

Дополнительные сведения

Пользователь имеет возможность определить свойство DayFontColor с помощью функции RGB Visual Basic. Допустимые значения цветов в модели RGB лежат в диапазоне от 0 до 16777215.

Для указания значения, соответствующего системному цвету, можно также использовать вкладку Оформление окна свойств экрана панели управления Windows. Простейшим способом определения свойства DayFontColor через системный цвет является выбор цвета на вкладке Цвет окна специальных свойств календаря.

В Microsoft Windows определен набор отрицательных чисел, соответствующих системным цветам, позволяющий устанавливать свойство DayFontColor из программы Visual Basic. Эти числа служат для описания различных компонентов окна приложения (например, рамки окна или текста в строке заголовка). Для определения числа, описывающего конкретный цвет, следует установить этот цвет и прочитать значение свойства DayFontColor.

В случае, когда значение свойства DayFontColor не определено, в качестве цвета дней недели используется системный цвет.


Свойство DayLength

Свойство DayLength определяет формат отображения дней недели в календаре (короткий, средний или длинный).

Значения

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

Значение	Отображение на экране	Visual Basic
Короткий	П, В, С, Ч, П, С, В	0
Средний	Пн, Вт, Ср, Чт, Пт, Сб, Вс	1
Длинный	Понедельник, Вторник, Среда, Четверг, Пятница, Суббота, Воскресенье	2
Значение данного свойства может быть задано в окне специальных свойств или в программе Visual Basic.


Свойство FirstDay

Свойство FirstDay делает первым столбцом в календаре столбец указанного дня недели.

Значения

Значением свойства FirstDay является численное выражение, соответствующее дню недели.

Значение	Visual Basic
Воскресенье	1
Понедельник	2
Вторник	3
Среда	4
Четверг	5
Пятница	6
Суббота	7
Значение данного свойства может быть задано в окне специальных свойств или в программе Visual Basic.


Свойство GridFont

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

Значения

имяЭлемента.GridFont[ = имя ]

имяЭлемента.GridFont.Name[ = имя ]

имяЭлемента.GridFont.Size[ = размер ]

имяЭлемента.GridFont.Bold[ = полужирный ]

имяЭлемента.GridFont.Italic[ = наклонный ]

имяЭлемента.GridFont.Underline[ = подчеркнутый ]

имяЭлемента.GridFont.Strikethrough[ = перечеркнутый ]

Значения

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

Значение	Visual Basic
имяЭлемента	Имя календаря.
имя	Строковое выражение, представляющее имя шрифта.
размер	Числовое выражение, представляющее размер шрифта.
полужирный	Логическое выражение, определяющее использование полужирного шрифта.
наклонный	Логическое выражение, определяющее использование наклонного шрифта.
подчеркнутый	Логическое выражение, определяющее использование шрифта с подчеркиванием.
перечеркнутый	Логическое выражение, определяющее использование шрифта с перечеркиванием горизонтальной линией.
Значение данного свойства может быть задано в окне специальных свойств или в программе Visual Basic.

Дополнительные сведения

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

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

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


Свойство GridFontColor

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

Значения

Значением свойства GridFontColor является величина типа Long, представляющая цвет в модели RGB.

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

Дополнительные сведения

Пользователь имеет возможность определить свойство GridFontColor с помощью функции RGB Visual Basic. Допустимые значения цветов в модели RGB лежат в диапазоне от 0 до 16777215.

Для указания значения, соответствующего системному цвету, можно также использовать вкладку Оформление окна свойств экрана панели управления Windows. Простейшим способом определения свойства GridFontColor через системный цвет является выбор цвета на вкладке Цвет окна специальных свойств календаря.

В Microsoft Windows определен набор отрицательных чисел, соответствующих системным цветам, позволяющий устанавливать свойство GridFontColor из программы Visual Basic. Эти числа служат для описания различных компонентов окна приложения (например, рамке окна или тексту в строке заголовка. Для определения числа, описывающего конкретный цвет, следует установить этот цвет и прочитать значение свойства GridFontColor.

В случае, когда значение свойства GridFontColor не определено, в качестве цвета дней календаря используется системный цвет.


Свойство GridLinesColor

Свойство GridLinesColor определяет цвет линий сетки для календаря с плоским оформлением.

Значение

Значением свойства GridLinesColor является величина типа Long, представляющая цвет в модели RGB.

Перед его установкой необходимо убедиться, что для свойства GridCellEffect установлено значение «Обычное» (0), в противном случае изменение значения свойства GridLinesColor не имеет последствий.

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

Дополнительные сведения

Пользователь имеет возможность определить свойство GridLinesColor с помощью функции RGB Visual Basic. Допустимые значения цветов в модели RGB лежат в диапазоне от 0 до 16777215.

Для указания значения, соответствующего системному цвету, можно также использовать вкладку Оформление окна свойств экрана панели управления Windows. Простейшим способом определения свойства GridLinesColor через системный цвет является выбор цвета на вкладке Цвет окна специальных свойств календаря.

В Microsoft Windows определен набор отрицательных чисел, соответствующих системным цветам, позволяющий устанавливать свойство GridLinesColor из программы Visual Basic. Эти числа служат для описания различных компонентов окна приложения (например, рамки окна или текста в строке заголовка). Для определения числа, описывающего конкретный цвет, следует установить этот цвет и прочитать значение свойства GridLinesColor.

В случае, когда значение свойства GridLinesColor не определено, в качестве цвета линий сетки календаря используется системный цвет.


Свойство GridCellEffect

Свойство GridCellEffect определяет объемное оформление ячеек календаря.

Значения

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

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

Дополнительные сведения

В случае присвоения данному свойству любого значения, кроме «Обычное», свойства GridLinesColor, ShowHorizontalGrid и ShowVerticalGrid не применяются.


Свойство Month

Свойство Month определяет месяц, представленный в календаре.

Значения

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

Значения	Visual Basic
Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь	1 2 3 4 5 6 7 8 9 10 11 12
Значение данного свойства может быть задано в окне специальных свойств или в программе Visual Basic.


Свойство MonthLength

Свойство MonthLength определяет формат (короткий или длинный) отображения названий месяцев в заголовке календаря.

Значения

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

Значения	Отображение на экране	Visual Basic
Короткий	Янв, Фев, Мар и т.д.	0
Длинный	Январь, Февраль, Март и т.д.	2
Значение данного свойства может быть задано в окне специальных свойств или в программе Visual Basic.


Свойство ShowDateSelectors

Свойство ShowDateSelectors определяет вывод полей со списками для выбора месяца и года.

Значения

Значением свойства ShowDateSelectors является логическая величина, для которой значение True (–1) определяет отображение полей со списками для выбора месяца и года в правом верхнем углу календаря.

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

Дополнительные сведения

Использование методов PreviousMonth, NextMonth, PreviousYear и NextYear возможно и без отображения полей выбора даты.


Свойство ShowDays

Свойство ShowDays определяет вывод строки с названиями дней недели в календаре.

Значения

Значением свойства ShowDays является логическая величина, для которой значение True (–1) определяет отображение в календаре названий дней недели.

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


Свойство ShowHorizontalGrid

Свойство ShowHorizontalGrid определяет вывод горизонтальных линий сетки в календаре.

Значения

Значением данного свойства является логическая величина.

При задании для свойств ShowHorizontalGrid и GridCellEffect значений True (–1) и «Обычное» (0) соответственно, в календаре отображаются горизонтальные линии. В случае, когда свойство GridCellEffect имеет значение, отличное от «Обычное», свойство ShowHorizontalGrid не применяется.

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


Свойство ShowTitle

Свойство ShowTitle определяет вывод месяца и года в заголовке календаря над сеткой.

Значения

Значением данного свойства является логическая величина, для которой значение True (–1) определяет отображение месяца и года в заголовке календаря.

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

Дополнительные сведения

Заголовок отображается в верхней части календаря над строкой дней недели и слева от поля выбора числа. В случае задания свойству ShowDateSelectors значения False (0), заголовок располагается в центре над строкой дней недели.


Свойство ShowVerticalGrid

Свойство ShowVerticalGrid определяет вывод вертикальных линий сетки в календаре.

Значения

Значением данного свойства является логическая величина.

Если свойство ShowVerticalGrid имеет значение True (–1) вместе со значением «Обычное» (0) свойства GridCellEffect, то в календаре отображаются вертикальные линии сетки. В случае, когда GridCellEffect имеет значение, отличное от «Обычное», свойство ShowVerticalGrid не применяется.

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


Свойство TitleFont

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

Синтаксис

имяЭлемента.TitleFont[ = имя ]

имяЭлемента.TitleFont.Name[ = имя ]

имяЭлемента.TitleFont.Size[ = размер ]

имяЭлемента.TitleFont.Bold[ = полужирный ]

имяЭлемента.TitleFont.Italic[ = наклонный ]

имяЭлемента.TitleFont.Underline[ = подчеркнутый ]

имяЭлемента.TitleFont.Strikethrough[ = перечеркнутый ]

Значения

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

Значения	Visual Basic
имяЭлемента	Имя календаря.
имя	Строковое выражение, представляющее имя шрифта.
размер	Числовое выражение, представляющее размер шрифта.
полужирный	Логическое выражение определяющее использование полужирного шрифта.
наклонный	Логическое выражение определяющее использование наклонного шрифта.
подчеркнутый	Логическое выражение определяющее использование шрифта с подчеркиванием.
перечеркнутый	Логическое выражение определяющее использование шрифта с перечеркиванием горизонтальной линией.
Значение данного свойства может быть задано в окне специальных свойств или в программе Visual Basic.

Дополнительные сведения

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

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

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


Свойство TitleFontColor

Свойство TitleFontColor задается определяет цвет заголовка календаря, в котором выводятся значения месяца и года.

Значения

Значением свойства TitleFontColor является величина типа Long, представляющая цвет в модели RGB.

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

Дополнительные сведения

Пользователь имеет возможность определить свойство TitleFontColor с помощью функции RGB Visual Basic. Допустимые значения цветов в модели RGB лежат в диапазоне от 0 до 16777215.

Для указания значения, соответствующего системному цвету, можно также использовать вкладку Оформление окна свойств экрана панели управления Windows. Простейшим способом определения свойства TitleFontColor через системный цвет является выбор цвета на вкладке Цвет окна специальных свойств календаря.

В Microsoft Windows определен набор отрицательных чисел, соответствующих системным цветам, позволяющий устанавливать свойство TitleFontColor из программы Visual Basic. Эти числа служат для описания различных компонентов окна приложения (например, рамки окна или текста в строке заголовка). Для определения числа, описывающего конкретный цвет, следует установить этот цвет и прочитать значение свойства TitleFontColor.

В случае, когда значение свойства TitleFontColor не определено, в качестве цвета заголовка месяца и года календаря используется системный цвет.


Свойство календаря Value

Свойство Value позволяет задать или считать текущую дату в календаре.

Значения

Значением свойства Value является дата или пустое значение (Null).

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

Дополнительные сведения

Допустимые даты календаря лежат в диапазоне от 01.01.1900 до 31.12.2100.

Значение свойства Value изменяется при выборе даты в календаре с помощью клавиш со стрелками, с помощью мыши или в полях со списками. Если для свойства Value задано значение Null, календарь выводится без выделенной даты.

В некоторых приложениях допускается присоединение календаря к полю базы данных. Для проверки этой возможности необходимо обратиться к документации приложения.


Свойство календаря ValueIsNull

Свойство ValueIsNull используется для присвоения свойству Value значения Null, что запрещает выделение даты в календаре.

Значения

Значением данного свойства является логическая величина, по умолчанию получающая значение False (0).

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

Дополнительные сведения

При заданном для свойства ValueIsNull значении False текущая дата в календаре, возвращаемая свойством Value, выделена до ввода другой даты. При заданном значении True (–1) текущая дата не выделяется и свойство Value возвращает Null.

После изменения значения свойства Value явным образом из программы, с помощью клавиш перемещения курсора, с помощью мыши или из окна выбора со списком свойство ValueIsNull автоматически получает значение False (Нет). Для запрещения таких изменений необходимо присвоить свойству Enabled значение False.

Для установки значения календаря в Null необходимо присвоить значение True свойству ValueIsNull.


Свойство Year

Свойство Year определяет текущее значение года в календаре.

Значения

В календаре поддерживаются даты со значениями года в диапазоне от 1900 до 2100.

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


Метод AboutBox

Метод AboutBox открывает диалоговое окно, содержащее номер версии календаря и сведения об авторских правах.

Синтаксис

имяЭлемента.AboutBox

Метод AboutBox использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.


Метод NextDay

Метод NextDay увеличивает на единицу значение числа и обновляет изображение календаря.

Синтаксис

имяЭлемента.NextDay

Метод NextDay использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

В случае, когда текущий день является последним днем месяца, вызов метода NextDay увеличивает на единицу значение месяца.

Вызов данного метода эквивалентен нажатию клавиши СТРЕЛКА ВПРАВО.


Метод NextMonth

Метод NextMonth увеличивает на единицу номер месяца и обновляет изображение календаря.

Синтаксис

имяЭлемента.NextMonth

Метод NextMonth использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

В случае, когда текущим месяцем является декабрь, вызов метода NextMonth также увеличивает на единицу значение года.

Вызов данного метода эквивалентен нажатию клавиши СТРЕЛКА ВПРАВО при нажатой клавише CTRL.


Метод NextWeek

Метод NextWeek увеличивает на единицу номер недели и обновляет изображение календаря.

Синтаксис

имяЭлемента.NextWeek

Метод NextWeek использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

Вызов данного метода эквивалентен нажатию клавиши СТРЕЛКА ВНИЗ.


Метод NextYear

Метод NextYear увеличивает на единицу значение года и обновляет изображение календаря.

Синтаксис

имяЭлемента.NextYear

Метод NextYear использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

Вызов данного метода эквивалентен нажатию клавиши СТРЕЛКА ВНИЗ при нажатой клавише CTRL.


Метод PreviousDay

Метод PreviousDay уменьшает на единицу значение числа и обновляет изображение календаря.

Синтаксис

имяЭлемента.PreviousDay

Метод PreviousDay использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

В случае, когда текущий день является первым днем месяца, вызов метода NextDay также уменьшает значение месяца.

Вызов данного метода эквивалентен нажатию клавиши СТРЕЛКА ВЛЕВО.


Метод PreviousMonth

Метод PreviousMonth уменьшает на единицу номер месяца и обновляет изображение календаря.

Синтаксис

имяЭлемента.PreviousMonth

Метод PreviousMonth использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

В случае, когда текущим месяцем является январь, вызов метода PreviousMonth также уменьшает на единицу значение года.

Вызов данного метода эквивалентен нажатию клавиши СТРЕЛКА ВЛЕВО при нажатой клавише CTRL.


Метод PreviousWeek

Метод PreviousWeek уменьшает на единицу номер недели и обновляет изображение календаря.

Синтаксис

имяЭлемента.PreviousWeek

Метод PreviousWeek использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

Вызов данного метода эквивалентен нажатию клавиши СТРЕЛКА ВВЕРХ.


Метод PreviousYear

Метод PreviousYear уменьшает на единицу значение года и обновляет изображение календаря.

Синтаксис

имяЭлемента.PreviousYear

Метод PreviousYear использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

Вызов данного метода эквивалентен нажатию клавиши СТРЕЛКА ВВЕРХ при нажатой клавише CTRL.


Метод календаря Refresh

Метод Refresh обновляет изображение календаря.

Синтаксис

имяЭлемента.Refresh

Метод Refresh использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.


Метод Today

Метод Today делает текущей датой календаря сегодняшнюю дату и обновляет изображение календаря.

Синтаксис

имяЭлемента.Today

Метод Today использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

Вызов данного метода эквивалентен нажатию клавиш CTRL+T (нажатию клавиши «T» на английской клавиатуре или клавиши «Е» на русской при нажатой клавише CTRL).


Событие календаря «После обновления» (AfterUpdate)

Событие календаря После обновления (AfterUpdate) возникает после выбора пользователем даты в календаре и выделения в календаре новой даты.

Синтаксис

Sub имяЭлемента_AfterUpdate( )

Процедура обработки события После обновления (AfterUpdate) использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

Данное событие возникает при переходе на новую дату в календаре с помощью клавиатуры или мыши.

Перед возникновением данного события происходит изменение значения свойства Value на новую дату.


Событие календаря «До обновления» (BeforeUpdate)

Событие календаря До обновления (BeforeUpdate) возникает после выбора пользователем даты в календаре, но до выделения в календаре новой даты.

Синтаксис

Sub имяЭлемента_BeforeUpdate (Cancel As Integer)

Процедура обработки события BeforeUpdate использует следующие аргументы.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Cancel	Если этот аргумент получает значение True (–1) в процедуре, событие отменяется.
Дополнительные сведения

Данное событие возникает при переходе на новую дату в календаре с помощью клавиатуры или мыши.

Перед возникновением данного события происходит изменение значения свойства Value на новую дату.

Для отмены события BeforeUpdate и возврата календаря в исходное состояние необходимо задать для аргумента Cancel значение True во время выполнения данной процедуры. В этом случае новая дата, выбранная пользователем, выделяется. После завершения выполнения процедуры обработки события происходит восстановление свойства Value до значения, которое оно имело до запуска процедуры.


Событие календаря Click

Событие Click возникает при выборе пользователем даты в календаре с помощью мыши.

Синтаксис

Sub имяЭлемента_Click( )

Процедура обработки события Click использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

После выбора пользователем даты в календаре это значение устанавливается для свойства Value.

При изменении значения календаря выбором другой даты перед возникновением события Click появляются события BeforeUpdate и AfterUpdate.


Событие календаря DblClick

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

Синтаксис

Sub имяЭлемента_DblClick( )

Процедура обработки события DblClick использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
Дополнительные сведения

Событие Click всегда возникает непосредственно перед событием DblClick, но перед ними всегда появляются события BeforeUpdate и AfterUpdate.


События календаря KeyDown, KeyUp

События календаря KeyDown и KeyUp возникают, если пользователь нажимает или отпускает клавишу в тот момент, когда календарь имеет фокус. Они используются для определения нажатия одной из не буквенно-цифровых клавиш или их комбинации например SHIFT и любой кнопки на буквенно-цифровой клавиатуре.

Синтаксис

Sub имяЭлемента_KeyDown(KeyCode As Integer, ByVal Shift As Integer)

Sub имяЭлемента_KeyUp(KeyCode As Integer, ByVal Shift As Integer)

Процедуры обработки события календаря KeyDown и KeyUp используют следующие аргументы.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
KeyCode	Код клавиши. Для просмотра списка всех возможных значений необходимо открыть окно просмотра объектов, выбрать в списке Проект/Библиотека элемент «VBA» и в списке Классы выбрать «KeyCodeConstants».
Shift	Значение, определяющее состояние клавиш SHIFT, CTRL и ALT. Для клавиши SHIFT допустимы следующие значения.
	Нажатая клавиша	Значение аргумента Shift
	Нет	0
	SHIFT	1
	CTRL	2
	ALT	4
	SHIFT-CTRL	3
	SHIFT-ALT	5
	CTRL-ALT	6
	SHIFT-CTRL-ALT	7
Дополнительные сведения

Использование процедур обработки событий KeyDown и KeyUp дает возможность определения нажатой клавиши или их комбинации. Для определения нажатой клавиши следует проверить аргумент KeyCode. Для определения нажатия клавиши или клавиш SHIFT, CTRL или ALT следует проверить аргумента Shift.


Событие календаря KeyPress

Событие календаря KeyPress возникает после того, как пользователь нажимает и отпускает клавишу, соответствующую символу ANSI, в тот момент, когда календарь имеет фокус.

Синтаксис

Sub имяЭлемента_KeyPress(KeyAscii As Integer)

Процедура обработки события KeyPress использует следующие аргументы.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.
KeyAscii	Числовой код клавиши ANSI.
Дополнительные сведения

Использование события KeyPress дает возможность определения нажатой буквенно-цифровой клавиши. В процедуре обработки события следует проверить значение аргумента KeyAscii.

Для получения буквенно-цифрового символа, соответствующего значению аргумента KeyAscii, следует использовать функция Visual Basic Chr.


Событие NewMonth

Событие NewMonth возникает при изменении значения месяца в дате календаря.

Синтаксис

Sub имяЭлемента_NewMonth

Процедура обработки события NewMonth использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.


Событие NewYear

Событие NewYear возникает при изменении значения года в дате календаря.

Синтаксис

Sub имяЭлемента_NewYear

Процедура обработки события NewYear использует следующий аргумент.

Аргумент	Описание
имяЭлемента	Имя элемента управления-календаря.