📄 emptyelements2.aspx
字号:
<%@ Page Language="VB" debug="true" Description="dotnetCHARTING Component" %>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<HTML>
<HEAD>
<TITLE>Empty Element 2</TITLE>
<script runat="server">
Sub Page_Load(sender As [Object], e As EventArgs)
Chart.Type = ChartType.ComboSideBySide 'Horizontal;
Chart.Width = Unit.Parse(800)
Chart.Height = Unit.Parse(200)
Chart.TempDirectory = "temp"
Chart.Use3D = False
Chart.Debug = True
Chart.XAxis.SpacingPercentage = 5
Chart.LegendBox.Position = LegendBoxPosition.None
' This sample will demonstrate advanced empty element handling. (Marking)
' Changing the default series type will show how different types behave with empty elements.
Chart.DefaultSeries.Type = SeriesType.AreaLine
' First we get 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()
' Empty elements can be marked with markers and labels when using EmptyElementMode.Fill.
Chart.DefaultSeries.EmptyElement.Mode = EmptyElementMode.Fill
' **** Using a marker and label.
mySC(0).Name = "Marker & Label"
' Set label text.
mySC(0).EmptyElement.SmartLabel.Text = "Empty"
' Set the marker type to activate it. The default color is white.
mySC(0).EmptyElement.Marker.Type = ElementMarkerType.Circle
' **** Using a marker and label without filling the area.
mySC(1).Name = "Marker & Label, No Fill"
' This is done by making the main color and the line color transparent. The line is only shown
' in 2D with Line and AreaLine series types.
mySC(1).EmptyElement.Color = Color.Transparent
mySC(1).EmptyElement.Line.Color = Color.Transparent
' Set label text.
mySC(1).EmptyElement.SmartLabel.Text = "Empty"
' Set the marker type to activate it. The default color is white.
mySC(1).EmptyElement.Marker.Type = ElementMarkerType.Circle
' **** Styled line connecting real points.
mySC(2).Name = "Styled Line"
mySC(2).Type = SeriesType.Line
' Set the line color and dash style
mySC(2).EmptyElement.Line.DashStyle = DashStyle.Dash
mySC(2).EmptyElement.Line.Color = Color.Gray
' **** Empty element tool tip.
mySC(3).Name = "Tool Tip"
mySC(3).EmptyElement.SmartLabel.Text = "See ToolTip"
' Tooltip text.
mySC(3).EmptyElement.ToolTip = "Area is Empty"
' **** Labels and markers for columns and cylinders are repeated. Other types use one marker and label for
' any number of consecutive empty elements.
mySC(4).Name = "Empty Column Fill"
mySC(4).Type = SeriesType.Column
mySC(4).EmptyElement.SmartLabel.Text = "Empty"
mySC(4).EmptyElement.Marker.Type = ElementMarkerType.Circle
' Add the random data.
Chart.SeriesCollection.Add(mySC)
End Sub 'Page_Load
Function getData() As SeriesCollection
Dim sc As New SeriesCollection()
Dim s1 As New Series()
s1.Elements.Add(New Element("1", 5))
s1.Elements.Add(New Element("2", 5))
s1.Elements.Add(New Element("3", Double.NaN))
s1.Elements.Add(New Element("4", Double.NaN))
s1.Elements.Add(New Element("5", 8))
s1.Elements.Add(New Element("6", 8))
Dim s2 As New Series()
s2.Elements.Add(New Element("1", 5))
s2.Elements.Add(New Element("2", 5))
s2.Elements.Add(New Element("3", Double.NaN))
s2.Elements.Add(New Element("4", Double.NaN))
s2.Elements.Add(New Element("5", 8))
s2.Elements.Add(New Element("6", 8))
Dim s3 As New Series()
s3.Elements.Add(New Element("1", 5))
s3.Elements.Add(New Element("2", 5))
s3.Elements.Add(New Element("3", Double.NaN))
s3.Elements.Add(New Element("4", Double.NaN))
s3.Elements.Add(New Element("5", 8))
s3.Elements.Add(New Element("6", 8))
Dim s4 As New Series()
s4.Elements.Add(New Element("1", 5))
s4.Elements.Add(New Element("2", 5))
s4.Elements.Add(New Element("3", Double.NaN))
s4.Elements.Add(New Element("4", Double.NaN))
s4.Elements.Add(New Element("5", 8))
s4.Elements.Add(New Element("6", 8))
Dim s5 As New Series()
s5.Elements.Add(New Element("1", 5))
s5.Elements.Add(New Element("2", 5))
s5.Elements.Add(New Element("3", Double.NaN))
s5.Elements.Add(New Element("4", Double.NaN))
s5.Elements.Add(New Element("5", 8))
s5.Elements.Add(New Element("6", 8))
sc.Add(s5)
sc.Add(s4)
sc.Add(s3)
sc.Add(s2)
sc.Add(s1)
Return sc
End Function 'getData
</script>
</HEAD>
<BODY>
<br>
<DIV align="center">
<dotnet:Chart id="Chart" runat="server" Width="568px" Height="344px">
</dotnet:Chart>
</DIV>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -