实例

下面的实例在某日期被选择时输出被选日期：

<script language="VB" runat="server">
 Sub Change(obj As Object, e As EventArgs)
   Dim i As Integer
   For i = 0 To Cal1.SelectedDates.Count - 1
     Response.Write(Cal1.SelectedDates(i).ToShortDateString())
     Response.Write("<br />")
   Next i
 End Sub
 </script>

 <form runat="server">
 <asp:Calendar id="cal1" runat="server"
 SelectionMode="DayWeekMonth"
 OnSelectionChanged="Change" />
 </form>