Календари (MonthCalendar и DateTimePicker)
Оба они созданы для ручного выбора дат. Они похожи друг на друга, поэтому остановлюсь только на DateTimePicker (см. Рис. 18.13).
Рис. 18.13
Вы можете щелкать по любой дате мышкой, она появится в текстовом поле и будет считаться значением DateTimePicker.Value. Стрелками влево и вправо вы меняете месяцы. Вы можете вручную писать любую дату в текстовом поле. DateTimePicker воспринимает любые даты с 1753 по 9998 годы. Небрежным кружочком обведено текущее число.
При смене даты возникает событие ValueChanged. Запишем процедуру:
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles DateTimePicker1.ValueChanged
If DateTimePicker1.Value.Date = #11/24/2003# Then MsgBox("День рождения")
End Sub
На Рис. 18.13 вы можете видеть DateTimePicker после запуска проекта с этой процедурой и щелчка мышкой по 24 ноября 2003 года. Я вынужден был написать Value.Date, а не просто Value, так как свойство Value имеет тип DateTime, а значит включает в себя не только дату, но и время суток. В числе же #11/24/2003# время не указано.
Вы можете менять дату и в коде:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DateTimePicker1.Value = #11/20/2005 4:20:00 PM#
End Sub
Этими элементами удобно пользоваться для ручного заполнения датами списков и баз данных.
Задание 6.
Щелкните по какой-нибудь будущей дате. Пусть компьютер скажет, долго ли вам осталось ждать.
