defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text.RegularExpressions
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.InputExamplesVB.Programming.ServerSide.ProgrammaticDefinition
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents RadioButtonList1 As System.Web.UI.WebControls.RadioButtonList
      Protected LiteralTextBox As System.Web.UI.WebControls.TextBox
      Protected LiteralPanel As System.Web.UI.WebControls.Panel
      Protected WithEvents Button1 As System.Web.UI.WebControls.Button
      Protected Label1 As System.Web.UI.WebControls.Label
      Protected RangePanel As System.Web.UI.WebControls.Panel
      Protected RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
      Protected LowerTextBox As System.Web.UI.WebControls.TextBox
      Protected UpperTextBox As System.Web.UI.WebControls.TextBox
      Protected RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
      Protected RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator
      Protected CompareValidator1 As System.Web.UI.WebControls.CompareValidator
      Protected Label2 As System.Web.UI.WebControls.Label
      Protected EnumPanel As System.Web.UI.WebControls.Panel
      Protected EnumTextBox As System.Web.UI.WebControls.TextBox
      Protected RequiredFieldValidator4 As System.Web.UI.WebControls.RequiredFieldValidator
      Protected Button2 As System.Web.UI.WebControls.Button
      Protected RadMaskedTextBox1 As Telerik.WebControls.RadMaskedTextBox
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/ <summary>
      '/ Required method for Designer support - do not modify
      '/ the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
      Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
         If Page.IsValid Then
            Dim part As String = SelectedPart()
            
            Select Case part
               Case "Literal"
                  Dim literalPart As New LiteralMaskPart()
                  literalPart.Text = LiteralTextBox.Text
                  RadMaskedTextBox1.MaskParts.Add(literalPart)
               Case "Range"
                  Dim rangePart As New NumericRangeMaskPart()
                  rangePart.LowerLimit = Convert.ToInt32(LowerTextBox.Text)
                  rangePart.UpperLimit = Convert.ToInt32(UpperTextBox.Text)
                  RadMaskedTextBox1.MaskParts.Add(rangePart)
               Case "Digit"
                  RadMaskedTextBox1.MaskParts.Add(New DigitMaskPart())
               Case "Uppercase"
                  RadMaskedTextBox1.MaskParts.Add(New UpperMaskPart())
               Case "Lowercase"
                  RadMaskedTextBox1.MaskParts.Add(New LowerMaskPart())
               Case "Enumeration"
                  Dim enumPart As New EnumerationMaskPart()
                  
                  Dim enumValues As String() = Regex.Split(EnumTextBox.Text, ControlChars.Cr + ControlChars.Lf)
                  Dim enumValue As String
                  For Each enumValue In  enumValues
                     enumPart.Items.Add(enumValue)
                  Next enumValue
                  RadMaskedTextBox1.MaskParts.Add(enumPart)
            End Select
            
            Label1.Text = part + " Part was added."
            Label2.Text = Server.HtmlEncode(RadMaskedTextBox1.Mask)
            EnumTextBox.Text = ""
            LowerTextBox.Text = ""
            UpperTextBox.Text = ""
            LiteralTextBox.Text = ""
         End If
      End Sub 'Button1_Click
      
      
      Private Function SelectedPart() As String
         Dim selectedItem As ListItem = RadioButtonList1.Items(RadioButtonList1.SelectedIndex)
         Return selectedItem.Value
      End Function 'SelectedPart
      
      
      Private Sub RadioButtonList1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles RadioButtonList1.SelectedIndexChanged
         Dim part As String = SelectedPart()
         
         LiteralPanel.Visible = part = "Literal"
         RangePanel.Visible = part = "Range"
         EnumPanel.Visible = part = "Enumeration"
      End Sub 'RadioButtonList1_SelectedIndexChanged
      
      
      Private Sub Button2_Click(sender As Object, e As EventArgs)
         RadMaskedTextBox1.MaskParts.Clear()
         Label1.Text = "Mask was reset."
         Label2.Text = "(empty)"
      End Sub 'Button2_Click
   End Class 'DefaultVB
End Namespace 'Telerik.InputExamplesVB.Programming.ServerSide.ProgrammaticDefinition