使用 VB.NET 链接两个日历
Linking two calendars using VB.NET
我有一个问题。
我在 aspx 上有 2 个日历。
我想让它们保持同步。
我想要的是,当我将 Calendar1 切换到一个月时,Calendar2 应该是同一个月。
当我打开我的页面时,它们都在当月。
当我在 Calendar1 上跳转到五月时,我希望 Calendar2 也显示五月。
处理选择更改事件和可见月份事件...
<asp:Calendar ID="Calendar1" runat="server"
SelectionMode="DayWeekMonth"
ShowGridLines="True"
OnSelectionChanged="Selection_Change"
OnVisibleMonthChanged="MonthChange"></asp:Calendar>
而在后面的代码中
Sub Selection_Change(sender As Object, e As EventArgs)
'Calendar2.SelectedDates = Calendar1.SelectedDates
For Each day In Calendar1.SelectedDates
Calendar2.SelectedDates.Add(day)
Next
End Sub
Sub MonthChange(sender As Object, e As MonthChangedEventArgs)
Calendar2.VisibleDate = e.NewDate
End Sub
我有一个问题。 我在 aspx 上有 2 个日历。 我想让它们保持同步。 我想要的是,当我将 Calendar1 切换到一个月时,Calendar2 应该是同一个月。
当我打开我的页面时,它们都在当月。 当我在 Calendar1 上跳转到五月时,我希望 Calendar2 也显示五月。
处理选择更改事件和可见月份事件...
<asp:Calendar ID="Calendar1" runat="server"
SelectionMode="DayWeekMonth"
ShowGridLines="True"
OnSelectionChanged="Selection_Change"
OnVisibleMonthChanged="MonthChange"></asp:Calendar>
而在后面的代码中
Sub Selection_Change(sender As Object, e As EventArgs)
'Calendar2.SelectedDates = Calendar1.SelectedDates
For Each day In Calendar1.SelectedDates
Calendar2.SelectedDates.Add(day)
Next
End Sub
Sub MonthChange(sender As Object, e As MonthChangedEventArgs)
Calendar2.VisibleDate = e.NewDate
End Sub