用VB.net画饼图（续篇）

0412Rainbow

于 2007-10-31 13:54:00 发布

阅读量1.8k

点赞数 2

分类专栏： VB.NET(Windows App) 文章标签： vb.net integer colors each up 360

本文链接：https://blog.youkuaiyun.com/0412Rainbow/article/details/1859408

版权

本文介绍如何利用Visual Studio 2005内置的Graphics对象的FillPie方法，简洁高效地绘制饼图。示例代码展示了如何创建不同颜色的饼图扇区，并强调了检查百分比总和及颜色数量与百分比对应的重要性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

今天摆弄VS2005,无意中发现,原来VS2005已经内嵌了画饼图的代码,通过Graphics对象的FillPie方法来实现的,代码量更小，执行效率也应该比之前我写的那个Demo要好一些。感慨做应用层的程序员和工人的区别真的不大了~

    ' Shows how to call the DrawPieChart method
    Public Sub DrawPieChartHelper()
        Dim percents() As Integer = {10, 20, 70}
        Dim colors() As Color = {Color.Red, Color.CadetBlue, Color.Khaki}
        Dim graphics As Graphics = Me.CreateGraphics
        Dim location As Point = New Point(10, 10)
        Dim size As Size = New Size(150, 150)
        DrawPieChart(percents, colors, graphics, location, size)
    End Sub

    ' Draws a pie chart.
    Public Sub DrawPieChart(ByVal percents() As Integer, ByVal colors() As Color, _
    ByVal surface As Graphics, ByVal location As Point, ByVal pieSize As Size)
        ' Check if sections add up to 100.
        Dim sum As Integer = 0
        For Each percen

最低0.47元/天解锁文章