📄 interactiveunitconversion.aspx
字号:
<%@ Page Language="VB" debug="true" trace="false" Description="dotnetCHARTING Component"%>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="dotnetCHARTING" %>
<script runat="server">
Sub Page_Init(sender As Object ,e As EventArgs )
if(Not IsPostBack)then
Dim str As string
Dim np As Integer
For Each str in [Enum].GetNames(GetType(dotnetCHARTING.Length))
LengthOptions.Items.Add(str)
next
for np =0 To 7
NumberPercision.Items.Add(np.ToString())
next
end if
'set global properties
Chart.Title="Tallest buildings in the World"
Chart.ChartArea.XAxis.Label.Text ="Building Names"
Chart.ChartArea.YAxis.Label.Text="Hieght"
Chart.LegendBox.Position=LegendBoxPosition.None
Chart.TempDirectory="temp"
Chart.Debug=true
Chart.Use3D=true
Chart.ShadingEffect=true
Chart.DefaultSeries.DefaultElement.ToolTip ="%yValue Feet"
Chart.DefaultSeries.DefaultElement.ShowValue=true
Chart.DefaultSeries.DefaultElement.ForceMarker=true
Chart.DefaultSeries.DefaultElement.Marker.Type=ElementMarkerType.FivePointStar
Chart.DefaultSeries.DefaultElement.SmartLabel.ForceVertical=true
Chart.YAxis.Label.Text="Foot"
Chart.Size="600X500"
'Adding series programatically
Dim sr As Series =new Series()
sr.Name="Building Height"
Dim el As Element = new Element("CN Tower",1861)
el.LabelTemplate = "Toronto"
sr.Elements.Add(el)
el = new Element("Sears Tower",1707)
el.LabelTemplate ="Chicago"
sr.Elements.Add(el)
el = new Element("Ostankino Tower",1771)
el.LabelTemplate = "Moscow"
sr.Elements.Add(el)
el = new Element("John Hancock Center",1476)
el.LabelTemplate = "Chicago"
sr.Elements.Add(el)
el = new Element("Petronas Towers",1482)
el.LabelTemplate = "Kuala Lumpur"
sr.Elements.Add(el)
el = new Element("OPB Tower",1535)
el.LabelTemplate = "Shanghai"
sr.Elements.Add(el)
el = new Element("Jim Mao Building",1378)
el.LabelTemplate = "Shanghai"
sr.Elements.Add(el)
el = new Element("Menara Telecom Tower",1403)
el.LabelTemplate = "Kuala Lumpur"
sr.Elements.Add(el)
el = new Element("Empire State Building",1454)
el.LabelTemplate = "New York"
sr.Elements.Add(el)
Chart.SeriesCollection.Add(sr)
End Sub
Sub ButtonConvert_Click(Sender As Object,E As EventArgs)
Dim F As Axis
F =Chart.YAxis.Calculate(LengthOptions.SelectedItem.Value, Length.Foot,[Enum].Parse(GetType(dotnetCHARTING.Length),LengthOptions.SelectedItem.Value,True),RefreshScale.Checked)
F.Orientation = dotnetCHARTING.Orientation.Right
F.NumberPercision = Convert.ToInt32(NumberPercision.SelectedItem.Value)
Chart.AxisCollection.Add(F)
End Sub
</script>
<html>
<head>
<title>Length Conversion Options</title>
</head>
<body topmargin="0" leftmargin="0" marginheight="0" marginwidth="0">
<form runat="server">
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
<tbody>
<tr>
<td width="1%">
<img border="0" src="../../images/dotnetCharting.gif" width="230" height="94"></td>
<td width="99%" bgcolor="#BFC0DB">Length Options:
<ASP:DropDownList id="LengthOptions" runat="server" size="1">
</ASP:DropDownList>
<ASP:CheckBox id="RefreshScale" Text="Referesh Scale" Checked="true" runat="server" size="1">
</ASP:CheckBox>
Decimal Places:
<ASP:DropDownList id="NumberPercision" runat="server" size="1">
</ASP:DropDownList>
<asp:Button id="ButtonConvert" onclick="ButtonConvert_Click" runat="server" Text="Convert">
</asp:Button>
</td>
</tbody>
</table>
<DOTNET:Chart id="Chart" runat="server" Visible="true" />
</div>
</form></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -