WINCC VBA编程练习10
这一篇学习笔记在新浪博客发表过，这里再次记录一下。
歇了一段时间没有做WINCC环境下VBA学习，今晚继续。新建下面的VBA脚本
Sub AddTrendctrl()
'画面上添加趋势控件
Dim i, objTrend
Set objTrend = ActiveDocument.HMIObjects.AddActiveXControl("trend", "CCAxOnlineTrendControl.AxOnlineTrendControl.1")
objTrend.Width = 1900
objTrend.Height = 900
objTrend.Top = 100
objTrend.Left = 100
objTrend.Properties("ObjectName") = "变量趋势1" '
objTrend.Properties("TrendIndex") = 1
objTrend.Properties("TrendRemove") = objTrend.Properties("TrendName")
objTrend.Properties("TrendAdd") = "实数1"
objTrend.Properties("TrendTagName") = "过程值归档\Real1"
objTrend.Properties("TrendAdd") = "实数2"
objTrend.Properties("TrendTagName") = "过程值归档\Real2"
objTrend.Properties("TrendAdd") = "实数3"
objTrend.Properties("TrendTagName") = "过程值归档\Real3"
objTrend.Properties("TrendAdd") = "实数4"
objTrend.Properties("TrendTagName") = "过程值归档\Real4"
objTrend.Properties("TrendAdd") = "实数5"
objTrend.Properties("TrendTagName") = "过程值归档\Real5"
End Sub
保存运行，就会在当前打开的WINCC画面上新建一个趋势控件，名字叫做“变量趋势1”，有5个趋势笔，分别对应real1至real5，掌握了这个方法，设置趋势控件其他属性就简单了。