以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图表问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117685)
--  作者：漂亮美眉vszh
--  发布时间：2018/4/17 16:11:00
--  图表问题
老师：1.启用双图表后，两种不同类型的图表，默认图比例不一致，但想更改为一致？怎么改？两个表都设个最大值与最小值？
2.更改第二个图系的线型等信息，无效，代码贴出来帮忙看看

Chart.SeriesList2.Clear() \'清除图表原来的图系
\'Series = Chart.SeriesList2.Add() \'给图表2增加一个图系
Series = Chart.SeriesList2.Add() \'增加一个图系

‘其他数据代码
’最后一行线型等信息设置代码，更改不了
Chart.SeriesList2(0).LineColor= Color.Fuchsia
Chart.SeriesList2(0).LinePattern = LinePatternEnum.Solid
Chart.SeriesList2(0).MarkColor = Color.Purple
Chart.SeriesList2(0).LineThickNess = 1
Chart.SeriesList2(0).MarkShape = MarkShapeEnum.Box
--  作者：漂亮美眉vszh
--  发布时间：2018/4/17 16:15:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：12.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/4/17 16:24:00
--  

1、参考

 

http://www.foxtable.com/webhelp/scr/1016.htm

 

http://www.foxtable.com/webhelp/scr/1018.htm

 

http://www.foxtable.com/webhelp/scr/1019.htm

 

2、这句代码，必须删除

 

Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
--  作者：漂亮美眉vszh
--  发布时间：2018/4/17 16:32:00
--  
老师，第2个问题没解决，

Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮

没有这句代码，但依然无法设置第二副图的线型
--  作者：有点甜
--  发布时间：2018/4/17 16:53:00
--  

我这样测试没问题，上传实例测试

 

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Chart.SeriesList2.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 10 \'新增图系包括10个数据点
For i As Integer = 0 To 9 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = i + Rand.Next(5) \'垂直坐标用随机数生成
Next
Series = Chart.SeriesList2.Add() \'增加一个图系
Series.Length = 10 \'新增图系包括10个数据点
For i As Integer = 0 To 9 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = i + Rand.Next(5) \'垂直坐标用随机数生成
Next
series.MarkShape = MarkShapeEnum.star