' ASPX_Calendar_Control.aspx.vb.txt
' Writen by Dan Garlen dan.g@kgsystems.com 2/22/04
'
' Create new WebForms named CalDemo
' Add Calendar Control (leave default name of "Calendar1")
' Add ListBox Control  (leave default name of "ListBox1")

Past the following three subroutines into your codebehind page

    ' -------------------------------------------------------------------------------------------------
    Private Sub Page_Load(ByVal sender As System.Object, _
						ByVal e As System.EventArgs) _
						Handles MyBase.Load
        If Not Page.IsPostBack Then
            Calendar1.SelectionMode = CalendarSelectionMode.DayWeekMonth
        End If
    End Sub
    ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

    ' -------------------------------------------------------------------------------------------------
    Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object, _
						ByVal e As System.EventArgs) _
						Handles Calendar1.SelectionChanged
        ListBox1.Items.Clear()
        Dim selectedDate As Date
        For Each selectedDate In Calendar1.SelectedDates
            ListBox1.Items.Add(selectedDate.Date.ToString("yyyy-MM-dd"))
        Next
    End Sub
    ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

    ' -------------------------------------------------------------------------------------------------
    Private Sub Calendar1_DayRender(ByVal sender As Object, _
						ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) _
						Handles Calendar1.DayRender
        Dim d As Date = e.Day.Date
        Dim strDayOfYear As String = d.DayOfYear.ToString("##0")
        e.Cell.Controls.Add(New LiteralControl("<BR><B>" & strDayOfYear + "</B>"))
    End Sub
    ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^