以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表的峰值不显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134813)

--  作者:pyh6918
--  发布时间:2019/5/10 8:23:00
--  图表的峰值不显示

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190510081051.png
图片点击可在新窗口打开查看

请教:图表的这个最大值不显示,有什么办法解决一下。谢谢!

--  作者:有点甜
--  发布时间: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}"


--  作者:pyh6918
--  发布时间:2019/5/10 9:24:00
--  
我这确实有问题,谢谢甜版,我试试错位法。