or
Protected Sub Page_Load()Dim H As RadMenu = DirectCast(myMenu.FindControl("House"), RadMenu)Dim D As RadMenuItem = DirectCast(H.FindControl("door"), RadMenuItem)D.click = LoadStuff()End SubPrivate Sub LoadStuff()'update something in vb.netEnd Sub<telerik:RadGrid runat="server" ID="grdControl" AllowFilteringByColumn="True" AllowPaging="True" AllowSorting="True" GridLines="None"> <MasterTableView AutoGenerateColumns="False" EditMode="EditForms" DataKeyNames="ControlId, StepId" CommandItemDisplay="Bottom"> <CommandItemSettings ExportToPdfText="Export to Pdf"></CommandItemSettings> <Columns> <telerik:GridButtonColumn ButtonType="LinkButton" Text="Select" CommandName="Select" UniqueName="Select"> </telerik:GridButtonColumn> <telerik:GridEditCommandColumn UniqueName="Edit"> </telerik:GridEditCommandColumn> <telerik:GridButtonColumn CommandName="Delete" Text="Delete" UniqueName="Delete"> </telerik:GridButtonColumn> <telerik:GridDropDownColumn DataField="ControlName" HeaderText="Control Type" UniqueName="ControlName"> </telerik:GridDropDownColumn> <telerik:GridBoundColumn DataField="MaxLength" HeaderText="Max Length" UniqueName="MaxLength"> </telerik:GridBoundColumn> <telerik:GridDropDownColumn DataField="TextMode" HeaderText="Text Mode" UniqueName="TextMode" /> <telerik:GridDropDownColumn DataField="ListSource" HeaderText="List Source" UniqueName="ListSource"> </telerik:GridDropDownColumn> <telerik:GridBoundColumn DataField="EmptyListText" HeaderText="Empty List Text" UniqueName="EmptyListText"> </telerik:GridBoundColumn> </Columns> </MasterTableView> <FilterMenu> </FilterMenu> <HeaderContextMenu CssClass="GridContextMenu GridContextMenu_Default"> </HeaderContextMenu></telerik:RadGrid> Private Sub grdControl_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles grdControl.ItemDataBound If TypeOf e.Item Is GridEditableItem Then Dim item As GridEditableItem = e.Item Dim control As FormControlInfo Dim ffc As New FlexFormController() If TypeOf e.Item Is GridEditFormItem AndAlso e.Item.IsInEditMode Then If e.Item.OwnerTableView.IsItemInserted Then control = New FormControlInfo() Else control = e.Item.DataItem End If Dim editor As GridDropDownListColumnEditor Dim cbo As RadComboBox 'ControlName dropdown Dim path As String = Server.MapPath("~/DesktopModules/Dotcom.FlexForm/Components/FormControls/") Dim files As String() = IO.Directory.GetFiles(path, "*.ascx") For i = 0 To files.Length - 1 files(i) = IO.Path.GetFileName(files(i)).Replace(".ascx", String.Empty) Next editor = item.EditManager.GetColumnEditor("ControlName") editor.DataSource = files editor.DataBind() editor.SelectedValue = control.ControlName 'ListSource dropdown editor = item.EditManager.GetColumnEditor("ListSource") Dim controller As New Lists.ListController() Dim list As Lists.ListInfoCollection If String.IsNullOrEmpty(control.ParentKey) Then list = controller.GetListInfoCollection() editor.DataTextField = "DisplayName" editor.DataValueField = "Key" Else list = controller.GetListInfoCollection(Nothing, control.ParentKey.Replace(":", ".")) editor.DataTextField = "Name" editor.DataValueField = "Name" End If editor.DataSource = list editor.DataBind() cbo = editor.ComboBoxControl cbo.Items.Insert(0, New RadComboBoxItem(Localization.GetString("EmptyListItem", Definition.SharedResources), String.Empty)) If Not String.IsNullOrEmpty(control.ListSource) Then editor.SelectedValue = control.ListSource End If 'TextMode dropdown editor = item.EditManager.GetColumnEditor("TextMode") editor.DataSource = [Enum].GetNames(GetType(TextBoxMode)) editor.DataBind() cbo = editor.ComboBoxControl cbo.Items.Insert(0, New RadComboBoxItem(Localization.GetString("EmptyListItem", Definition.SharedResources), String.Empty)) Else control = e.Item.DataItem item("ControlName").Text = control.ControlName item("ListSource").Text = control.ListSource item("EmptyListText").Text = Server.HtmlEncode(control.EmptyListText) item("ParentControlId").Text = control.ParentId If control.TextMode.HasValue Then item("TextMode").Text = control.TextMode.Value.ToString End If End If End If End Sub