加载按钮

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

索引名称与文本一一对应，文本为归档变量路径名称。

项目下载地址：
https://download.csdn.net/download/weixin_37928884/88450144

学习资料
https://www.cnblogs.com/fishingsriver/
https://support.industry.siemens.com/cs/cn/zh/view/109782055