defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 61 行

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


Namespace Telerik.MenuExamplesVBNET.Menu.Examples.Design.AddRemoveItems
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected WithEvents Menu1 As RadMenu
      Protected debug As Label
      
      
      Private Sub ProcessItemClickedEvent(sender As Object, e As ItemEventArgs) Handles Menu1.ItemClicked
         Dim ItemClicked As Telerik.WebControls.MenuItem = e.Item
         Select Case ItemClicked.ParentGroup.ID
            Case "Add"
               Dim NewItem As New Telerik.WebControls.MenuItem()
               NewItem.Text = "New " + ItemClicked.Text
               ItemClicked.ParentGroup.AddItem(NewItem)
            Case "Remove"
               Dim ParentGroup As MenuGroup = ItemClicked.ParentGroup
               ParentGroup.RemoveItem(ItemClicked)
            Case "Disable"
               ItemClicked.Enabled = False
         End Select
      End Sub 'ProcessItemClickedEvent
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If IsPostBack Then
            Dim mi As Telerik.WebControls.MenuItem = Menu1.FindItemById("TEST")
            mi.Enabled = False
         End If
      End Sub 'Page_Load
      Protected Overrides Sub OnInit(e As EventArgs)
         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
   End Class 'DefaultVB 
End Namespace 'Telerik.MenuExamplesVBNET.Menu.Examples.Design.AddRemoveItems