Imports BasicFrame.WebControls
Public Class Sample9
Inherits System.Web.UI.Page
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
' Create an instance of Basic Date Picker for each DisplayType.
Dim bdp1 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp2 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp3 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp4 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp5 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp6 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp7 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp8 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp9 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp10 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
Dim bdp11 As BasicFrame.WebControls.BasicDatePicker = New BasicFrame.WebControls.BasicDatePicker
' Set the DisplayType.
bdp1.DisplayType = BasicFrame.WebControls.DisplayType.TextBoxAndButton
bdp2.DisplayType = BasicFrame.WebControls.DisplayType.TextBoxAndHyperLink
bdp3.DisplayType = BasicFrame.WebControls.DisplayType.TextBoxAndImage
bdp4.DisplayType = BasicFrame.WebControls.DisplayType.TextBox
bdp5.DisplayType = BasicFrame.WebControls.DisplayType.LabelAndButton
bdp6.DisplayType = BasicFrame.WebControls.DisplayType.LabelAndHyperLink
bdp7.DisplayType = BasicFrame.WebControls.DisplayType.LabelAndImage
bdp8.DisplayType = BasicFrame.WebControls.DisplayType.Label
bdp9.DisplayType = BasicFrame.WebControls.DisplayType.Button
bdp10.DisplayType = BasicFrame.WebControls.DisplayType.HyperLink
bdp11.DisplayType = BasicFrame.WebControls.DisplayType.Image
' Set the SelectedDate property to Today.
bdp1.SelectedDate = DateTime.Today
bdp2.SelectedDate = DateTime.Today
bdp3.SelectedDate = DateTime.Today
bdp4.SelectedDate = DateTime.Today
bdp5.SelectedDate = DateTime.Today
bdp6.SelectedDate = DateTime.Today
bdp7.SelectedDate = DateTime.Today
bdp8.SelectedDate = DateTime.Today
bdp9.SelectedDate = DateTime.Today
bdp10.SelectedDate = DateTime.Today
bdp11.SelectedDate = DateTime.Today
' Create labels to display above each date picker.
Dim lit1 As Literal = New Literal
Dim lit2 As Literal = New Literal
Dim lit3 As Literal = New Literal
Dim lit4 As Literal = New Literal
Dim lit5 As Literal = New Literal
Dim lit6 As Literal = New Literal
Dim lit7 As Literal = New Literal
Dim lit8 As Literal = New Literal
Dim lit9 As Literal = New Literal
Dim lit10 As Literal = New Literal
Dim lit11 As Literal = New Literal
lit1.Text = "<h4>TextBoxAndButton</h4>"
lit2.Text = "<h4>TextBoxAndHyperLink</h4>"
lit3.Text = "<h4>TextBoxAndImage</h4>"
lit4.Text = "<h4>TextBox</h4>"
lit5.Text = "<h4>LabelAndButton</h4>"
lit6.Text = "<h4>LabelAndHyperLink</h4>"
lit7.Text = "<h4>LabelAndImage</h4>"
lit8.Text = "<h4>Label</h4>"
lit9.Text = "<h4>Button</h4>"
lit10.Text = "<h4>HyperLink</h4>"
lit11.Text = "<h4>Image</h4>"
' Add the controls to a Place Holder.
PlaceHolder1.Controls.Add(lit1)
PlaceHolder1.Controls.Add(bdp1)
PlaceHolder1.Controls.Add(lit2)
PlaceHolder1.Controls.Add(bdp2)
PlaceHolder1.Controls.Add(lit3)
PlaceHolder1.Controls.Add(bdp3)
PlaceHolder1.Controls.Add(lit4)
PlaceHolder1.Controls.Add(bdp4)
PlaceHolder1.Controls.Add(lit5)
PlaceHolder1.Controls.Add(bdp5)
PlaceHolder1.Controls.Add(lit6)
PlaceHolder1.Controls.Add(bdp6)
PlaceHolder1.Controls.Add(lit7)
PlaceHolder1.Controls.Add(bdp7)
PlaceHolder1.Controls.Add(lit8)
PlaceHolder1.Controls.Add(bdp8)
PlaceHolder1.Controls.Add(lit9)
PlaceHolder1.Controls.Add(bdp9)
PlaceHolder1.Controls.Add(lit10)
PlaceHolder1.Controls.Add(bdp10)
PlaceHolder1.Controls.Add(lit11)
PlaceHolder1.Controls.Add(bdp11)
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
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 PlaceHolder1 As System.Web.UI.WebControls.PlaceHolder
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
#End Region
End Class