- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]改变图例 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3722)
-- 发布时间：2009/7/28 13:59:00
-- [求助]改变图例
此主题相关图片如下：按钮.png
此主题相关图片如下：造林年度.png
此主题相关图片如下：造林类别.png
此主题相关图片如下：林种.png
此主题相关图片如下：退耕.png
此主题相关图片如下：退耕林种.png
[此贴子已经被作者于2009-7-28 16:20:44编辑过]
-- 发布时间：2009/7/28 14:39:00
--
顶
-- 发布时间：2009/7/28 14:51:00
--
Text
返回或者设置图系的标题，这个标题将显示在图例中。
示例
Dim
Chart As WinForm.Chart \'定义一个图表变量Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= Forms("窗口1").Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.LegendVisible = True \'显示图例
Chart.SeriesList.Clear() \'清除图表原来的图系
For n As integer = 0 To 1
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Text = "图系" & (n + 1)
Series.Length = 10 \'图系包括10个数据点
For i As integer = 1 to 5 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = i + n * 2 + Rand.Next(5) \'垂直坐标用随即数生成
Next
Next
-- 发布时间：2009/7/28 15:50:00
--
图系的标题是动态的，不是固定的。根据分析条件组合显示不同的图系的标题。自己已反复看了帮助文件不能变通，才来求助请贺老师费心！
-- 发布时间：2009/7/28 16:01:00
--
既然是通过代码,就可以随心所欲地动态设置啊.
显然你不需要用列名作为图例,而是希望用列标题作为图例.
那么很简单,将代码中的:
Series.Text = c.Name
改为
Series.Text = c.Caption
-- 发布时间：2009/7/28 16:20:00
--
点睛之笔，恐怕只有贺老师能点，多谢多谢！