在ASP.NET中动态创建柱状图和饼图(2)
点击次数：25 次 发布日期：2008-11-26 14:35:51 作者：源代码网
|
源代码网推荐 Dim sglCurrentAngle As Single = 0 源代码网推荐 Dim sglTotalAngle As Single = 0 源代码网推荐 源代码网推荐 "定义一个变量，代表总的销售额。 源代码网推荐 Dim sglTotalValues As Single = 0 源代码网推荐 源代码网推荐 "计算总销售额。 源代码网推荐 For i = 0 To arrValues.Length - 1 源代码网推荐 sglTotalValues += arrValues(i) 源代码网推荐 Next 源代码网推荐 源代码网推荐 i = 0 源代码网推荐 源代码网推荐 "遍历数据源的每一项数据，并根据数据的大小画出饼图。 源代码网推荐 "图形对象的FillPie()方法和DrawPie()在.NET 框架类库中已重载。 源代码网推荐 For i = 0 To arrValues.Length - 1 源代码网推荐 源代码网推荐 "计算当前角度值：当月销售额 / 总销售额 * 360，得到饼图中当月所占的角度大小。 源代码网推荐 sglCurrentAngle = arrValues(i) / sglTotalValues * 360 源代码网推荐 源代码网推荐 "画出填充圆弧。 源代码网推荐 objGraphics.FillPie(New SolidBrush(GetColor(i)), _ 源代码网推荐 220, 95, 100, 100, sglTotalAngle, sglCurrentAngle) 源代码网推荐 源代码网推荐 "画出圆弧线。 源代码网推荐 objGraphics.DrawPie(Pens.Black, 220, 95, 100, 100, sglTotalAngle, sglCurrentAngle) 源代码网推荐 源代码网推荐 "把当前圆弧角度加到总角度上。 源代码网推荐 sglTotalAngle += sglCurrentAngle 源代码网推荐 源代码网推荐 Next i 源代码网推荐 源代码网推荐 "将objGraphics对象以指定的图形格式（这里是Gif）保存到指定的Stream对象，并输出到客户端。 源代码网推荐 objBitMap.Save(Response.OutputStream, ImageFormat.Gif) 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 "下面这段函数用来根据不同的月份返回不同的颜色值。 源代码网推荐 Private Function GetColor(ByVal itemIndex As Integer) As Color 源代码网推荐 源代码网推荐 Dim objColor As Color 源代码网推荐 源代码网推荐 Select Case itemIndex 源代码网推荐 Case 0 源代码网推荐 objColor = Color.Blue 源代码网推荐 Case 1 源代码网推荐 objColor = Color.Red 源代码网推荐 Case 2 源代码网推荐 objColor = Color.Yellow 源代码网推荐 Case 3 源代码网推荐 objColor = Color.Purple 源代码网推荐 Case 4 源代码网推荐 objColor = Color.Orange 源代码网推荐 Case 5 源代码网推荐 objColor = Color.Brown 源代码网推荐 Case 6 源代码网推荐 objColor = Color.Gray 源代码网推荐 Case 7 源代码网推荐 objColor = Color.Maroon 源代码网推荐 Case 8 源代码网推荐 objColor = Color.Maroon 源代码网推荐 Case Else 源代码网推荐 objColor = Color.Blue 源代码网推荐 End Select 源代码网推荐 Return objColor 源代码网推荐 End Function 源代码网推荐 源代码网推荐 End Class 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 好了，我们的代码已经写完，点击“全部保存”按钮，然后按“F5”执行，看看最好的结果。如果没有错误的话，您将会看到如下的结果： 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
