此主题相关图片如下:qq截图20200315202744.jpg
Dim ct As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
ct= e.Form.Controls("chart") ' 引用窗口中的图表
ct.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
ct.SeriesList.Clear() '清除图表原来的图系
Series = ct.SeriesList.Add() '增加一个图系
Series.Length = 2 '图系包括10个数据点
Series.Text = "test"
Series.X(0) = 0 '指定水平坐标
Series.Y(0) = 10
Series.X(1) = 1 '指定水平坐标
Series.Y(1) = 6
ct.AxisX.SetValueLabel( 0 , "test") '指定字符表示
ct.AxisX.AnnoWithLabels = True '启用字符标示
我这样想做一个一个列可就一个呀
[此贴子已经被作者于2020/3/15 21:59:58编辑过]