如果趋势控件不组态任何趋势，脚本：

Dim Trend1

Set Trend1 = HMIRuntime.ActiveScreen.ScreenItems("控件1")

While Trend2.TrendCount > 0 

Trend1.TrendIndex = Trend1.TrendCount -1

Trend1.TrendRemove = Trend1.TrendName 

Wend

Trend1.TrendAdd ="数据1"' 

Trend1.TrendVisible = 1

Trend1.TrendTagName = "归档数据\data1" 

Trend1.TrendTrendWindow  = "趋势窗口 1"

Trend1.TrendTimeAxis = "时间轴 1"

Trend1.TrendValueAxis = "数值轴 1"

Trend1.TrendColor = RGB(255,0,0)

Trend1.TrendAdd ="数据2"' 

Trend1.TrendVisible = 1

Trend1.TrendTagName = "归档数据\data2" 

Trend1.TrendTrendWindow  = "趋势窗口 1"

Trend1.TrendTimeAxis = "时间轴 1"

Trend1.TrendValueAxis = "数值轴 1"

Trend1.TrendColor = RGB(255,0,0)

Trend1.TrendAdd ="数据3"' 

Trend1.TrendVisible = 1

Trend1.TrendTagName = "归档数据\data3" 

Trend1.TrendTrendWindow  = "趋势窗口 1"

Trend1.TrendTimeAxis = "时间轴 1"

Trend1.TrendValueAxis = "数值轴 1"

Trend1.TrendColor = RGB(255,0,0)