Question

急！在线等，大家帮帮忙，用VB中的MSchart画饼状图

要画N个部分的饼状图，每个部分的大小由从数据库中读出的数据经计算得出，要有图例，可以先N=5写示例代码，最好加点注释，谢谢各位了，小弟在线等！！！！！
这个例子是MSDN里的，用你告诉我？
大哥，你以为就你知道查MSDN阿，你不能为了几分就随便不负责任的把你手边最容易能弄到的资料贴上来吧，要是那个能看明白还跑知道上来提问干什么啊？

Answer 1

实在对不起,我以为上边的你能看明白
现在把最简单能看懂的给你贴上

'先在“部件”里选上“Microsoft Chart Control 6.0”，并添加一个MSChart1。

Private Sub Form_Load()
'数据库我就不读了，你应该会从数据库读数据吧，把它读到a()里，假设有6条数据13，22，35，16，11，3
Dim aDdata() As Double
a = Array(13, 22, 35, 16, 11, 3)

With MSChart1
.chartType = VtChChartType2dPie '表示控件显示的为饼图
'在饼状图中ColumnCount代表每一个饼状图的数据个数,RowCount代表有多少个饼状图,二,三维表图中分别代表行和列,三维图中指定行,列后,.Data属性代表该坐标的高(这样懂了吧)
.ColumnCount = 6 '设置饼图的数据个数为6个
.RowCount = 1 '“画1个饼状图就成”
.ColumnLabel = "饼状图"

'本来可用循环给图赋值,为了能看懂,我分别赋值:
'一个饼状图的6个数值,分别代表6个坐标(row,column):(1,1)(1,2)(1,3)(1,4)(1,5)(1,6),这6个坐标,row是固定的,所以只赋值一次

.Row = 1
.Column = 1
.Data = a(0)
.Column = 2
.Data = a(1)
.Column = 3
.Data = a(2)
.Column = 4
.Data = a(3)
.Column = 5
.Data = a(4)
.Column = 6
.Data = a(5)

'.RandomFill = False '这句就是一开始给你用的随机数填图,现在不用了
.RowLabel = "你的数据标签"
.TitleText = "你的图表名称"
End With

End Sub

另外:你以为我是为了挣你这点分就不负责任吗,你可以看看我的回答记录,即使没有分我也会给他找代码,甚至自已费时间写很多代码,这是看情况定的,我自认为你的问题很简单,看了msdn就会懂,如果你不喜欢我这种发贴方式,以后不会烦您了,我是个讲信用的人,这次问题会帮你解决,至于分,你爱给不给