vb.net 绘制饼图（类库——13）

具体代码来源于：vb.net 教程 5-12 绘图实例之统计图 3 饼图_VB.Net的博客-CSDN博客

我给这位大佬进行了改进

具体代码：

Public Function PieChart(s As String(), value As Integer(), c As Color())Dim v As Integer = 0For i As Integer = 0 To value.Count - 1v += value(i)NextDim Angle(value.Count) As IntegerAngle(0) = 0For i = 0 To value.Count - 1Angle(i + 1) = value(i) * 360 \ v + Angle(i)NextAngle(value.Count) = 360For i As Integer = 0 To value.Count - 1g.FillPie(New SolidBrush(c(i)), New Rectangle(100, 100, 200, 200), Angle(i), Angle(i + 1) - Angle(i))g.FillRectangle(New SolidBrush(c(i)), New Rectangle(360, i * 50 + 80, 60, 40))g.DrawString(s(i), New Font("宋体", 12), New SolidBrush(Color.Black), New Point(450, i * 50 + 90))g.DrawString("= " & value(i), New Font("宋体", 12), New SolidBrush(Color.Black), New Point(470, i * 50 + 90))NextReturn ImageEnd Function

 之前写过的代码，重新在来看一遍：

    Protected Image As BitmapProtected g As Graphics''' 
''' 单独调用函数，只执行创建任务；如果需要得到图片，则会返回一个图片(bitmap)''' 
''' 新建的图片大小(size)''' 新建的图片背景颜色(color)''' 图片Public Function Createbmp(bmpsize As Size, backColor As Color)Image = New Bitmap(bmpsize.Width, bmpsize.Height)g = Graphics.FromImage(Image)g.Clear(backColor)Return ImageEnd Function

这一部分一定要自己理解

主窗体：

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.ClickGDI.Createbmp(New Size(900, 900), Color.Transparent)Dim s As String() = {"a", "b", "c", "d", "e"}Dim value As Integer() = {1, 2, 3, 4, 5}Dim c As Color() = {Color.Black, Color.Red, Color.Green, Color.Gray, Color.Yellow}BackgroundImage = GDI.PieChart(s, value, c)End Sub

效果：

等于号什么的可以自己修改哈，理解即可

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！