Окончательный вид формы, содержащей элемент управления Календарь в режиме Конструктора
Private Sub Form_Load()
Календарь.Object.Value = Date
End Sub
При выборе даты в календаре должно меняться значение поля "Дата". Поэтому нужно написать процедуру обработки события
ПослеОбновления
(AfterUpdate) элемента управления
Календарь.
Как и предыдущая, эта процедура состоит из одного оператора. Однако в ней показано, что для ссылки на значение элемента Календарь необязательно используется свойство value.
Private Sub Календарь_АfterUpdate() 'обновление поля "Дата"
txtDate = Format(Календарь.Object.Value, "dd/mm/yy")
End Sub
Еще шесть процедур должны обрабатывать событие
НажатиеКнопки
(Click) для каждой из шести кнопок. В этих процедурах используются шесть методов объекта
Календарь:
Private Sub Предыдущая_неделя_С11сК() Календарь.Obj ect.PreviousWeek
End Sub
Private Sub Предыдущий_год_С11сК() Календарь.Obj ect.NextYear
End Sub
Private Sub Предьщущий_месяц_С1ick () Календарь.Obj ect.PreviousMonth
End Sub
Private Sub Следующая_неделя_С11сk() Календарь.Object.NextWeek
End Sub
Private Sub Следующий_год_С11сК() Календарь . Object. NextYear
End Sub
Private Sub Следующий_месяц_С11сК() Календарь.Object.NextMonth
End Sub
Поскольку год и месяц теперь можно переключать с помощью кнопок, вы можете убрать из заголовка календаря раскрывающиеся списки, для чего откройте вкладку
Общие
(General) диалогового окна свойств объекта и снимите флажок
Выбор месяца и года
(Month/Year Selectors).
Сохраните форму, дав ей имя "Календарь". Окончательный вид формы представлен на рис. 15.43.
