or
Public Sub MenuHrefAnlegen(ByVal endVal As Integer, ByVal strArrQuerystring As Array) Dim width As String = "width:199px;" Dim count As Integer = 1 Dim i As Integer Dim startval As Integer startval = 1 For i = startval To endVal 'erzeuge menü element Dim combo As New RadComboBox() combo.ID = "rcbHrefAuswaehlen" & count combo.EnableLoadOnDemand = True combo.Skin = "Metro" combo.Items.Insert(0, New RadComboBoxItem("Über uns", String.Empty)) combo.Items.Insert(1, New RadComboBoxItem("Baufinanzierung", String.Empty)) combo.Items.Insert(2, New RadComboBoxItem("Denkmal-Immobilien", String.Empty)) combo.Items.Insert(3, New RadComboBoxItem("Photovoltaik", String.Empty)) combo.Items.Insert(4, New RadComboBoxItem("Assekuranz", String.Empty)) combo.Items.Insert(5, New RadComboBoxItem("Kontaktseite", String.Empty)) combo.Items.Insert(6, New RadComboBoxItem("Impressum", String.Empty)) combo.Items.Insert(7, New RadComboBoxItem("Benutzerdefinierte Seite", String.Empty)) Dim hfMenuElement As New HiddenField hfMenuElement.ID = "hfMenuElement" + count.ToString() hfMenuElement.Value = strArrQuerystring(count) MenuAusMenuPunktenZusammengesetzt.Controls.Add(New LiteralControl("<li class=""floatKill""><a href=""#"" id=""hrefm" & count & """ runat=""server"" onmouseover=""menuov('menuleft" & count & "', 'menupuffer" & count & "', 'menuright" & count & "');"" onmouseout=""menuovf('menuleft" & count & "', 'menupuffer" & i & "', 'menuright" & count & "');""><div id=""menuleft" & count & """ class=""menu_left""></div><div id=""menupuffer" & count & """ class=""menu_puffer"" style=""" & width & """>" & strArrQuerystring(count) & "</div><div id=""menuright" & count & """ class=""menu_right""></div></a><div class=""pfeil links"" style=""margin-left:15px;margin-top:8px;""></div><div class=""pfeil links"" style=""margin-top:8px;""></div><div class=""pfeil links"" style=""margin-right:15px;margin-top:8px;""></div></li>")) MenuAusMenuPunktenZusammengesetzt.Controls.Add(combo) MenuAusMenuPunktenZusammengesetzt.Controls.Add(hfMenuElement) count += 1 NextEnd Sub function CollectMenuElementeWithHref(sender, eventArgs) { var VID = $('input[id$=hfVermittlerID]').val(); var obj = { ID: VID }; for (var i = 1; i < 9; i++) { var hfVal = $('[id$=hfMenuElement' + i + ']').val(); //At this point i get Null back var combo = $find("<%= rcbHrefAuswaehlen" + i + ".ClientID %>"); var item = combo.get_items().getItem(2); if (hfVal) { obj["pa" + i] = hfVal obj["href" +1] = item.get_text() } } eventArgs.set_cancel(true); window.location.href = 'VermittlerBearbeiten.aspx?' + $.param(obj); }protected void rsbProducts_ButtonCommand(object sender, SearchBoxButtonEventArgs e){ if (e.CommandName == "clearfilter") { // Required to clear current filter text }}<telerik:RadPane runat="server" ID="PnlData" dir="rtl" text-align="left"> <telerik:RadPanelBar ID="radpnlbardata" runat="server" ExpandMode="FullExpandedItem" Width="100%" dir="ltr" text-align="left" Height="100%"> </telerik:RadPanelBar> <div style="width:100%; text-align:center;"> <telerik:RadButton ID="btnUpdate" runat="server" Skin="Metro" Text="Update" Width="70px" align="center" visible="false"/> <telerik:RadButton ID="btnadd" runat="server" Skin="Metro" Text="Add" Width="50px" align="center" visible="false"/> </div> </telerik:RadPane>dsFieldsDetails = myService.Get_Fields_Details(Request.Params("ObjID"))Dim rdRoot As New Telerik.Web.UI.RadPanelItemrdRoot.Text = "rbroot"rdRoot.Expanded = TruerdRoot.PreventCollapse = FalserdRoot.Selected = TrueFor Each row As DataRow In dsFieldsDetails.Tables(0).Rows Select Case row(dsFieldsDetails.Tables(0).Columns("field_type_name")) Case "Int", "smallint", "bigint", "varchar", "nvarchar" Dim label1 As New Label Dim textbox1 As New RadTextBox label1.ID = "lbl" + row(dsFieldsDetails.Tables(0).Columns("table_field_name")) label1.Text = row(dsFieldsDetails.Tables(0).Columns("table_field_name")) + ": " textbox1.ID = "txt" + row(dsFieldsDetails.Tables(0).Columns("table_field_name")) textbox1.Text = "" rdRoot.Controls.Add(label1) rdRoot.Controls.Add(textbox1) Case "bit" Dim checkbox1 As New CheckBox checkbox1.ID = "lbl" + row(dsFieldsDetails.Tables(0).Columns("table_field_name")) checkbox1.Text = row(dsFieldsDetails.Tables(0).Columns("table_field_name")) + ": " rdRoot.Controls.Add(checkbox1) End SelectNext<telerik:RadGrid ID="grid" runat="server" OnNeedDataSource="grid_NeedDataSource" OnItemCommand="grid_ItemCommand" OnInsertCommand="grid_InsertCommand"> <MasterTableView CommandItemDisplay="Top" ClientDataKeyNames="id" DataKeyNames="id" AutoGenerateColumns="false" EditMode="EditForms"> <CommandItemTemplate> <asp:LinkButton ID="add" runat="server" Text="Add new Record" CommandName="InitInsert"></asp:LinkButton> <asp:LinkButton ID="btnPerformInsert" runat="server" Text="Add new Record" CommandName="PerformInsert" Visible="true"></asp:LinkButton> </CommandItemTemplate> <Columns> <telerik:GridEditCommandColumn ButtonType="ImageButton" HeaderStyle-Width="10%" /> <telerik:GridButtonColumn CommandName="Delete" UniqueName="DeleteColumn" ButtonType="ImageButton" HeaderStyle-Width="10%" />... </Columns> <EditFormSettings EditFormType="Template"> <FormTemplate> .... <asp:Button ID="btnUpdate" Text="Update" runat="server" CommandName="Update" Visible='<%# !(Container.DataItem is Telerik.Web.UI.GridInsertionObject) %>' /> <asp:Button ID="btnInsert" Text="Insert" runat="server" CommandName="PerformInsert" Visible='<%# Container.DataItem is Telerik.Web.UI.GridInsertionObject %>' /> <asp:Button ID="btnCancel" Text="Cancel" runat="server" CausesValidation="False" CommandName="Cancel" /> </div> </div> </FormTemplate> </EditFormSettings>protected void grid_ItemCommand(object sender, GridCommandEventArgs e) { switch(e.CommandName) { case RadGrid.PerformInsertCommandName:
GridEditFormInsertItem insertedItem = (GridEditFormInsertItem)e.Item.OwnerTableView.GetInsertItem();<Style TargetType="{x:Type telerik:RadMenuItem}"> <Setter Property="HorizontalContentAlignment" Value="{Binding Path=HorizontalContentAlignment, RelativeSource={RelativeSource AncestorType={x:Type ItemsControl}}}" /> <Setter Property="VerticalContentAlignment" Value="{Binding Path=VerticalContentAlignment, RelativeSource={RelativeSource AncestorType={x:Type ItemsControl}}}" /> <Setter Property="Background" Value="{StaticResource ContextMenuBackground}"/> <Setter Property="Foreground" Value="{StaticResource ContextMenuForeground}"/> <Setter Property="Template"> <Setter.Value> <ControlTemplate TargetType="{x:Type telerik:RadMenuItem}"> <Grid> <Grid.RowDefinitions> <RowDefinition Height="*"/> <RowDefinition /> </Grid.RowDefinitions> <Border x:Name="Border" Background="{TemplateBinding Background}" BorderBrush="{TemplateBinding Background}" BorderThickness="2" CornerRadius="5"> <Grid> <Grid.ColumnDefinitions> <ColumnDefinition Width="Auto" MinWidth="17" SharedSizeGroup="Icon" /> <ColumnDefinition Width="Auto" MinWidth="5" SharedSizeGroup="Name" /> <ColumnDefinition MinWidth="5" Width="Auto" SharedSizeGroup="Shortcut" /> <ColumnDefinition MinWidth="10" Width="Auto" SharedSizeGroup="Arrow" /> </Grid.ColumnDefinitions> <ContentPresenter x:Name="Icon" Margin="4,0,6,0" VerticalAlignment="Center" ContentSource="Icon" /><ContentPresenter x:Name="HeaderHost" Grid.Column="1" Margin="{TemplateBinding Padding}" ContentSource="Header" RecognizesAccessKey="True" > <ContentPresenter.Resources> <Style TargetType="{x:Type TextBlock}"> <Setter Property="TextTrimming" Value="CharacterEllipsis"/> <Setter Property="FontSize" Value="11"/> <Setter Property="FontFamily" Value="Arial Unicode MS"/> <Style.Triggers> <Trigger Property="controls:TextBlockService.IsTextTrimmed" Value="True"> <Setter Property="ToolTip" Value="{Binding Text, RelativeSource={RelativeSource Self}}"/> </Trigger> </Style.Triggers> </Style> </ContentPresenter.Resources> </ContentPresenter> <TextBlock x:Name="ShortCuts" Grid.Column="3" Margin="{TemplateBinding Padding}" > </TextBlock> <Popup x:Name="SubMenuPopup" AllowsTransparency="true" Focusable="false" Grid.IsSharedSizeScope="True" IsOpen="{Binding Path=IsSubmenuOpen, RelativeSource={RelativeSource TemplatedParent}}" Placement="Right" PopupAnimation="{DynamicResource {x:Static SystemParameters.MenuPopupAnimationKey}}" VerticalOffset="-3"> <Grid x:Name="SubMenu"> <Border x:Name="SubMenuBorder" Background="{TemplateBinding Background}" BorderBrush="Gray" BorderThickness="1" CornerRadius="5"> <StackPanel IsItemsHost="True" KeyboardNavigation.DirectionalNavigation="Cycle" /> </Border> </Grid> </Popup> </Grid> </Border><Rectangle x:Name="Separator" Grid.Row="1" Height="1" Visibility="Collapsed" Fill="{DynamicResource GridView_GridLinesItemVertical}" /> </Grid> <ControlTemplate.Triggers> <Trigger Property="attachedBehaviors:MenuItemHasSeparatorBehavior.HasSeparator" Value="True"> <Setter TargetName="Separator" Property="Visibility" Value="Visible"/> </Trigger> <Trigger Property="Role" Value="TopLevelHeader"> <Setter Property="Margin" Value="2" /> <Setter Property="Padding" Value="6,3,6,3" /> <Setter TargetName="SubMenuPopup" Property="Placement" Value="Bottom" /> </Trigger> <Trigger Property="Role" Value="TopLevelItem"> <Setter Property="Margin" Value="2" /> <Setter Property="Padding" Value="6,3,6,3" /> </Trigger> <Trigger Property="Role" Value="SubmenuHeader"> <Setter Property="DockPanel.Dock" Value="Top" /> <Setter Property="Padding" Value="0,2,0,2" /> </Trigger> <Trigger Property="Role" Value="SubmenuItem"> <Setter Property="DockPanel.Dock" Value="Top" /> <Setter Property="Padding" Value="0,2,0,2" /> </Trigger> <Trigger Property="Icon" Value="{x:Null}"> <Setter TargetName="Icon" Property="Visibility" Value="Collapsed" /> </Trigger> <Trigger Property="IsChecked" Value="true"> <Setter TargetName="Icon" Property="Visibility" Value="Collapsed" /> </Trigger> <Trigger SourceName="SubMenuPopup" Property="AllowsTransparency" Value="true"> <Setter TargetName="SubMenu" Property="Margin" Value="2" /> <Setter TargetName="SubMenu" Property="SnapsToDevicePixels" Value="true" /> <Setter TargetName="SubMenuBorder" Property="BitmapEffect" Value="{DynamicResource PopupDropShadow}" /> </Trigger> <Trigger Property="IsHighlighted" Value="true"> <Setter TargetName="Border" Property="Background" Value="{StaticResource BR_Menu_Highlight}" /> <Setter Property="Foreground" Value="{StaticResource BR_SE_White}" /> <Setter TargetName="ShortCuts" Property="Foreground" Value="{StaticResource BR_SE_White}" /> </Trigger> <Trigger Property="IsEnabled" Value="false"> <Setter Property="Foreground" Value="{DynamicResource {x:Static SystemColors.GrayTextBrushKey}}" /> <Setter TargetName="ShortCuts" Property="Foreground" Value="{DynamicResource {x:Static SystemColors.GrayTextBrushKey}}"/> </Trigger> </ControlTemplate.Triggers> </ControlTemplate> </Setter.Value> </Setter></Style><Style TargetType="{x:Type telerik:RadContextMenu}"> <Setter Property="OverridesDefaultStyle" Value="True" /> <Setter Property="SnapsToDevicePixels" Value="True" /> <Setter Property="Background" Value="{StaticResource ContextMenuBackground}"/> <Setter Property="FontSize" Value="11"/> <Setter Property="FontFamily" Value="Arial Unicode MS"/> <Setter Property="Grid.IsSharedSizeScope" Value="True"></Setter> <Setter Property="Template"> <Setter.Value> <ControlTemplate TargetType="{x:Type telerik:RadContextMenu}"> <Border x:Name="Border" Background="{TemplateBinding Background}" BorderBrush="{StaticResource ContextMenuBorderBrush}" BorderThickness="1" CornerRadius="5"> <StackPanel ClipToBounds="True" IsItemsHost="True" Orientation="Vertical" /> </Border> </ControlTemplate> </Setter.Value> </Setter></Style>