📄 multichartpro.aspx
字号:
<%@ Page Language="VB" debug="true" Description="dotnetCHARTING Component"%>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<script runat="server">
Function getRandomData() As SeriesCollection
Dim SC As SeriesCollection = new SeriesCollection()
Dim myR As Random = new Random()
Dim a,b As Integer
For a=1 To 4
Dim s As Series = new Series()
s.Name = "Series " & a.ToString()
For b=1 To 7
Dim e As Element = new Element()
e.Name = "E " & b.ToString()
e.YValue = myR.Next(50)
s.Elements.Add(e)
Next b
SC.Add(s)
Next a
getRandomData = SC
End Function
Sub Page_Load(sender As Object ,e As EventArgs )
Dim tb As Table
Dim tr As TableRow
Dim tc As TableCell
tb = new Table()
tb.GridLines=GridLines.Both
tb.Style.Add("border-collapse","collapse")
Controls.Add(tb)
tr = new TableRow()
tc = new TableCell()
tb.Controls.Add(tr)
tr.Controls.Add(tc)
Dim Chart1 As dotnetCHARTING.Chart
Chart1 = new dotnetCHARTING.Chart()
tc.Controls.Add(Chart1)
'Set Chart 1 properties
Chart1.Title="My Chart 1"
Chart1.Type = ChartType.Combo
Chart1.DefaultSeries.DefaultElement.Transparency = 35
Chart1.TempDirectory="temp"
Chart1.Use3D=true
Chart1.Debug=true
Chart1.Width = Unit.Parse(420)
Chart1.Height = Unit.Parse(300)
' Add the random data.
Chart1.SeriesCollection.Add(getRandomData())
tc = new TableCell()
tr.Controls.Add(tc)
Dim Chart2 As dotnetCHARTING.Chart
Chart2 = new dotnetCHARTING.Chart()
tc.Controls.Add(Chart2)
'Set Chart 2 properties
Chart2.Title="My Chart 2"
Chart2.Type = ChartType.ComboHorizontal
Chart2.DefaultSeries.DefaultElement.Transparency = 35
Chart2.TempDirectory="temp"
Chart2.Use3D=true
Chart2.Debug=true
Chart2.Width = Unit.Parse(420)
Chart2.Height = Unit.Parse(300)
' Add the random data.
Chart2.SeriesCollection.Add(getRandomData())
tr = new TableRow()
tc = new TableCell()
tb.Controls.Add(tr)
tr.Controls.Add(tc)
Dim Chart3 As dotnetCHARTING.Chart
Chart3 = new dotnetCHARTING.Chart()
tc.Controls.Add(Chart3)
'Set Chart 3 properties
Chart3.Title="My Chart 3"
Chart3.Type = ChartType.ComboSideBySide
Chart3.DefaultSeries.DefaultElement.Transparency = 35
Chart3.TempDirectory="temp"
Chart3.Use3D=true
Chart3.Debug=true
Chart3.Width = Unit.Parse(420)
Chart3.Height = Unit.Parse(300)
' Add the random data.
Chart3.SeriesCollection.Add(getRandomData())
tc = new TableCell()
tr.Controls.Add(tc)
Dim Chart4 As dotnetCHARTING.Chart
Chart4 = new dotnetCHARTING.Chart()
tc.Controls.Add(Chart4)
'Set Chart 4 properties
Chart4.Title="My Chart 4"
Chart4.Type = ChartType.Radar
Chart4.DefaultSeries.DefaultElement.Transparency = 35
Chart4.RadarLabelMode = RadarLabelMode.Outside
Chart4.TempDirectory="temp"
Chart4.Use3D=true
Chart4.Debug=true
Chart4.Width = Unit.Parse(420)
Chart4.Height = Unit.Parse(300)
' Add the random data.
Chart4.SeriesCollection.Add(getRandomData())
tr = new TableRow()
tc = new TableCell()
tb.Controls.Add(tr)
tr.Controls.Add(tc)
Dim Chart5 As dotnetCHARTING.Chart
Chart5 = new dotnetCHARTING.Chart()
tc.Controls.Add(Chart5)
'Set Chart 5 properties
Chart5.Title="My Chart 5"
Chart5.Type = ChartType.Pies
Chart5.DefaultSeries.DefaultElement.Transparency = 35
Chart5.TempDirectory="temp"
Chart5.Use3D=true
Chart5.Debug=true
Chart5.Width = Unit.Parse(420)
Chart5.Height = Unit.Parse(300)
' Add the random data.
Chart5.SeriesCollection.Add(getRandomData())
tc = new TableCell()
tr.Controls.Add(tc)
Dim Chart6 As dotnetCHARTING.Chart
Chart6 = new dotnetCHARTING.Chart()
tc.Controls.Add(Chart6)
'Set Chart 6 properties
Chart6.Title="My Chart 6"
Chart6.Type = ChartType.Donut
Chart6.DefaultSeries.DefaultElement.Transparency = 35
Chart6.TempDirectory="temp"
Chart6.Use3D=true
Chart6.Debug=true
Chart6.Width = Unit.Parse(420)
Chart6.Height = Unit.Parse(300)
' Add the random data.
Chart6.SeriesCollection.Add(getRandomData())
End Sub
</script>
<HTML><HEAD><TITLE>Multi Chart Programmatically</TITLE></HEAD>
<BODY>
</BODY>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -