or
<%@ Page Language="C#" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><script runat="server"> protected void RadButton1_Click(object sender, EventArgs e) { Label1.Text = RadTextBox1.Text; Label2.Text = RadTextBox2.Text; }</script><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"> <title></title></head><body> <form id="form1" runat="server"> <asp:ScriptManager ID="ScriptManager1" runat="server" /> <div> <table> <tr> <td> <telerik:RadTextBox ID="RadTextBox1" runat="server" /> </td> <td> <telerik:RadTextBox ID="RadTextBox2" runat="server" /> </td> </tr> <tr> <td colspan="2"> <telerik:RadButton ID="RadButton1" runat="server" Text="RadButton" OnClick="RadButton1_Click" /> </td> </tr> <tr> <td> <asp:Label ID="Label1" runat="server" Text="Label" /> </td> <td> <asp:Label ID="Label2" runat="server" Text="Label" /> </td> </tr> </table> </div> </form></body></html>
Public Sub SetChartSeries() Dim oList As New List(Of tblDashboardStat) Dim db As New BusIntDataContext Dim oSeriesPrior As New ChartSeries Dim oSeriesCur As New ChartSeries oList = (From d In db.tblDashboardStats Where d.statGroupID = 1 Order By d.statSeriesName Descending, d.statSeriesOrder Ascending).ToList For Each item As tblDashboardStat In oList Dim oChartSeriesItem As New ChartSeriesItem((item.statSeriesValue1) / 1000000) oChartSeriesItem.Appearance.Border.Color = Drawing.ColorTranslator.FromHtml(item.statSeriesColor) oChartSeriesItem.Appearance.FillStyle.FillType = Styles.FillType.Gradient 'oChartSeriesItem.Appearance.FillStyle.MainColorOpacity ---> THIS IS READ ONLY oChartSeriesItem.Appearance.FillStyle.MainColor = Drawing.ColorTranslator.FromHtml(item.statSeriesColor) oChartSeriesItem.ActiveRegion.Tooltip = String.Format("{0:n1}", item.statSeriesValue1) If item.statSeriesName = "Prior" Then oSeriesPrior.Items.Add(oChartSeriesItem) hdnColor1.Value = item.statSeriesColor Else oSeriesCur.Items.Add(oChartSeriesItem) hdnColor2.Value = item.statSeriesColor End If Next rcTotalBilling.Series.Add(oSeriesPrior) rcTotalBilling.Series.Add(oSeriesCur)End Sub