Day-minder-page-component


            <%@ Page Language="VB" debug="true" %>
<%@ Register TagPrefix="rntsoftASP" TagName="Planner" src="Control.ascx" %>

   
       
   

File: Control.ascx

   Public sub Page_Load(Sender as Object, e as EventArgs)
      if not Page.IsPostBack then
         Session.Clear
         Calendar1.SelectedDate = DateTime.Now
         DayLabel.Text = Calendar1.SelectedDate. _
            ToString("dddd, MMMM dd yyyy")
      end if
   End Sub
   
   Public sub SelectionChanged(Sender as Object, e as EventArgs)
      DayLabel.Text = Calendar1.SelectedDate. _
         ToString("dddd, MMMM dd yyyy")
      
      if not (Session(Calendar1.SelectedDate.ToString) is nothing)
         dim l as Label = new label
         l.Text = Session(Calendar1.SelectedDate.ToString)
         DayPanel.Controls.Add(l)
      end if
   End Sub
   
   Public sub NoteChanged(Sender as Object, e as EventArgs)
      if Sender.text <> "" then
         dim l as Label = New Label
         l.text = "" & Sender.Text & "
"
      
         DayPanel.Controls.Add(l)
         Session(Calendar1.SelectedDate.ToString) = l.text
         NoteBox.Text = ""
      end if
   End Sub



   
      
                     runat="server" 
            Height="25px" 
            Width="100%"
            BackColor="blue" 
            ForeColor="white"
            Font-Bold="true"/>
         

                     runat="server"
            backcolor="#ffffff" 
            Height="225px" >
            
                           runat="server"
               OnTextChanged="NoteChanged"
               TextMode="Multiline"
               Rows=5 
               Width="100%" 
               AutoPostBack="true" />
         
      
   
   
               runat="server"
         OnSelectionChanged="SelectionChanged"
         Cellpadding="5" 
         Cellspacing="5"
         DayHeaderStyle-Font-Bold="True"
         DayNameFormat="Short"
         Font-Name="Arial" 
         Font-Size="12px"
         height="250px"
         NextPrevFormat="ShortMonth"
         NextPrevStyle-ForeColor="white"
         SelectedDayStyle-BackColor="#ffcc66"
         SelectedDayStyle-Font-Bold="True"
         SelectionMode="DayWeekMonth"
         SelectorStyle-BackColor="#99ccff"
         SelectorStyle-ForeColor="navy"
         SelectorStyle-Font-Size="9px"
         ShowTitle="true"
         TitleStyle-BackColor="#ddaa66"
         TitleStyle-ForeColor="white"
         TitleStyle-Font-Bold="True"
         TodayDayStyle-Font-Bold="True" />
Custom Controls ASP.Net Tutorial
