Public Class Sample5
Inherits System.Web.UI.Page
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
' User must select a date within the next three weeks.
Me.RangeValidator1.MaximumDate = DateTime.Today.AddDays(21)
Me.RangeValidator1.MinimumDate = DateTime.Today
' Date must be within next three weeks.
Me.BasicDatePicker1.MaximumDate = DateTime.Today.AddDays(21)
Me.BasicDatePicker1.MinimumDate = DateTime.Today
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim labelText As String = String.Empty
If Page.IsValid Then
labelText = Me.BasicDatePicker1.SelectedDateFormatted
Me.Label1.Text = "You picked: <strong>" + labelText + "</strong>"
Else
Me.Label1.Text = "Page is invalid"
End If
End Sub
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents BasicDatePicker1 As BasicFrame.WebControls.BasicDatePicker
Protected WithEvents RequiredFieldValidator1 As BasicFrame.WebControls.RequiredFieldValidator
Protected WithEvents RangeValidator1 As BasicFrame.WebControls.RangeValidator
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
End Class