Asp Control ASP.Net

  1. Home
  2. ASP.Net
  3. Asp Control
  4. Select a week (VB net)
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    MyCal.SelectedDate = Today()
End Sub
Sub calSelectChange(ByVal Sender as Object, ByVal E as EventArgs)
    Dim i as Integer
    lblMessage.Text = "You selected:"
    For i = 0 to MyCal.SelectedDates.Count - 1
        lblMessage.Text = lblMessage.Text & "
" _
            & MyCal.SelectedDates(i).ToShortDateString()
    Next    
End Sub



Calendar 3 Control Sample Page




    id="Mycal" 
    runat="server"
    CellPadding="3"
    CellSpacing="3"
    DayNameFormat="Short"
    FirstDayOfWeek="Default"
    NextPrevFormat="FullMonth"
    SelectionMode="DayWeekMonth"
    ShowDayHeader="True"
    ShowGridLines="False"
    ShowNextPrevMonth="True"
    ShowTitle="True"
    TitleFormat="MonthYear"
    Font-Name="Tahoma"
    Font-Size="12"
    BackColor="ivory"
    TodayDayStyle-Font-Bold="True"
    DayHeaderStyle-Font-Bold="True"
    OtherMonthDayStyle-ForeColor="gray"
    TitleStyle-BackColor="#3366ff"
    TitleStyle-ForeColor="white"
    TitleStyle-Font-Bold="True"
    SelectedDayStyle-BackColor="#ffcc66"
    SelectedDayStyle-Font-Bold="True"
    WeekendDayStyle-Font-Italic="True"
    NextPrevStyle-Font-Italic="True"
    SelectorStyle-Font-Bold="True"
    SelectorStyle-BackColor="#3366ff"
    OnSelectionChanged="calSelectChange"
/>



    id="lblMessage"
    runat="server"
    Font-Bold="True"
/>