控件ChartControl的完美示例

在网上找了很长时间,自己也钻研了挺长时间,终于把ChartControl控件的饼状图和柱状图弄得不错了

现在分享一下代码,如有不明白的可以直接留言,欢迎看完之后,给个评论哦!

 

功能介绍:使用控件ChartControl动态生成饼状图和柱状图,并保存到Word里面

饼状图:使用3D模式,实现了:如果分类过多,也不会造成引线文字相互覆盖的功能 

图示:(饼状图2个,柱状图1个)

控件ChartControl的完美示例

控件ChartControl的完美示例

柱状图:(这里设置只显示最后一列)

控件ChartControl的完美示例

 

注:这是VB的代码,如果使用C#也可以借鉴

 


    '绘制饼状图
    Public Function DrawPie(ByVal dt As DataTable)
        Dim count As Integer = dt.Rows.Count

        If count > 0 Then
            InitChartControl1("")
            ChartControl1.Series.Clear()
            Dim i As Integer
            Dim series1 As New Series("股权结构饼状图", ViewType.Pie3D)
            Dim num As Integer = 0
            '为控件循环绑定值
            If count > 5 Then
                Dim newDt As DataTable = ShowOther(dt, num)
                For i = 0 To newDt.Rows.Count - 1
                    series1.Points.Add(New SeriesPoint(newDt.Rows(i)("股东名称").ToString(), New Double() {newDt.Rows(i)("投资比例")}))
                Next
            Else
                For i = 0 To dt.Rows.Count - 1
                    series1.Points.Add(New SeriesPoint(dt.Rows(i)("股东名称").ToString(), New Double() {dt.Rows(i)("投资比例")}))
                    If (Not dt.Rows(i).IsNull("投资比例")) Then
                        If (dt.Rows(i)("投资比例") < 4) Then
                            num += 1
                        End If
                    End If
                N

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值