Draw a Pie Chart

Draw a Pie Chart Microsoft Corporation Draws a pie chart. drawPie

System.Drawing.dll Microsoft.VisualBasic System.Drawing System Percent1 Integer Replace with the percentage of the pie. 10 Percent2 Integer Replace with the percentage of the pie. 20 Percent3 Integer Replace with the percentage of the pie. 70 Color1 Color Replace with the color for the section. Color.Red Color2 Color Replace with the color for the section. Color.CadetBlue Color3 Color Replace with the color for the section. Color.Khaki XLocation Integer Replace with X coordinate of the drawing location. 10 YLocation Integer Replace with Y coordinate of the drawing location. 10 Width Integer Replace with width. 150 Height Integer Replace with height. 150

 100 Then
        Throw New ArgumentException("Percentages do not add up to 100.")
    End If

    If percents.Length <> colors.Length Then
        Throw New ArgumentException("There must be the same number of percents and colors.")
    End If

    Dim percentTotal = 0
    For percent = 0 To percents.Length() - 1
        Using brush As New SolidBrush(colors(percent))
            surface.FillPie(brush,
                            New Rectangle(location, pieSize),
                            CSng(percentTotal * 360 / 100),
                            CSng(percents(percent) * 360 / 100))
        End Using
        
        percentTotal += percents(percent)
    Next
    Return
End Sub]]>