Foxtable(狐表)用户栏目专家坐堂 → 双轴图的疑问


  共有2142人关注过本帖树形打印复制链接

主题:双轴图的疑问

帅哥哟,离线,有人找我吗?
ljh29206
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1359 积分:12004 威望:0 精华:0 注册:2012/3/5 11:32:00
双轴图的疑问  发帖心情 Post By:2020/10/5 10:17:00 [只看该作者]

 Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '设置图表类型
Chart.SeriesList.Clear() '清除图表原来的图系
chart.AxisY.ClearValueLabel
chart.AxisX.ClearValueLabel
For v As Integer  = 0 To 1
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 29
    For k As Integer = 0 To 28
        Series.X(k) = k '指定水平坐标
        Chart.AxisX.SetValueLabel(k,k)
        Series.Y(k) = 1
        
    Next
Next



Chart.ChartType2 = ChartTypeEnum.XYPlot '图表2类型该为线形
Series = Chart.SeriesList2.Add() '给图表2增加一个图系
For k As Integer = 0 To 28 '指定每个数据点的位置
    Series.X(k) = k '指定水平坐标
    Series.Y(k) = 1

Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)



Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.AxisX.GridMajorVisible = False '去网格
Chart.AxisY.GridMajorVisible = False '去网格


各位老师,请帮忙看看 ,
我要做一个   2条柱状  ,1条 线性 的图表.

代码 去到 生成  线性 图的 时候  没法赋值给   横竖坐标.

去掉红色的代码就没有问题.

请帮忙指点下


 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1359 积分:12004 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2020/10/6 12:31:00 [只看该作者]

版主,辛苦了,这么早上班,有空帮忙看看这个问题

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106307 积分:540670 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/6 13:45:00 [只看该作者]

Chart.ChartType2 = ChartTypeEnum.XYPlot '图表2类型该为线形
Series = Chart.SeriesList2.Add() '给图表2增加一个图系
Series.Length = 29
For k As Integer = 0 To 28 '指定每个数据点的位置

 回到顶部