📄 seriescollectionsort.aspx
字号:
<%@ Import Namespace="System.Drawing" %>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Page Language="VB" Debug="true" Description="dotnetCHARTING Component" %>
<script runat="server">
Sub Page_Load(sender As [Object], e As EventArgs)
' This sample will demonstrate series can be sorted.
Chart.TempDirectory = "temp"
Chart.Debug = True
Chart.Use3D = True
Chart.DefaultSeries.DefaultElement.Transparency = 20
Chart.DefaultSeries.Type = SeriesType.AreaLine
Chart.Title = "Sorting Series By Name in ascending order"
'First we generate our data, if you would like to get the data from a database you need to use
' the data engine. See sample: features/dataEngine.aspx. Or the dataEngine tutorial in the help file.
Dim mySC As SeriesCollection = getData()
'First sort it by name and add it to the first chart.
mySC.Sort(ElementValue.Name, "ASC")
Chart.SeriesCollection.Add(mySC)
'Next chart
Chart1.TempDirectory = "temp"
Chart1.Width = Unit.Parse(600)
Chart1.Debug = True
Chart1.Use3D = True
Chart1.DefaultSeries.DefaultElement.Transparency = 20
Chart1.DefaultSeries.Type = SeriesType.AreaLine
Dim mySC1 As SeriesCollection = getData()
' Then sort the series by y value. The y value for each series is the sum of all element y values within the series.
mySC1.Sort(ElementValue.YValue, "DESC")
Chart1.SeriesCollection.Add(mySC1)
Chart1.Title = "Sorting Series by the sum of their element's YValues in descending order"
Chart2.TempDirectory = "temp"
Chart2.Debug = True
Chart2.Use3D = False
Chart2.DefaultSeries.DefaultElement.Transparency = 20
Chart2.DefaultSeries.Type = SeriesType.AreaLine
Chart2.Title = "Sorting Series By Name in ascending order"
Dim mySC2 As SeriesCollection = getData()
'sort it by name and add it to the chart.
mySC2.Sort(ElementValue.Name, "ASC")
Chart2.SeriesCollection.Add(mySC2)
Chart2.Title = "Sorting Series By Name in ascending order"
Chart2.DefaultSeries.Type = SeriesType.AreaLine
Chart3.TempDirectory = "temp"
Chart3.Debug = True
Chart3.Use3D = False
Chart3.DefaultSeries.DefaultElement.Transparency = 20
Chart3.DefaultSeries.Type = SeriesType.AreaLine
' Then lest sort the series by y value. The y value for each series is the sum of all element y values within the series.
Dim mySC3 As SeriesCollection = getData()
mySC3.Sort(ElementValue.YValue, "DESC")
Chart3.SeriesCollection.Add(mySC3)
Chart3.Title = "Sorting Series by the sum of their element's YValues in descending order"
End Sub 'Page_Load
Function getData() As SeriesCollection
Dim SC As New SeriesCollection()
Dim myR As New Random()
Dim a As Integer
For a = 1 To 4
Dim s As New Series()
s.Name = "Series " + a.ToString()
Dim e As New Element()
e.Name = "Element 1"
e.YValue = 20 - a * a
s.Elements.Add(e)
e = New Element()
e.Name = "Element 2"
e.YValue = 22 - a * a
s.Elements.Add(e)
e = New Element()
e.Name = "Element 3"
e.YValue = 19 - a * a
s.Elements.Add(e)
e = New Element()
e.Name = "Element 4"
e.YValue = 28 - a * a
s.Elements.Add(e)
e = New Element()
e.Name = "Element 5"
e.YValue = 18 - a * a
s.Elements.Add(e)
SC.Add(s)
Next a
SC(0).Name = "B"
SC(1).Name = "A"
SC(2).Name = "D"
SC(3).Name = "C"
Return SC
End Function 'getData
</script>
<HTML>
<HEAD>
<TITLE>.netCHARTING Sample</TITLE>
</HEAD>
<BODY>
<DIV align="center">
<dotnet:Chart id="Chart" runat="server" Width="568px" Height="344px">
</dotnet:Chart>
<dotnet:Chart id="Chart1" runat="server" Height="344px" Width="568px">
</dotnet:Chart>
<dotnet:Chart id="Chart2" runat="server" Width="568px" Height="344px">
</dotnet:Chart>
<dotnet:Chart id="Chart3" runat="server" Height="344px" Width="568px">
</dotnet:Chart>
</DIV>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -