画面模板"/>
WINCC趋势画面模板
加载按钮
Sub OnClick(Byval Item) Dim Chart,tag,ctrl,objTrendWnd,objTimeAxis,objValAxis,objTrendSet Chart=ScreenItems("组合框2")'Chart
tag=Chart.SelTextSet ctrl = ScreenItems("控件1")'threadSet objTrendWnd = ctrl.GetTrendWindow("趋势窗口 1")'ThreadWndSet objTimeAxis = ctrl.GetTimeAxisCollection.Item("时间轴 1")'T1
Set objValAxis = ctrl.GetValueAxisCollection.Item("数值轴 1")'V1
'MsgBox("通过~")
Set objTrend = ctrl.GetTrendCollection.AddItem(tag)objTrend.Provider = 1
objTrend.TagName = tag
objTrend.TrendWindow = objTrendWnd.Name
objTrend.TimeAxis = objTimeAxis.Name
objTrend.ValueAxis = objValAxis.Name'Msgbox tag
'ctrl.TrendRename = "机后混合热值"
If tag="ProcessValueArchive\MIXBT" Thenctrl.TrendRename = "机后混合热值"
End IfIf tag="ProcessValueArchive\MIXBF" Thenctrl.TrendRename = "机后混合流量"
End IfEnd Sub
清除按钮
Sub OnClick(Byval Item) Dim ctrl
Dim i
Set ctrl = ScreenItems("控件1")'threadFor i=1 To ctrl.TrendCount
ctrl.TrendIndex =i
ctrl.TrendRemove =ctrl.TrendName'添加曲线前先删除所有曲线
Next
End Sub
索引名称与文本一一对应,文本为归档变量路径名称。
项目下载地址:
学习资料
/
更多推荐
WINCC趋势画面模板
发布评论