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

很好用的日历控件(calendar)

今天帮朋友做个网站,发现了一个很好用的日期控件,如图: 用法也相当简单,方法如下:1.在网页中嵌入一个IFRAME和一段SCRIPT.document.onclick=function() {docu...
  • qinyanlu
  • qinyanlu
  • 2006年08月30日 15:40
  • 3205

潘鹏整理WPF(10)日历控件Calendar&&DatePicker

Calendar DisplayMode=”Month”,然后选择某个月份后就依然如上图 如第一张图中是9月但是显示了8月的30和31号,DisplayDateStart=”2015-9”可以...
  • PanPen120
  • PanPen120
  • 2015年09月22日 17:18
  • 4051

Calendar日历控件(;CalendarDateView;StickyCalendar;渐变效果;开始时间和结束时间,如订酒店选时等)

日历一: 这个日历是用ListView写的,是上下滑动,按需求要求还需要有选择开始时间和结束时间,所以在GitHub上找并在此基础上修改,原Github地址:https://github.com/N...
  • lf0814
  • lf0814
  • 2017年05月08日 10:29
  • 748

继承Tcalendar控件,让当天日期醒目显示

新建控件,继承修改控件的实例。
  • lyhoo163
  • lyhoo163
  • 2016年09月16日 10:27
  • 674

c# Calendar 日历控件 基本使用说明

   众多BLOG 都有日历这块功能,相信大家也看到过,今天把自己在实际运用中积累的少许经验跟大伙分享一下     首先从工具箱中把 Calendar 拖入页面,大家可以看到Calendar 一个日历...
  • cology
  • cology
  • 2007年07月17日 15:41
  • 6214

Calendar 自定义日历控件

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

日历控件推介之:Dynarch.com Calendar

日历是 WEB 开发中经常用到的控件之一,在和日期相关的表单里,我们通常需要提供一个日期选择器,方便用户使用、提高用户体验。本文向您推介的是  Dynarch.com 开发的一个日历控件,她功能十分健...
  • let5flying
  • let5flying
  • 2007年10月12日 15:48
  • 695

Ext JS 大型日历控件

原文:Ext JS 3.3 Calendar Component on September 8, 2010 by Brian Moeskau     对於一个成熟的日历控件而言,应该可以很轻松地...
  • zhangxin09
  • zhangxin09
  • 2010年09月19日 19:41
  • 14305

JS写的Calendar日历控件

//---------------------------------------------------------------------------- //  主调用函数是 wpCalenda...
  • gsfw2010
  • gsfw2010
  • 2011年02月14日 16:46
  • 4336

C# Calendar控件使用

     最近几天从Java转战到C#,在做一个C#.NET的网站。C#是我的第二编程语言,但是远没有Java熟练。昨天晚上和今天晚上都在控件Calendar上面纠结。有一张查询页面,用户需要输入或选...
  • kite1988
  • kite1988
  • 2009年05月17日 20:48
  • 10822
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:calendar日历控件实例!
举报原因:
原因补充:

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