calendar日历控件实例!

转载 2006年06月09日 16:45:00

<%@ 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>&nbsp;&nbsp;
<asp:DropDownList ID="mon" runat="server" AutoPostBack="true" OnSelectedIndexChanged="mon1">
</asp:DropDownList><br>
<asp:Label ID="label1" runat="server"/>
</form>

</body></head></html>

http://thcjp.cnblogs.com/archive/2006/02/28/339622.html

相关文章推荐

DatePicker calendar 日历时间控件

  • 2014年07月11日 17:05
  • 25KB
  • 下载

.NET 日历控件 calendar

  • 2008年07月08日 16:04
  • 19KB
  • 下载

#371 – 指定日历控件显示的日期时间(Specifying a Default Date for a Calendar Control to Display)

当你使用日历控件Calendar 的时候,它会默认显示当前的日期。 但是你可以通过设置DisplayDate 属性,设置默认显示的日期。 上面的代码默认显示1969年七月二十号。 你也...

calendar 10种日历控件打包下载

  • 2010年02月09日 11:06
  • 9.65MB
  • 下载

可折叠的日历控件Calendar

  • 2015年06月19日 14:42
  • 365KB
  • 下载

asp.net中为Calendar日历控件添加双击日期事件

最近一直在做日历控件,希望能直接在上面双击具体某一天就能弹窗添加事件,刚开始是想在网上找找人家做好的日历控件来用的,后面发现由于公司加密软件的原因,那些插件基本上都用不了,最后没法子了,只好自己来慢慢...

Qt 自定义 Calendar 日历控件

  • 2017年07月31日 16:10
  • 6KB
  • 下载

WPF Calendar 日历控件 样式自定义

  • 2013年03月11日 11:34
  • 74KB
  • 下载

Calendar 自定义日历控件

CalendarView介绍代码地址:https://github.com/09xuanjian/CalendarView这是一个日历控件,很多时候我们需要把一些信息通过时间戳的方式展示给用户。日历是...

Calendar 日历控件 兼容IE9

  • 2013年01月04日 15:31
  • 21KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:calendar日历控件实例!
举报原因:
原因补充:

(最多只允许输入30个字)