<%@ 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>
<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"/>
