Dim WinCC As Object
Dim WinCC_QCS_CD As Variant
Dim a(0 To 10) As Double
Set WinCC = CreateObject("WinCC-Runtime-Project")
Dim i As Integer
For i = 0 To 10
a(i) = WINCC.getvalue("a" & i)
Next
WINCC_QCS_CD = Array(a(0), a(1), a(2), a(3), a(4), a(5), a(6), a(7), a(8), a(9), a(10))
TChart1.Series(0).AddArray 11, WINCC_QCS_CD, 1 '将数据赋值给曲线
如果我i比较大的时候,除了该怎么来处理比较好,用Array一个个填进去太麻烦了,还有什么方便的办法吗
最佳答案
用Array 函数创建数组，不是多此一举吗？
TChart1.Series(0).AddArray 11, a, 1 ''将数据赋值给曲线
提问者对于答案的评价：
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc355128.html
微信扫一扫 
支付宝扫一扫