画饼图的例子,
创新互联公司-专业网站定制、快速模板网站建设、高性价比汉寿网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式汉寿网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖汉寿地区。费用合理售后完善,十载实体公司更值得信赖。
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还可以在线精确打印,很方便的。还能制作各种统计图