Imports System.IO

 

Public Class Extras1

  Inherits System.Web.UI.Page

 

#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 TabSet1 As MonoSoftware.Web.Extras.TabSet

 

  'dateselector

  Protected WithEvents DateSelector1 As MonoSoftware.Web.Extras.DateSelector

  Protected WithEvents DateSelectButton As System.Web.UI.WebControls.Button

  Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar

 

  'color selector

  Protected WithEvents ColoringCell As System.Web.UI.WebControls.TableCell

  Protected WithEvents CustomBorderColorList As MonoSoftware.Web.Extras.ColorSelector

  Protected WithEvents BackColorList As MonoSoftware.Web.Extras.ColorSelector

  Protected WithEvents ForeColorList As MonoSoftware.Web.Extras.ColorSelector

  Protected WithEvents FlagsEnumPicker As MonoSoftware.Web.Extras.FlagedEnumPickList

  Protected WithEvents monoTabExShellControls As MonoSoftware.Web.Extras.TabEx

  Protected WithEvents monoTabExScheduler As MonoSoftware.Web.Extras.TabEx

 

  'enum pickers

  Protected WithEvents LabelBorderStylePicker As MonoSoftware.Web.Extras.EnumPickList

 

  '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

 

  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    'setup custom colors for the "CustomBorderColorList"

    CustomBorderColorList.ClearColors()

    CustomBorderColorList.AddColor(Color.Firebrick, "Brick on fire")

    CustomBorderColorList.AddColor(Color.GreenYellow, "Lemon sun")

    CustomBorderColorList.AddColor(Color.FromArgb(64, 128, 255), "my color")

 

    'assign the handler for the DateSelectButton

    AddHandler DateSelectButton.Click, AddressOf DateSelectButton_Click

 

    'apply colors to the label (all the color pickers have Autopostback set to true)

    ColoringCell.ForeColor = ForeColorList.SelectedColor

    ColoringCell.BackColor = BackColorList.SelectedColor

    ColoringCell.BorderColor = CustomBorderColorList.SelectedColor

 

    'enum pickers

    AddHandler LabelBorderStylePicker.SelectedItemChanged, AddressOf LabelBorderStylePicker_SelectedItemChanged

 

    LabelBorderStylePicker.AutoPostBack = True

    LabelBorderStylePicker.EnumType = GetType(BorderStyle)

    If Not (Page.IsPostBack) Then

      LabelBorderStylePicker.SelectedAsString = ColoringCell.BorderStyle.ToString

    End If

 

 

    If Not (Page.IsPostBack) Then

      FlagsEnumPicker.FlagedEnumType = GetType(FileAttributes)

      FlagsEnumPicker.SelectedAsString = "ReadOnly, Encrypted"

    End If

  End Sub

 

  Private Sub DateSelectButton_Click(ByVal sender As Object, ByVal e As EventArgs)

    Calendar1.SelectedDate = DateSelector1.Value

    Calendar1.VisibleDate = DateSelector1.Value

  End Sub

 

  Private Sub LabelBorderStylePicker_SelectedItemChanged(ByVal sender As Object, ByVal e As EventArgs)

    If TabSet1.SelectedIndex = 3 Then

      TabSet1.SelectedIndex = 2

    End If

    ColoringCell.BorderStyle = CType(System.Enum.Parse(GetType(BorderStyle), LabelBorderStylePicker.SelectedAsString), BorderStyle)

  End Sub

 

 

End Class