NETCF开发之绘制图形报表

最新推荐文章于 2021-03-19 15:01:32 发布

iteye_3619

最新推荐文章于 2021-03-19 15:01:32 发布

阅读量80

点赞数

文章标签： F# 360 EXT J#

绘制图形报表

利用.NET Compact Framework的绘制功能还可以绘制图形报表，例如：饼图、柱形图或折线图。下面以饼图为例，介绍如何绘制饼图的方法。绘制饼图的代码如清单7-8所示。

清单7-8：绘制饼图

<group id="_x0000_s1026" style="WIDTH: 414pt; HEIGHT: 678.6pt; mso-position-horizontal-relative: char; mso-position-vertical-relative: line" coordsize="7200,11835" coordorigin="2526,7642" editas="canvas"><lock aspectratio="t" v:ext="edit"></lock><shapetype id="_x0000_t75" coordsize="21600,21600" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75"><stroke joinstyle="miter"></stroke><formulas><f eqn="if lineDrawn pixelLineWidth 0"></f><f eqn="sum @0 1 0"></f><f eqn="sum 0 0 @1"></f><f eqn="prod @2 1 2"></f><f eqn="prod @3 21600 pixelWidth"></f><f eqn="prod @3 21600 pixelHeight"></f><f eqn="sum @0 0 1"></f><f eqn="prod @6 1 2"></f><f eqn="prod @7 21600 pixelWidth"></f><f eqn="sum @8 21600 0"></f><f eqn="prod @7 21600 pixelHeight"></f><f eqn="sum @10 21600 0"></f></formulas><path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></path><lock aspectratio="t" v:ext="edit"></lock></shapetype><shape id="_x0000_s1027" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 11835px" o:preferrelative="f" type="#_x0000_t75"><fill o:detectmouseclick="t"></fill><path o:connecttype="none" o:extrusionok="t"></path><lock v:ext="edit" text="t"></lock></shape><rect id="_x0000_s1028" style="LEFT: 2526px; WIDTH: 7200px; POSITION: absolute; TOP: 7642px; HEIGHT: 11835px" strokecolor="#eaeaea" fillcolor="#eaeaea"><textbox style="mso-next-textbox: #_x0000_s1028"><table cellspacing="0" cellpadding="0" width="100%"><tbody><tr> <td style="BORDER-LEFT-COLOR: #d4d0c8; BORDER-BOTTOM-COLOR: #d4d0c8; BORDER-TOP-COLOR: #d4d0c8; BACKGROUND-COLOR: transparent; BORDER-RIGHT-COLOR: #d4d0c8"> <div> …… Dim cBmp As New Bitmap(236, 184) ' 创建画布宽度为236，高度为184的Bitmap实例 Dim cGraphic As Graphics Dim cColor() As Color = {Color.Red, Color.Blue, Color.Green, Color.Gray, _ Color.LightCoral, Color.Gold} ' 5种颜色 Dim cPen As Pen Dim cSolidBrush As SolidBrush Dim cPoints() As Point Dim RowNum As Integer = 3 ' 定义扇区块数 Dim i As Integer = 0 Dim j As Integer = 0 Dim cAngle As Integer = 0 Dim tmp As Integer = 0 Dim xCircleCenter As Integer = 100 ' 定义圆心X坐标 Dim yCircleCenter As Integer = 100 ' 定义圆心Y坐标 cGraphic = Graphics.FromImage(cBmp) cGraphic.Clear(Color.Snow) For j = 0 To RowNum cAngle = 90 ' 定义扇区角度 ReDim cPoints(cAngle + 1) ' 用数学公式画圆 cPen = New Pen(cColor(j), 3) cSolidBrush = New SolidBrush(cColor(j)) For i = tmp To tmp + cAngle cPoints(i - tmp) = New Point cPoints(i - tmp).X = (1 - System.Math.Sin(i / 360 * 2 * System.Math.PI)) * (xCircleCenter - 30) + 10 cPoints(i - tmp).Y = (1 - System.Math.Cos(i / 360 * 2 * System.Math.PI)) * (yCircleCenter - 30) + 10 Next i ' 加入圆心坐标点 cPoints(cAngle + 1) = New Point cPoints(cAngle + 1).X = xCircleCenter - 20 cPoints(cAngle + 1).Y = yCircleCenter - 20 ' 绘制扇区对应的区域 cPen = New Pen(cColor(j), 3) cSolidBrush = New SolidBrush(cColor(j)) cGraphic.DrawPolygon(cPen, cPoints) cGraphic.FillPolygon(cSolidBrush, cPoints) tmp = tmp + cAngle Next pb_graphic.Image = cBmp …… </div> </td> </tr></tbody></table></textbox></rect><wrap type="none"></wrap><anchorlock></anchorlock></group>

在清单7-8中，首先定义一个指定大小的画布，画布也就是一个Bitmap实例。之后定义圆心点坐标。确定圆心点坐标则可以使用计算公式获得组成每个扇区弧线的点集合，弧线点集合与圆心点形成一个封闭的扇形区域。确定扇形区域后则可以开始绘制扇形图形并使用不同的颜色填充扇形区域。最后把绘制好的Bitmap实例通过PictureBox控件显示。清单7-8的执行结果如图7-6所示。

图7-6：绘制饼图

利用相同的原理，还可以实现柱图，如图7-7所示。

图7-7：绘制柱图

iteye_3619

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
NETCF开发之绘制图形报表

绘制图形报表利用.NET Compact Framework的绘制功能还可以绘制图形报表，例如：饼图、柱形图或折线图。下面以饼图为例，介绍如何绘制饼图的方法。绘制饼图的代码如清单7-8所示。清单7-8：绘制饼图&lt;group id="_x0000_s1026" style="WIDTH: 414pt; HEIGHT: 678.6pt; mso-position-horizont...
复制链接

扫一扫