QQ登录

只需一步,快速开始

wincc V7.3 mschart制作图表.chartdata 无效的问题

[ 复制链接 ]
wincc V7.3 mschart制作图表.chartdata 无效的问题

我在wincc v7.3画面上放置了一个mschart控件,把数据放在一个数组里面,在按钮vbs脚本里面希望能生成曲线

Sub OnClick(ByVal Item)         
Dim Chart,a(20),i
Set Chart=ScreenItems("MSChart")
For i=1 To 20
a(i)=i
Next

With Chart
.TitleText = "流量"
.Column = 1
.ColumnLabel = "流量1"

'    '设置图线的外观
     '设置XY轴
    .Plot.Axis(0).ValueScale.Auto = 0
    .Plot.Axis(1).ValueScale.Auto = 0
'//  '设置最大值
    .Plot.Axis(0).ValueScale.Maximum = 30 '设置横轴标注最大值
    .Plot.Axis(1).ValueScale.Maximum = 200 '设置纵轴标注最大值
'//  '设置最小值
    .Plot.Axis(0).ValueScale.Minimum = 0
    .Plot.Axis(1).ValueScale.Minimum = 0
.Plot.Axis(0).ValueScale.MajorDivision = 10 'X轴主要网格数量

    .Plot.Axis(1).ValueScale.MajorDivision = 10 'Y轴主要网格数量
    .Plot.Axis(0).ValueScale.MinorDivision = 10 'X轴次要网格数量
    .Plot.Axis(1).ValueScale.MinorDivision = 0 'Y轴次要网格数量
    .Plot.Axis(0).AxisGrid.MajorPen.Style = 1
    .Plot.Axis(1).AxisGrid.MajorPen.Style = 1
    .Plot.AutoLayout = 1
    .Plot.UniformAxis = 0

    .chartType = 11      '设置图形为
    .ChartData = a '装入数据
    .ShowLegend = 1  '显示图例


For i = 1 To 5
.Row = i
.RowLabel = i*6
Next
End With
Msgbox "0"
End Sub

最终没有用数组生成曲线,问题似乎是.ChartData = a无效,有大神能指点一二吗?


--------我自己解决了,不适用chartdata属性,在with chart……end with中插入以下语句

For i = 1 To 20
.Row = i
.data=flow(i)
Next

就行了



回复

使用道具 举报

快速回复 返回列表 客服中心 搜索