applix.net
Free
Calendar of Events ( the one that you see in the left column.
Iportant:
Your web site must be Microsoft .net enabled in order for
the calendar to work! Please
send us email if you need
our assistance.
Please, cat and paste the following code into a text based
editor like notepad before inserting the code into an .aspx
file:
<script
language="VB" runat="server">
'
' date: February, 2002
' note: this code is free
'
Dim events(12,31) as String
Sub Page_Load(sender As Object, e As EventArgs)
events(1,1) = "New Year's Day"
events(1,20) = "Martin Luther King Day"
events(2,14) = "Valentine's Day"
events(2,22) = "Washington Birthday"
events(3,4) = "Inauguration Day"
events(3,16) = "Freedom of Information Day"
events(3,17) = "St. Patrick's Day"
events(4,1) = "April Fool's Day"
events(4,22) = "Earth Day"
events(5,1) = "May Day"
events(6,14) = "Flag Day"
events(7,4) = "Independence Day"
events(9,1) = "Labor Day"
events(9,24) = "Autumnal Equinox"
events(10,31) = "Halloween"
events(11,11) = "Veterans Day"
events(11,27) = "Thanksgiving Day"
events(12,24) = "Christmas Eve"
events(12,21) = "Winter Solstice, Northern Hemisphere"
events(12,25) = "Christmas Day"
events(12,26) = "Boxing Day"
End Sub
Sub Calendar1_DayRender(sender As Object, e As
DayRenderEventArgs)
Dim CalDay as CalendarDay
Dim TabCel as TableCell
CalDay = e.Day
TabCel = e.Cell
If CalDay.IsOtherMonth Then
TabCel.Controls.Clear
Else
Try
Dim EventsMatrix As String =
events(CalDay.Date.Month,CalDay.Date.Day)
If EventsMatrix <> "" Then
TabCel.BackColor = System.Drawing.Color.Gainsboro
End If
Catch exc as Exception
Response.Write (exc.ToString())
End Try
End If
End Sub
Sub Date_Selected(sender As Object, e As EventArgs)
Dim current_day As string = Calendar1.SelectedDate.Day
Dim current_month As string = Calendar1.VisibleDate.Month
Dim current_event as String =
events(current_month,current_day)
If current_event <> "" Then
Label1.Text = Calendar1.SelectedDate.ToShortDateString + ":
" + current_event
Else
Label1.Text = Calendar1.SelectedDate.ToShortDateString + ":
No Events"
End If
End Sub
</script>
<html>
<head>
<form runat=server>
<asp:Calendar id=Calendar1 runat="server"
ondayrender="Calendar1_DayRender"
onselectionchanged="Date_Selected"
VisibleDate="12/01/2002"
Font-Name="Verdana" Font-Size="9px"
Height="130px" Width="130px"
SelectorStyle-BackColor="Gainsboro"
TodayDayStyle-BackColor="#EA8C00"
DayHeaderStyle-BackColor="Gainsboro"
DayNameFormat="FirstLetter"
OtherMonthDayStyle-ForeColor="Gray"
TitleStyle-BackColor="Gray"
TitleStyle-Font-Bold="False"
TitleStyle-Font-Size="10px"
TitleStyle-ForeColor="White"
SelectedDayStyle-BackColor="Navy"
SelectedDayStyle-Font-Bold="True"
/>
<asp:Label id=Label1 runat="server"
Font-Name="Verdana" Font-Size="9px"
/>
</body>
</html>
|
graphic design