<%@ Page Language="vb" Debug="true" %>
<%@ import namespace="system.drawing"%>
<html><head>
<script language="vb" runat="server">
'声明一个数组用与储存一年中的节日
dim holidays(12,31) as string
dim y,m,s,j as integer
sub page_load(sender as object,e as eventargs)
'将具体的节日名存入数组
holidays(1,1)="元旦"
holidays(2,20)="春节"
holidays(3,8)="妇女节"
holidays(5,1)="劳动节"
holidays(5,4)="青年节"
holidays(6,1)="儿童节"
holidays(7,1)="建党节"
holidays(8,1)="建军节"
holidays(9,10)="教师节"
holidays(9,28)="中秋节"
holidays(10，1)="国庆节"
holidays(12，25)="圣诞节"
'用指定图形来显示选择月份和星期的标志
calendar1.selectmonthtext="选全月" 'calendar选择月份的标签
calendar1.selectweektext="选全周" 'calendar选择星期的标签
end sub
'选择时间下拉框的数
sub page_init(sender as object,e as eventargs) '请注意，这里使用的是page_init对象，如果用load的话，下拉框里的数就会循环几次了
for y=1980 to 2010
dat.items.add(y)
next
for m=1 to 12
mon.items.add(m)
next
end sub
'日历控件的dayrendar事件的处理程序。
sub calendar1_dayrender(sender as object,e as dayrendereventargs)
dim c as tablecell
dim d as calendarday
dim g as string
c=e.cell '将dayrendereventargs的cell对象赋给 c
d=e.day '将dayrendereventargs的day对象赋给 d
g=val(d.date.month) & val(d.date.day)
if d.isothermonth then
c.controls.clear '不显示非当前月份的日前
else
dim strholiday,strstart,strend as string
strholiday=holidays(d.date.month,d.date.day) '获取节日名
strstart="<br><font color=red face=宋体>" 'HTML格式语句开始部分
strend="</font>" 'HTML格式语句结束部分
if strholiday <> "" then '将节日名所在的日期存入C，同时设置字体颜色
c.controls.add(new literalcontrol(strstart+strholiday+strend))
c.forecolor=color.red
end if
end if
end sub
'日历控件selectionchanged事件处理程序
sub date_selected(sender as object,e as eventargs)
label1.text="被选中的日期为：" & calendar1.selecteddate
end sub
'日历控件的visiblemonthchanged事件处理程序
sub month_changed(sender as object,e as monthchangedeventargs)
label1.text="当前显示的月为：" & e.previousdate.month
label1.text & ="月，当前月为：" & e.newdate.month & "月。"
end sub
'处理选择年
sub year1(sender aS object,e as eventargs)
dim y as string=cstr(dat.selecteditem.text)
dim m as string=cstr(mon.selecteditem.text)
calendar1.Visibledate= m &"/01/" & y
end sub
'处理选择月
sub mon1(sender aS object,e as eventargs)
dim y as string=cstr(dat.selecteditem.text)
dim m as string=cstr(mon.selecteditem.text)
calendar1.Visibledate= m &"/01/" & y
end sub
</script>
<body>
<asp:Literal ID="txt" runat="server">
<strong>calendar 控件实例</strong>
</asp:Literal>
<form id="form" method="post" runat="server">
<asp:Calendar ID="calendar1" runat="server"
OnDayRender="calendar1_dayrender"
OnSelectionChanged="date_selected"
OnVisibleMonthChanged="month_changed"
ShowGridLines="true"
BorderWidth="1"
Font-Name="宋体"
Font-Size="14px"
Width="500px"
TitleStyle-BackColor="#009999"
TitleStyle-ForeColor="darkblue"
TitleStyle-Font-Size="16px"
TitleStyle-Font-Bold=""
DayHeaderStyle-BackColor=""
DayHeaderStyle-ForeColor="#CCCCCC"
DayStyle-VerticalAlign="top"
DayStyle-Height="55"
DayStyle-Width="55"
NextPrevFormat="FullMonth"
NextPrevStyle-BackColor="#009999"
SelectionMode="DayWeekMonth"
SelectedDayStyle-BackColor="#009999"
FirstDayOfWeek="Monday"
WeekendDayStyle-ForeColor="#FF0000"/></asp:Calendar>
请选择时间：
<%--选择下拉框--%>
<asp:DropDownList ID="dat" runat="server" AutoPostBack="true" OnSelectedIndexChanged="year1">
</asp:DropDownList>
<asp:DropDownList ID="mon" runat="server" AutoPostBack="true" OnSelectedIndexChanged="mon1">
</asp:DropDownList><br>
<asp:Label ID="label1" runat="server"/>
</form>
</body></head></html>