日期选择器示例 <script type="text/javascript"></script> 用户姓名 用户密码 出生日期 选择日期 通讯地址 日期选择器示例 <script type="text/javascript"></script> 用户姓名 用户密码 出生日期 选择日期 <2009年2月> 日一二三四五六25262728293031123456789101112131415161718192021222324252627281234567 通讯地址 日期选择器示例 <script type="text/javascript"></script> 用户姓名 用户密码 出生日期 选择日期 通讯地址 您选定的日期是2009-2-17 http://localhost:3148/test2/calendar1.aspx <%@ Register TagPrefix="myControl" TagName="myCalendar" Src="WebUserControl.ascx" %> <script language="VB" runat="server"> Sub Enter_OnClick(sender As Object, e As EventArgs) message.Text="您选定的日期是" & txtDate.SelectedDate.ToShortDateString End Sub </script> <html> <body> <h3 align="center">日期选择器示例</h3> <form runat="server"> 用户姓名<asp:TextBox id="txtUserName" runat="server"/> <br>用户密码<asp:TextBox id="txtUserPWD" runat="server"/> <br>出生日期<myControl:myCalendar id="txtDate" runat="server"/> <br>通讯地址<asp:TextBox id="txtUserAddress" columns="20" runat="server"/> <br><asp:Button id="enter" Text="确定" onClick="Enter_OnClick" runat="server"/> <br><asp:Label id="message" runat="server"/> </form> </body> </html> WebUserControl.ascx <script language="VB" runat="server"> Public Property SelectedDate As Date '定义一个SelectedDate属性 Get Return Convert.ToDateTime(txtDate.Text) '返回属性值 End Get Set txtDate.Text = Value.ToShortDateString '利用Value关键字设置属性值 End Set End Property Sub Date_Selected(sender As Object, e As EventArgs) txtDate.Text = calDate.SelectedDate.ToShortDateString '将选定日期填充到文本框中 calDate.Visible=False '隐藏日历控件 End Sub Sub lbtnDate_OnClick(sender As Object, e As EventArgs) If calDate.Visible=False Then calDate.Visible=True '显示日历控件 If Trim(txtDate.Text)<>"" Then calDate.SelectedDate=Convert.ToDateTime(txtDate.Text) '根据文本框中的值选定日期 End If Else calDate.Visible=False '隐藏日历控件 End If End Sub </script> <asp:TextBox id="txtDate" columns="10" runat="server"/> <asp:LinkButton id="lbtnDate" Text="选择日期" onClick="lbtnDate_OnClick" runat="server"/> <asp:Calendar id="calDate" style="Z-INDEX: 101; POSITION: absolute; left: 175px; top: 20px;" BackColor="#F3F3F3" onSelectionChanged="Date_Selected" visible="False" runat="server"/>