📄 gaugestyling.aspx
字号:
<%@ Page Language="VB" Description="dotnetCHARTING Component" %>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<HTML>
<HEAD>
<TITLE>.netCHARTING Sample</TITLE>
<script runat="server">
Sub Page_Load(sender As [Object], e As EventArgs)
' Set common properties for each shart.
SetChartProperties(Chart)
SetChartProperties(Chart1)
SetChartProperties(Chart2)
' This sample will demonstrate some gauge styling methods.
' Setting the shading mode changes how the needle appears.
Chart.ShadingEffectMode = ShadingEffectMode.One
Chart1.ShadingEffectMode = ShadingEffectMode.Two
Chart2.ShadingEffectMode = ShadingEffectMode.Three
' CHART 1
' Style the first chart's axis tick marks.
Chart.YAxis.TickLine.Width = 10
Chart.YAxis.TickLine.EndCap = LineCap.Triangle
' Add an element.
Chart.SeriesCollection.Add(New Series("", New Element("", 50)))
' CHART 2
' Set a label marker
Chart1.YAxis.LabelMarker = New ElementMarker("fuel.gif", 30)
' Update the main y axis settings
Chart1.YAxis.Minimum = 0
Chart1.YAxis.Maximum = 100
Chart1.YAxis.Interval = 25
Chart1.YAxis.OrientationAngle = 45
Chart1.YAxis.RangeAngle = 90
' Fuel tick labels
Chart1.YAxis.LabelOverrides.Add(New LabelOverride("0", "E"))
Chart1.YAxis.LabelOverrides.Add(New LabelOverride("100", "F"))
Chart1.YAxis.ClearValues = True
Chart1.YAxis.Markers.Clear()
Chart1.YAxis.Markers.Add(New AxisMarker("", New Background(Color.Red), 0, 25))
Chart1.YAxis.TickLabel.Font = New Font("Arial", 14, FontStyle.Bold)
' Add an element.
Chart1.SeriesCollection.Add(New Series("Fuel", New Element("", 80)))
' CHART 3
Chart2.DefaultSeries.Background.Color = Color.LightGreen
' Change the gauge outline.
Chart2.YAxis.Line.Width = 2
Chart2.YAxis.Line.DashStyle = DashStyle.Dash
Chart2.YAxis.Line.Color = Color.Gray
' When gauges are not clipped and Use3D is true, the gauge is accented with a glass effect.
Chart2.ClipGauges = False
Chart2.Use3D = True
' Add an element.
Chart2.SeriesCollection.Add(New Series("", New Element("", 50)))
End Sub 'Page_Load
Sub SetChartProperties(c As Chart)
c.Type = ChartType.Gauges
c.Width = Unit.Parse(300)
c.Height = Unit.Parse(300)
c.TempDirectory = "temp"
c.Debug = True
c.LegendBox.Position = LegendBoxPosition.None
c.DefaultSeries.Background.Color = Color.White
Dim am As New AxisMarker("", New Background(Color.Red), 45, 60)
Dim bg As New Background(Color.Orange)
bg.HatchStyle = HatchStyle.LightUpwardDiagonal
bg.HatchColor = Color.White
Dim am1 As New AxisMarker("", bg, 35, 45)
c.YAxis.Markers.Add(am)
c.YAxis.Markers.Add(am1)
End Sub 'SetChartProperties
</script>
</HEAD>
<BODY>
<DIV align="center">
<dotnet:Chart id="Chart" runat="server" Width="568px" Height="344px">
</dotnet:Chart>
<dotnet:Chart id="Chart1" runat="server" Width="568px" Height="344px">
</dotnet:Chart>
<dotnet:Chart id="Chart2" runat="server" Width="568px" Height="344px">
</dotnet:Chart>
</DIV>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -