-- 作者:有点甜
-- 发布时间:2019/5/10 9:14:00
--
1、我测试没问题
Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.Length = 10 \'新增图系包括10个数据点
For i As Integer = 0 To 9 \'指定每个数据点的位置 Series.X(i) = i \'指定水平坐标 Series.Y(i) = 100 - i Next
Series.DataLabelText = "{#YVAL}"
2、你可以错位
Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.Length = 10 \'新增图系包括10个数据点 Series.X(0) = 0 \'指定水平坐标 Series.Y(0) = 0
For i As Integer = 1 To 9 \'指定每个数据点的位置 Series.X(i) = i \'指定水平坐标 Series.Y(i) = 100 - i Next
Series.DataLabelText = "{#YVAL}"
|