SetValueLabel
为给定的数值设置字符表示。
语法:
SetValueLabel(Value, Label)
Value: 数值
Label: 字符表示
例如对于下面的表格:
上表中产品列是字符型,并不是数值型,如果手工编写图示代码,就必须使用SetValueLabel函数:
Dim
Chart
As WinForm.Chart
'定义一个图表变量
Dim Series As
WinForm.ChartSeries '定义一个图系变量
Dim t As
Table =
Tables("统计表1")
'定义一个变量t引用数据表
Chart= Forms("窗口1").Controls("Chart1")
' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count '设置图系的长度
For i As
integer =
0
to t.Rows.Count -
1
'指定每个数据点的位置
Series.X(i) = i '指定水平坐标
Series.Y(i) = t.Rows(i)("数量")
'指定垂直坐标
Chart.AxisX.SetValueLabel(i, t.Rows(i)("产品"))
'指定字符表示
Next
Chart.AxisX.AnnoWithLabels =
True '启用字符标示
生成的图表:
本页地址:http://www.foxtable.com/webhelp/topics/1032.htm