以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 生成图表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84696) |
-- 作者:一笑 -- 发布时间:2016/5/7 22:23:00 -- 生成图表 如何把以下表生成图表(每一列数值对应一个柱状),看了帮助,不知如何绑定列,谢谢 |
-- 作者:大红袍 -- 发布时间:2016/5/8 11:29:00 --
[此贴子已经被作者于2016/5/8 11:32:55编辑过]
|
-- 作者:大红袍 -- 发布时间:2016/5/8 11:33:00 -- Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.SeriesList.Clear() \'清除图表原来的图系 Chart.ChartType = ChartTypeEnum.Bar \'设置图表类型 chart.AxisX.ClearValueLabel Chart.BarClusterWidth = 80 Series = Chart.SeriesList.Add() \'增加一个图系 Series.Length = 2 Series.X(0) = 0 \'指定水平坐标 Series.Y(0) = 100 \'指定垂直坐标 Chart.AxisX.SetValueLabel(0, "应完成") \'指定字符表示 Series.X(1) = 1 \'指定水平坐标 Series.Y(1) = 30 \'指定垂直坐标 Chart.AxisX.SetValueLabel(1, "已完成") \'指定字符表示 Chart.AxisX.AnnoWithLabels = True \'启用字符标示 |