Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Calendar1.SelectionChanged 'カレンダーの日付を選択すると、「選択した日付」を表示（確認） lblSelectedDay.Text = Calendar1.SelectedDate.ToShortDateString End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 'ページロード初回のとき、「今日の日付」を表示 If Not IsPostBack Then lblToday.Text = DateTime.Now.Date.ToShortDateString End If End Sub
Protected Sub btnChandeDay_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles btnChandeDay.Click '「日付変更」ボタンをクリックしたとき、「今日の日付」を表示 Calendar1.VisibleDate = Convert.ToDateTime(txtInputDay.Text) lblChangedDay.Text = txtInputDay.Text '入力した日付をラベル表示（確認） lblChangedDay2.Text = Calendar1.SelectedDate.ToShortDateString '選択した日付をラベル表示 End Sub
