Окончательный вид...

Рис. 15.42. Окончательный вид формы, содержащей элемент управления Календарь в режиме Конструктора

Private Sub Form_Load()

Календарь.Object.Value = Date

End Sub

1. При выборе даты в календаре должно меняться значение поля "Дата". Поэтому нужно написать процедуру обработки события ПослеОбновления (AfterUpdate) элемента управления Календарь. Как и предыдущая, эта процедура состоит из одного оператора. Однако в ней показано, что для ссылки на значение элемента Календарь необязательно используется свойство value.
   

   Private Sub Календарь_АfterUpdate() 'обновление поля "Дата"
   

   txtDate = Format(Календарь.Object.Value, "dd/mm/yy")

   End Sub
   

2. Еще шесть процедур должны обрабатывать событие НажатиеКнопки (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
   

3. Поскольку год и месяц теперь можно переключать с помощью кнопок, вы можете убрать из заголовка календаря раскрывающиеся списки, для чего откройте вкладку Общие (General) диалогового окна свойств объекта и снимите флажок Выбор месяца и года (Month/Year Selectors).
   
4. Сохраните форму, дав ей имя "Календарь". Окончательный вид формы представлен на рис. 15.43.
   

Рис. 15.43. Окончательный вид формы с элементом управления Календарь

Содержание раздела

---

---