189 8069 5689
Dim MyGraphics As Graphics = Me.PictureBox1.CreateGraphics
“只有客户发展了，才有我们的生存与发展！”这是创新互联的服务宗旨！把网站当作互联网产品，产品思维更注重全局思维、需求分析和迭代思维，在网站建设中就是为了建设一个不仅审美在线，而且实用性极高的网站。创新互联对网站制作、成都网站建设、网站制作、网站开发、网页设计、网站优化、网络推广、探索永无止境。
Dim MyBrush As New SolidBrush(Color.Red)
Dim MyProportion As Single
Dim MyRect As New Rectangle
Dim MyPoint As New PointF
Dim R As Single
Const PI = 3.1415926
MyGraphics.Clear(Color.White)
Dim MyStartAngel As Double
Dim MySweepAngel As Double
R = Math.Min(Me.PictureBox1.Width, Me.PictureBox1.Height) / 2 - 15
MyPoint.X = Me.PictureBox1.Width / 2
MyPoint.Y = Me.PictureBox1.Height / 2
MyRect.X = MyPoint.X - R
MyRect.Y = MyPoint.Y - R
MyRect.Width = R * 2
MyRect.Height = R * 2
MyStartAngel = 0
MyProportion = Val(TextBox7.Text)
MySweepAngel = MyProportion * 360 / PI
MyBrush.Color = Color.Red
MyGraphics.FillPie(MyBrush, MyRect, MyStartAngel, MySweepAngel)
' MyStartAngel = MyStartAngel + MySweepAngel
MyProportion = 0.75
MySweepAngel = 360 * MyProportion
MyBrush.Color = Color.Blue
MyGraphics.FillPie(MyBrush, MyRect, MyStartAngel, MySweepAngel)
vb2010以后的版本就自带Chart控件了，比如
Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie '饼图
先在“部件”里选上“Microsoft Chart Control 6.0”，并添加一个MSChart1。
Private Sub Form_Load()
With MSChart1
.chartType = VtChChartType2dPie '表示饼图
.ColumnCount = 3 '这里是每个饼图的数据个数
.ColumnLabel = "你的数据名称"
.RandomFill = True '暂且用随机数填图，数据请自己输入
.RowCount = 2 '你说的“画两部分的饼状图就成”
.RowLabel = "你的数据标签"
.TitleText = "你的图表名称"
End With
End Sub