📄 h02.aspx
字号:
<%@ Page Language="VB" Description="dotnetCHARTING Component" %>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<script runat="server">
Sub Page_Load(sender As [Object], e As EventArgs)
' Set the title.
Chart.Title = "My Chart"
' Set the directory where images are temporarily be stored.
Chart.TempDirectory = "temp"
' Disable the legend box
Chart.LegendBox.Position = LegendBoxPosition.None
' Set a default gauge face background color.
Chart.DefaultSeries.Background.Color = Color.White
' Set he chart size.
Chart.Size = "600x350"
' Specify the gauges chart type
Chart.Type = ChartType.Gauges
' Create a series with a single element
Dim s1 As New Series("series 1", New Element("", 50))
' Instantiate an axis for the created series.
s1.YAxis = New Axis()
' Set visual properties of the axis.
s1.YAxis.TickLine.Width = 10
s1.YAxis.TickLine.EndCap = LineCap.Triangle
' Instantiate an axis marker.
Dim am As New AxisMarker("", New Background(Color.Red), 50, 60)
' Instantiate a background object for the second axis marker.
Dim b As New Background(Color.Orange)
' Set hatch style properties of the axis marker.
b.HatchStyle = HatchStyle.LightUpwardDiagonal
b.HatchColor = Color.White
' Instantiate the second axis marker.
Dim am2 As New AxisMarker("", b, 45, 50)
' Add the two axis markers to the series' axis.
s1.YAxis.Markers.Add(am)
s1.YAxis.Markers.Add(am2)
' Add the series
Chart.SeriesCollection.Add(s1)
End Sub 'Page_Load
</script>
<HTML><HEAD><TITLE>Gallery Sample</TITLE></HEAD>
<BODY>
<DIV align=center>
<dotnet:Chart id="Chart" runat="server"/>
</DIV>
</BODY>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -