Asp Control ASP.Net

  1. Home
  2. ASP.Net
  3. Asp Control
  4. On Date and Month Selection Changed (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)
    lblMessage.Text = "You selected " _
        & MyCal.SelectedDate
End Sub
Sub calMonthChange(ByVal source As Object, _
    ByVal e As MonthChangedEventArgs)
    lblMessage2.Text = "
You changed from month " _
        & e.PreviousDate.Month & " to month " _
        & e.NewDate.Month & "."
End Sub



Calendar 2 Control Sample Page




    id="Mycal" 
    runat="server"
    CellPadding="3"
    CellSpacing="3"
    DayNameFormat="Short"
    FirstDayOfWeek="Default"
    NextPrevFormat="FullMonth"
    SelectionMode="Day"
    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"
    OnSelectionChanged="calSelectChange"
    OnVisibleMonthChanged="calMonthChange"
/>



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