defaultvb.aspx.vb

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

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


Namespace Telerik.ComboboxExamplesVB.Sorting
   
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadComboBox1 As RadComboBox
      Protected SortOrder As RadioButtonList
      
      
      Private Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      
      
      Protected Sub SortOrderChanged(sender As Object, e As EventArgs)
         RadComboBox1.Text = [String].Empty
         
         Select Case SortOrder.SelectedItem.Value
            Case "Ascending"
               RadComboBox1.Sort = RadComboBoxSort.Ascending
            Case "Descending"
               RadComboBox1.Sort = RadComboBoxSort.Descending
            Case Else
               RadComboBox1.Items.Clear()
               RadComboBox1.Sort = RadComboBoxSort.None
               RadComboBox1.LoadContentFile("~/Combobox/Examples/Functionality/Sorting/combobox.xml")
         End Select
      End Sub 'SortOrderChanged
      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
   End Class 'DefaultVB 
End Namespace 'Telerik.ComboboxExamplesVB.Sorting