vb.net做统计图,用vb做数据统计系统

vb.net 控制excel画饼状图

我自己写的控件，里面有示例程序，很简单的。不过饼图只设置了12种颜色。。。只能显示12项

托克托ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！

画饼图的例子，

Me.LoadDriveInfo(DrivesOnPc.Items(DrivesOnPc.SelectedIndex)) 计算比例大小

Me.Invalidate() 触发窗体绘图

'窗体画图（饼图）

Private Sub form3_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

'设定RECTANGLE结构变量，确定画图的范围及大小

Dim rect As Rectangle = New Rectangle(280, 20, 200, 200)

Dim rect2 As Rectangle = New Rectangle(270, 10, 400, 320)

Dim freelegend As Rectangle = New Rectangle(280, 300, 20, 20)

Dim usedlegend As Rectangle = New Rectangle(280, 275, 20, 20)

e.Graphics.DrawRectangle(Pens.Black, rect2)

e.Graphics.DrawLine(Pens.Black, 270, 260, 670, 260)

If Me.isSpaceInfoVailable = True Then

'填充椭圆图像（角度）

e.Graphics.FillPie(Brushes.Magenta, rect, 0, Sweep)

e.Graphics.FillPie(Brushes.Blue, rect, Sweep, 360 - Sweep)

'填充方形

e.Graphics.FillRectangle(Brushes.Magenta, freelegend)

e.Graphics.FillRectangle(Brushes.Blue, usedlegend)

e.Graphics.DrawString(

用crystal报表，文件——新建文件——crystal报表，然后根据向导建立

推荐博计报表，通过可视化类似Excel界面设计报表，然后通过一个页面发布报表，可以导出Excel，pdf还可以在线精确打印，很方便的。还能制作各种统计图

名称栏目：vb.net做统计图,用vb做数据统计系统
网页路径：http://ybzwz.com/article/phhied.html