|
<%@ Page Language="VB" %>
<script runat="server">
Protected Sub Calendar1_DayRender(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.DayRenderEventArgs)
e.Cell.VerticalAlign = VerticalAlign.Top
If (e.Day.DayNumberText = "25") Then
e.Cell.Controls.Add(New LiteralControl("User Group Meeting!"))
e.Cell.BorderColor = Drawing.Color.Black
e.Cell.BorderWidth = 1
e.Cell.BorderStyle = BorderStyle.Solid
e.Cell.BackColor = Drawing.Color.LightGray
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>Using the Calendar Control</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Calendar ID="Calendar1"
Runat="server"
OnDayRender="Calendar1_DayRender"
Height="190px"
BorderColor="White"
Width="350px"
ForeColor="Black"
BackColor="White"
BorderWidth="1px"
NextPrevFormat="FullMonth"
Font-Names="Verdana"
Font-Size="9pt">
<SelectedDayStyle ForeColor="White"
BackColor="#333399"></SelectedDayStyle>
<OtherMonthDayStyle ForeColor="#999999"></OtherMonthDayStyle>
<TodayDayStyle BackColor="#CCCCCC"></TodayDayStyle>
<NextPrevStyle ForeColor="#333333"
VerticalAlign="Bottom"
Font-Size="8pt"
Font-Bold="True"></NextPrevStyle>
<DayHeaderStyle Font-Size="8pt" Font-Bold="True"></DayHeaderStyle>
<TitleStyle ForeColor="#333399" BorderColor="Black" Font-Size="12pt"
Font-Bold="True" BackColor="White" BorderWidth="4px">
</TitleStyle>
</asp:Calendar>
</div>
</form>
</body>
</html>
|