webform1.aspx.vb

编程之道VB.NETt程序设计入门-589M.zip

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents cldDate As System.Web.UI.WebControls.Calendar
    Protected WithEvents lstSelectedDates As System.Web.UI.WebControls.ListBox
    Protected WithEvents ddlMonth As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtDay As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnChangeSelectedDate As System.Web.UI.WebControls.Button
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RangeValidator1 As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents lblDayValidator As System.Web.UI.WebControls.Label

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub

    Private Sub cldDate_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cldDate.SelectionChanged
        lstSelectedDates.Items.Add(cldDate.SelectedDate)
    End Sub

    Private Sub btnChangeSelectedDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChangeSelectedDate.Click
        Dim iSelectedMonth, iSelectedDay As Integer
        Dim bValidDate As Boolean

        iSelectedMonth = ddlMonth.SelectedItem.Value
        iSelectedDay = Integer.Parse(txtDay.Text)

        Select Case iSelectedMonth
            Case 1, 3, 5, 7, 8, 10, 12
                bValidDate = True
            Case 4, 6, 9, 11
                If iSelectedDay <= 30 Then bValidDate = True Else bValidDate = False
            Case 2
                If iSelectedDay <= 28 Then bValidDate = True Else bValidDate = False
        End Select

        If bValidDate Then
            cldDate.SelectedDate = New Date(2002, iSelectedMonth, iSelectedDay)
            lblDayValidator.Text = ""
        Else
            lblDayValidator.Text = "请输入有效日期！"
        End If

    End Sub
End Class