defaultvb.aspx.vb

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

Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.ComboboxExamplesVB.AddRemoveDisable
   
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
      Protected WithEvents LinkButton2 As System.Web.UI.WebControls.LinkButton
      Protected WithEvents Linkbutton3 As System.Web.UI.WebControls.LinkButton
      Protected TextBox1 As System.Web.UI.WebControls.TextBox
      Protected WithEvents Linkbutton4 As System.Web.UI.WebControls.LinkButton
      Protected DataGrid1 As System.Web.UI.WebControls.DataGrid
      Protected RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
      Protected radComboBoxItem1 As Telerik.WebControls.RadComboBoxItem
      Protected radComboBoxItem2 As Telerik.WebControls.RadComboBoxItem
      Protected DropDownList1 As System.Web.UI.WebControls.DropDownList
      Protected RadComboBox1 As Telerik.WebControls.RadComboBox
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            RadComboBox1.LoadContentFile("combobox.xml")
            RadComboBox1.SelectedIndex = 0
         End If
      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 LinkButton1_Click(sender As Object, e As System.EventArgs) Handles LinkButton1.Click
         RadComboBox1.Text = [String].Empty
         RadComboBox1.SelectedItem.Enabled = False
      End Sub 'LinkButton1_Click
      
      
      Private Sub LinkButton2_Click(sender As Object, e As System.EventArgs) Handles LinkButton2.Click
         If Not (RadComboBox1.SelectedItem Is Nothing) Then
            RadComboBox1.SelectedItem.Remove()
         End If
      End Sub 'LinkButton2_Click
      
      
      Private Sub Linkbutton3_Click(sender As Object, e As System.EventArgs) Handles Linkbutton3.Click
         RadComboBox1.Items.Insert(0, New RadComboBoxItem(TextBox1.Text))
         RadComboBox1.SelectedIndex = 0
      End Sub 'Linkbutton3_Click
      
      
      Private Sub Linkbutton4_Click(sender As Object, e As System.EventArgs) Handles Linkbutton4.Click
         Dim item As RadComboBoxItem
         For Each item In  RadComboBox1.Items
            item.Enabled = True
         Next item
      End Sub 'Linkbutton4_Click
   End Class 'DefaultVB
End Namespace 'Telerik.ComboboxExamplesVB.AddRemoveDisable