⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 progressbar.aspx

📁 掌握学习.net开发的非常好的资料
💻 ASPX
字号:
🔍 
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Register TagPrefix="dotnet"  Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Page Language="VB"  debug="true" Description="dotnetCHARTING Component" %>
		
<script runat="server">

Function getRandomData() As SeriesCollection
   Dim SC As New SeriesCollection()
   Dim myR As New Random()
   
   Dim s As New Series()
   Dim e As New Element()
   
   e.YValue = 100
   e.Complete = myR.Next(100)
   
   s.Elements.Add(e)
   
   SC.Add(s)
   
   
   Return SC
End Function 'getRandomData



Sub Page_Load(sender As [Object], e As EventArgs)
   
   Chart.Width = Unit.Parse(400)
   Chart.Height = Unit.Parse(50)
   Chart.TempDirectory = "temp"
   Chart.Debug = True
   
   
   ' Set the shading effect for a nicer visual effect.
   Chart.ShadingEffectMode = ShadingEffectMode.Two
   
   
   
   ' Set the horizontal combo chart type.	
   Chart.Type = ChartType.ComboHorizontal
   
   ' Hide the legend box.
   Chart.LegendBox.Position = LegendBoxPosition.None
   
   ' Set the x axis scale as full stacked so that our single element can be stretched across the chart.
   Chart.XAxis.Scale = Scale.FullStacked
   
   ' Hide the x axis.
   Chart.XAxis.Clear()
   
   ' Hide the y axis.
   Chart.YAxis.Clear()
   
   ' Set the y axis spacing percentage so our bar can be stretch across the whole chart area.
   Chart.YAxis.SpacingPercentage = 1
   
   ' Hide the chart area beneath the bar.
   Chart.ChartArea.ClearColors()
   
   
   ' Set a color for our element.
   Chart.DefaultSeries.DefaultElement.Color = Color.FromArgb(255, 99, 49)
   
   ' Set the template for the element label.
   Chart.DefaultSeries.DefaultElement.SmartLabel.Text = "%Complete% Completed"
   
   ' Allow the element labels to be visible.
   Chart.DefaultSeries.DefaultElement.ShowValue = True
   
   ' Set the color and font for the element label.
   Chart.DefaultSeries.DefaultElement.SmartLabel.Color = Color.White
   Chart.DefaultSeries.DefaultElement.SmartLabel.Font = New Font("arial black", 10)
   
   ' Set a hatch style for the complete part of our stretched element.
   Chart.GanttCompleteHatchStyle = HatchStyle.LargeConfetti
   
   ' Get random data.
   Dim sc As SeriesCollection = getRandomData()
   
   
   ' TIP: Here we'll demonstrate how we can set the alignment of our label dynamically.
   ' If the complete hatch fill is about to touch the label we will set the alignment
   ' so it is displayed on the right side of the bar.
   If sc(0).Elements(0).Complete > 33 Then ' If hatch is about to touch the label.
      Chart.DefaultSeries.DefaultElement.SmartLabel.Alignment = LabelAlignment.Top ' Top of the bar is the same as right.
   ' Otherwise we keep it centered.
   Else
      Chart.DefaultSeries.DefaultElement.SmartLabel.Alignment = LabelAlignment.Center
   End If 
   
   ' Add the random data.
   Chart.SeriesCollection.Add(sc)
End Sub 'Page_Load 

</script>
<HTML>
	<HEAD>
		<TITLE>Progress Bar</TITLE>

	</HEAD>
	<BODY>
		<DIV align="center">
			<dotnet:Chart id="Chart" runat="server" />
		</DIV>
	</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -