or
<telerik:RadAsyncUpload ID="RadAsyncUpload1" runat="server" MultipleFileSelection="Automatic" OnClientFileSelected="DoFrameSize" ForeColor="Black"> </telerik:RadAsyncUpload> <telerik:RadProgressArea runat="server" ID="RadProgressArea1"> </telerik:RadProgressArea>Dim
btn As New RadButton
btn.ButtonType =
RadButtonType.LinkButton
btn.EnableEmbeddedSkins =
False
btn.Skin = Common.
Constants.SkinDefault
btn.CausesValidation =
False
btn.Text = Common.Resources.
Messages.RibbonVergaderingen
btn.CommandArgument = Common.PadNaarVergaderingenLijstPagina
AddHandler btn.Click, AddressOf btn_Click
Private
Sub btn_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Presenter.Model.RefererUrl = DirectCast(sender, RadButton).CommandArgument
onclientcollapsed
<telerik:RadSlidingZone ID="rszExtraInfo" runat="server" ClickToOpen="True" SlideDirection="Left" SkinID="Vista"> <telerik:RadSlidingPane ID="RadSlidingPane1" Runat="server" EnableResize="False" onclientexpanding="FetchExtraInfo" Title="More Info" Width="400px" onclientcollapsed="HideExtraInfo"> <asp:Panel ID="pnlExtraInfo" runat="server" Height="100%" Width="100%"> </asp:Panel> </telerik:RadSlidingPane> </telerik:RadSlidingZone>function HideExtraInfo(sender) { document.getElementById('<%= pnlExtraInfo.ClientID%>').style.display = 'none'; }
DataTable
dt = _presenter.GetAllMenu();
radMenu1.DataFieldParentID =
"ParentMenuId";
radMenu1.DataFieldID =
"MenuId";
radMenu1.DataNavigateUrlField =
"Link";
radMenu1.DataTextField =
"MenuName";
radMenu1.DataValueField =
"MenuId";
radMenu1.DataSource = dt;
radMenu1.DataBind();
Please help.
Neel
Protected Sub GetLatestBackup() Try 'To bind the Latest Backup Chart rcLatestBackup.Series.Clear() Dim dbNutBackupModel As New NutBackupModel Dim dashlist As List(Of DashBoardList) dashlist = (From objdashboardlist In dbNutBackupModel.Getbackupstatus _ Select New DashBoardlist With {.CntSuccessful = (CInt(objdashboardlist(4))), .CntFailure = (CInt(objdashboardlist(5))), .CntNA = (CInt(objdashboardlist(6)))}).ToList() ' Dim intSuccessful As Integer = dashlist.IndexO Dim dtList As New DataTable("StatusList") dtList.Columns.Add("Count", GetType(Integer)) dtList.Columns.Add("Status", GetType(String)) Dim drowSuccess As DataRow = dtList.NewRow() Dim drowFailed As DataRow = dtList.NewRow() Dim drowNA As DataRow = dtList.NewRow() drowSuccess("Count") = dashlist.Item(0).CntSuccessful drowSuccess("Status") = "Successful" dtList.Rows.Add(drowSuccess) dtList.AcceptChanges() drowFailed("Count") = dashlist.Item(0).CntFailure drowFailed("Status") = "Failed" dtList.Rows.Add(drowFailed) drowNA("Count") = dashlist.Item(0).CntNA drowNA("Status") = "N/A" dtList.Rows.Add(drowNA) dtList.AcceptChanges() rcLatestBackup.DataSource = dtList rcLatestBackup.IntelligentLabelsEnabled = True rcLatestBackup.DataManager.LabelsColumn = "Status" rcLatestBackup.DataBind() rcLatestBackup.Series(0).Name = "Status" rcLatestBackup.Series(0).Appearance.LegendDisplayMode = Telerik.Charting.ChartSeriesLegendDisplayMode.ItemLabels rcLatestBackup.Series(0).ActiveRegionToolTip = "#ITEM: #%" rcLatestBackup.ChartTitle.TextBlock.Text = " Latest backup status- " & " Success : " & dashlist.Item(0).CntSuccessful & " " & " Failure : " & dashlist.Item(0).CntFailure rcLatestBackup.Series(0).Appearance.LabelAppearance.Visible = True Catch ex As Exception CommonFunctions.ErrorLog("Dashboard.aspx.vb", "GetLatestBackup", ex) End Try End Sub
<telerik:RadChart ID="rcLatestBackup" runat="server" DefaultType="Pie" AutoTextWrap="true" SeriesOrientation="Vertical">
<Appearance Dimensions-Width="710px" ImageQuality="HighQuality">
</Appearance>
<Series>
<telerik:ChartSeries Name="Series 1" Type="Pie" DataYColumn="">
<Appearance LegendDisplayMode="SeriesName">
</Appearance>
</telerik:ChartSeries>
</Series>
</telerik:RadChart>