calendar2_vb.aspx

来自「一些标准控件的举例说明」· ASPX 代码 · 共 71 行

ASPX

71 行

<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 = "No dates are currently selected"
                Case 1:   'Day
                    Label1.Text = "The selected date is " & Calendar1.SelectedDate.ToShortDateString
                Case 7:   'Week
                    Label1.Text = "The selection is a week beginning " & Calendar1.SelectedDate.ToShortDateString
                Case Else:  'Month
                    Label1.Text = "The selection is a month beginning " & Calendar1.SelectedDate.ToShortDateString
            End Select

        End Sub

    </script>

</head>

<body>

    <h3><font face="Verdana">Date Selection Modes</font></h3>
    <p>

    <form runat=server>

        Choose a Selection Mode:
        <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"
            Font-Names="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>

calendar2_vb.aspx - 源码说明

本页面展示了「一些标准控件的举例说明」中的 calendar2_vb.aspx 源码文件，采用 ASPX 编程语言编写，共 71 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与控件相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?