defaultvb.aspx.vb

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

Imports System
Imports System.Web.UI.WebControls
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.ComboboxExamplesVB.ExpandEffects
   
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents ExpandEffects As System.Web.UI.WebControls.DropDownList
      Protected radComboBoxItem1 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem2 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem3 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem4 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem5 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem6 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem7 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem8 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem9 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem10 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem11 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem12 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem13 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem14 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem15 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem16 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem17 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem18 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem19 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem20 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem21 As Telerik.WebControls.RadComboBoxItem
      Protected RadComboBox1 As RadComboBox
      
      
      Private Sub Page_Load(sender As Object, e As 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
      
      
      '/		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 ExpandEffects_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ExpandEffects.SelectedIndexChanged
         Dim newExpandEffect As RadComboBoxExpandEffect = RadComboBoxExpandEffect.None
         Select Case ExpandEffects.SelectedItem.Text
            Case "Barn"
               newExpandEffect = RadComboBoxExpandEffect.Barn
            Case "Blinds"
               newExpandEffect = RadComboBoxExpandEffect.Blinds
            Case "Checkerboard"
               newExpandEffect = RadComboBoxExpandEffect.Checkerboard
            Case "Fade"
               newExpandEffect = RadComboBoxExpandEffect.Fade
            Case "GradientWipe"
               newExpandEffect = RadComboBoxExpandEffect.GradientWipe
            Case "Inset"
               newExpandEffect = RadComboBoxExpandEffect.Inset
            Case "Iris"
               newExpandEffect = RadComboBoxExpandEffect.Iris
            Case "Pixelate"
               newExpandEffect = RadComboBoxExpandEffect.Pixelate
            Case "RadialWipe"
               newExpandEffect = RadComboBoxExpandEffect.RadialWipe
            Case "RandomBars"
               newExpandEffect = RadComboBoxExpandEffect.RandomBars
            Case "RandomDissolve"
               newExpandEffect = RadComboBoxExpandEffect.RandomDissolve
            Case "Slide"
               newExpandEffect = RadComboBoxExpandEffect.Slide
            Case "Spiral"
               newExpandEffect = RadComboBoxExpandEffect.Spiral
            Case "Stretch"
               newExpandEffect = RadComboBoxExpandEffect.Stretch
            Case "Strips"
               newExpandEffect = RadComboBoxExpandEffect.Strips
            Case "Wheel"
               newExpandEffect = RadComboBoxExpandEffect.Wheel
            Case "ZigZag"
               newExpandEffect = RadComboBoxExpandEffect.ZigZag
         End Select
         RadComboBox1.ExpandEffect = newExpandEffect
      End Sub 'ExpandEffects_SelectedIndexChanged
   End Class 'DefaultVB 
End Namespace 'Telerik.ComboboxExamplesVB.ExpandEffects