asp.net|数据|统计|图形
在使用Excel处理报表时候，往往要利用系统带的图表工具生成比例示意图，不仅直观，又显专业。当然，在Web应用程序中，也可以使用Office Web Components 功能，但是却很复杂。在.NET框架下，通过简单的编程，就可以轻松地做出地道的比例示意图。在使用GDI+作图的时候，除了要熟练应用.NET提供的类外，还要从整体上把握图形生成的坐标。在GDI+里，最左上角的坐标为（0，0），最右下角的做标值最大。
本节我们将通过GID+绘制图形。便于实例模拟，我们采用数组数据来模拟公司业务数据。
新建一个Web窗体，命名为GDI_Sample2.aspx，逻辑代码如下：
'-----code begin-----
Imports System.Drawing
Imports System.Drawing.Bitmap
Imports System.Drawing.Graphics
Imports System.Drawing.Imaging
Public Class GDI_Sample4
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'此处省略窗体设计器生成的代码
#End Region
'定义公共数组变量，用来存放模拟公司销售额数据
Public data(5, 1) As String
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim i As Int16
Dim objbitmap As Bitmap
objbitmap = New Bitmap(400, 300)
'声明Graphics对象
Dim objGraphics As Graphics
'指定画布
objGraphics = Graphics.FromImage(objbitmap)
'设置背景色为白色
objGraphics.Clear(Color.White)
'画出图形边框，注意留出划线的空间，为一个象素
objGraphics.DrawRectangle(Pens.Black, 1, 1, 398, 298)
'生成表头文字
objGraphics.DrawString("本公司上半年营业额统计图", New Font("宋体", 16, FontStyle.Bold), Brushes.Black, New PointF(60, 5))
'获取模拟数据
getdata()
Dim monthcolor As PointF = New PointF(260, 40)
Dim fontinfor As PointF = New PointF(285, 36)
'画出示意颜色图例
For i = 0 To 5
'画出填充矩形。
objGraphics.FillRectangle(New SolidBrush(getcolor(i)), monthcolor.X, monthcolor.Y, 20, 10)
'画出矩形边框。
objGraphics.DrawRectangle(Pens.Black, monthcolor.X, monthcolor.Y, 20, 10)
'画出图例说明文字－－data(i, 0)
objGraphics.DrawString(data(i, 0), New Font("宋体", 10), Brushes.Black, fontinfor)
'移动坐标位置，只移动Y方向的值即可。
monthcolor.Y += 15
fontinfor.Y += 15
Next i
'遍历数据源的每一项数据，并根据数据的大小画出矩形图（即柱形图的柱）。
For i = 0 To 5
'画出填充矩形。
objGraphics.FillRectangle(New SolidBrush(getcolor(i)), (i * 25) + 35, 270 - CInt(data(i, 1)), 15, CInt(data(i, 1)))
'画出矩形边框线。
objGraphics.DrawRectangle(Pens.Black, (i * 25) + 35, 270 - CInt(data(i, 1)), 15, CInt(data(i, 1)))
Next
'画出示意坐标
objGraphics.DrawLine(New Pen(Color.Blue, 1), 10, 0, 10, 320)
objGraphics.DrawLine(New Pen(Color.Blue, 1), 10, 270, 200, 270)
'在示意坐标上添加数值标志，注意坐标的计算
For i = 0 To 5
objGraphics.DrawLine(New Pen(Color.Blue, 1), 10, i * 50 + 20, 20, i * 50 + 20)
objGraphics.DrawString((250 - i * 50).ToString, New Font("宋体", 10), Brushes.Black, 12, i * 50 + 8)
Next
' 统计总销售额
Dim scount As Integer
For i = 0 To 5
scount += CInt(data(i, 1))
Next
'定义画出扇形角度变量
Dim scg As Single = 0
Dim stg As Single = 0
For i = 0 To 5
'计算当前角度值：当月销售额 / 总销售额 * 360，得到饼图中当月所占的角度大小。
scg = CInt(data(i, 1)) / scount * 360
[1] [2] 下一页