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) = 1Next
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.AxisX.GridMajorVisible = False '去网格
Chart.AxisY.GridMajorVisible = False '去网格
各位老师,请帮忙看看 ,
我要做一个 2条柱状 ,1条 线性 的图表.
代码 去到 生成 线性 图的 时候 没法赋值给 横竖坐标.
去掉红色的代码就没有问题.
请帮忙指点下