invisiblelegendentry.aspx

来自「掌握学习.net开发的非常好的资料」· ASPX 代码 · 共 69 行

ASPX
69 行
字号 
<%@ Page Language="VB"  debug="true" Description="dotnetCHARTING Component"%>
<%@ Register TagPrefix="dotnet"  Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>


<script runat="server">
Sub Page_Load(sender As [Object], e As EventArgs)
   'set global properties
   Chart.Title = "Item sales"
   Chart.XAxis.Label.Text = "months"
   Chart.YAxis.FormatString = "currency"
   Chart.TempDirectory = "temp"
   Chart.Debug = True
   Chart.Size = "800X500"
   Chart.TitleBox.Position = TitleBoxPosition.FullWithLegend
   
   'Make series legend entries invisible and add 3 custom legend entries
   Chart.DefaultSeries.LegendEntry.Visible = False
   Dim singleLegendEntry As New LegendEntry()
   singleLegendEntry.Name = "Sales < $3500"
   singleLegendEntry.Background.Color = Color.Red
   Chart.ExtraLegendEntries.Add(singleLegendEntry)
   singleLegendEntry = New LegendEntry()
   singleLegendEntry.Name = "$3500 < Sales < $5000"
   singleLegendEntry.Background.Color = Color.Yellow
   Chart.ExtraLegendEntries.Add(singleLegendEntry)
   singleLegendEntry = New LegendEntry()
   singleLegendEntry.Name = "$5000 < Sales "
   singleLegendEntry.Background.Color = Color.Green
   Chart.ExtraLegendEntries.Add(singleLegendEntry)
   
   
   
   'Add a series
   Dim de As New DataEngine()
   de.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" + Server.MapPath("../../database/chartsample.mdb") 
   de.StartDate = New DateTime(2002, 1, 1, 0, 0, 0)
   de.EndDate = New DateTime(2002, 12, 31, 23, 59, 59)
   de.DateGrouping = TimeInterval.Year
   de.SqlStatement = "SELECT OrderDate,Total, Name FROM Orders  WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# ORDER BY OrderDate"   
   Dim sc As SeriesCollection = de.GetSeries()
   ' customize element settings
   'set the color for different customers in each month based on their total sale.
   Dim sr As dotnetCHARTING.Series
   For Each sr In  sc
      Dim el As dotnetCHARTING.Element
      For Each el In  sr.Elements
         If el.YValue < 3500 Then
            el.Color = Color.Red
         Else
            If el.YValue < 5000 Then
               el.Color = Color.Yellow
            Else
               el.Color = Color.Green
            End If
         End If
      Next el
   Next sr
   Chart.SeriesCollection.Add(sc)
End Sub 'Page_Load
</script>
<HTML><HEAD><TITLE>Invisible Legend Entry</TITLE></HEAD>
<BODY>
<DIV align=center>
 <dotnet:Chart id="Chart"  runat="server"/>
</DIV>
</BODY>
</BODY>
</HTML>

invisiblelegendentry.aspx - 源码说明

本页面展示了「掌握学习.net开发的非常好的资料」中的 invisiblelegendentry.aspx 源码文件，采用 ASPX 编程语言编写，共 69 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与.NET相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?