calendar11.aspx

来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 75 行

ASPX
75
字号
<html>
<head>
    <script language="VB" runat="server">

        Sub Page_Load(sender As Object, e As EventArgs) 
        
            Calendar1.SelectionMode = lstSelMode.SelectedIndex
            
            If Calendar1.SelectionMode = CalendarSelectionMode.None Then
                Calendar1.SelectedDates.Clear
            End If    
        End Sub

        Sub Date_Selected(sender As Object, e As EventArgs) 
        
            Select (Calendar1.SelectedDates.Count) 
                Case 0:   'None
                    Label1.Text = "没有选择日期"
                Case 1:   'Day
                    Label1.Text = "选择的日期是: " & Calendar1.SelectedDate.ToShortDateString
                Case 7:   'Week
                    Label1.Text = "选择的星期开始的日期是: " & Calendar1.SelectedDate.ToShortDateString
                Case Else:  'Month
                    Label1.Text = "选择的月开始的日期是: " & Calendar1.SelectedDate.ToShortDateString
            End Select
            
        End Sub

    </script>

</head>

<body>

   
    <p>

    <form runat=server>

        选择一个模式:
        <asp:DropDownList id="lstSelMode" runat=server
            AutoPostBack=true>
            <asp:ListItem Value="None" >None</asp:ListItem>
            <asp:ListItem Selected Value="Day" >Day</asp:ListItem>
            <asp:ListItem Value="DayWeek" >DayWeek</asp:ListItem>
            <asp:ListItem Value="DayWeekMonth" >DayWeekMonth</asp:ListItem>
        </asp:DropDownList>

        <p>
        <asp:Calendar id=Calendar1 runat="server"
            onselectionchanged="Date_Selected"
            DayNameFormat="FirstLetter"
            Font-Name="Arial" Font-Size="12px"
            Height="180px" Width="200px"
            SelectorStyle-BackColor="gainsboro"
            TodayDayStyle-BackColor="gainsboro"
            DayHeaderStyle-BackColor="gainsboro"
            OtherMonthDayStyle-ForeColor="gray"
            TitleStyle-BackColor="gray"
            TitleStyle-Font-Bold="True"
            TitleStyle-Font-Size="12px"
            SelectedDayStyle-BackColor="Navy"
            SelectedDayStyle-Font-Bold="True"
            />

        <p>
        <asp:Label id=Label1 runat="server" />
    </form>

</body>
</html>



⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?