MSChar显示百分比

问:

画饼图所需要的数据都在数组里面:
dim dataArray(0 to iMax, 0 to 1)

其中dataArray(i,0)是标题
dataArray(i,0)是数字

代码如下：

MSChart.chartType = VtChChartType2dPie ' 画饼图

MSChart.Visible = True

MSChart.AllowSelections = False

MSChart.ShowLegend = True

MSChart.TitleText = "百分比图"

' 为Chart控件的各行各列赋值

MSChart.RowCount = 1

MSChart.ColumnCount = iMax + 1

MSChart.RowLabel = ""

For i = 0 To iMax

MSChart.Row = 1

MSChart.Column = i + 1

MSChart.Data = dataArray(i, 1)

MSChart.ColumnLabel = dataArray(i, 0)

这段代码能画出漂亮的饼图来，但是，显示不出来个部分所占的百分比。
正在装载数据……

如何显示百分比呢？

答:

Private Sub Form_Load()

With MSChart1

.ChartType = VtChChartType2dPie

For i = 1 To 3

.Row = 1

.Column = i

.Data = i * 100

With .DataGrid

.RowLabelCount = 1

.ColumnCount = 3

.RowCount = 1

For i = 1 To .ColumnCount

.ColumnLabel(i, 1) = "Column " & i

Next i

.RowLabel(1, 1) = "Data as a Percentage"

End With

For i = 1 To .Plot.SeriesCollection.Count

With .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel

.LocationType = VtChLabelLocationTypeOutside

.Component = VtChLabelComponentPercent

.PercentFormat = "0%"

.VtFont.Size = 10

End With

Next i

End With

End Sub

本文来源：http://blog.csdn.net/cncco/archive/2007/08/07/1729589.aspx

最新热点		最新推荐		相关文章
		如何在ado中使用connect… vb 贪吃蛇单人版游戏（… 关于在vb中进行com组件的… 用vb6.0编写自我升级的程… vb自动登陆网络站点详解… vb打造超酷个性化菜单（…		HashTable和HashMap； Vecto… Hashtable 排序 [ZT]关于用jar打包（分享）一个关于Comparator的使用例… jsf自定义toolbar组件摘：主题: using springmo… JSP Tag Library jsp重定向forward和sendRedi… struts异常_does not start … 进程防杀与屏蔽WIN 、alt+ta…