Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)                                  

Dim OP1,myTrend

Dim TrendName(12),TrendCount

Set myTrend =ScreenItems("myTrend") '在线趋势控件名称

Dim i

For i=1 To myTrend.TrendCount

  myTrend.TrendIndex=i

  myTrend.TrendRemove=myTrend.TrendName'添加曲线前先删除所有曲线

Next

Set OP1=ScreenItems("OP1")'曲线选择选项组控件名称

Select Case OP1.Process'根据选择项设定曲线条数及各个归档变量名称

  Case 1'选择第1项

  TrendName(0)="过程值归档\LDS_In_Temp1"   '定义曲线名称

  TrendName(1)="过程值归档\LDS_Out_Temp1" 

  TrendName(2)="过程值归档\LDS_In_Temp2" 

  TrendName(3)="过程值归档\LDS_Out_Temp2" 

  TrendName(4)="过程值归档\LDS_In_Temp3"

  TrendName(5)="过程值归档\LDS_Out_Temp3"    

  TrendName(6)="过程值归档\LDS_In_Temp4"

  TrendName(7)="过程值归档\LDS_Out_Temp4"  

  TrendName(8)="过程值归档\LDS_Out_Press1"

  TrendName(9)="过程值归档\LDS_In_Press1"

  TrendCount=10

  Case 2'选择第2项

  TrendName(0)="过程值归档\LQS_In_Temp1" 

  TrendName(1)="过程值归档\LQS_Out_Temp1" 

  TrendName(2)="过程值归档\LQS_In_Temp2"

  TrendName(3)="过程值归档\LQS_Out_Temp2" 

  TrendName(4)="过程值归档\LQS_In_Temp3"

  TrendName(5)="过程值归档\LQS_Out_Temp3"

  TrendName(6)="过程值归档\LQS_In_Temp4"

  TrendName(7)="过程值归档\LQS_Out_Temp4"  

  TrendCount=8

  Case 4'选择第3项

  TrendName(0)="设备参数\1#ZJ.N1_Load"

  TrendName(1)="设备参数\1#ZJ.LDS_InTemp"

  TrendName(2)="设备参数\1#ZJ.LDS_OutTemp"

  TrendName(3)="设备参数\1#ZJ.LQS_InTemp"

  TrendName(4)="设备参数\1#ZJ.LQS_OutTemp"

  TrendName(5)="设备参数\1#ZJ.N1_EvapPress"

  TrendName(6)="设备参数\1#ZJ.N1_EvapTemp"

  TrendName(7)="设备参数\1#ZJ.N1_CondPress"

  TrendName(8)="设备参数\1#ZJ.N1_CondTemp"

  TrendCount=9

  Case 8'选择第4项

  TrendName(0)="设备参数\2#ZJ.N1_Load"

  TrendName(1)="设备参数\2#ZJ.LDS_InTemp"

  TrendName(2)="设备参数\2#ZJ.LDS_OutTemp"

  TrendName(3)="设备参数\2#ZJ.LQS_InTemp"

  TrendName(4)="设备参数\2#ZJ.LQS_OutTemp"

  TrendName(5)="设备参数\2#ZJ.N1_EvapPress"

  TrendName(6)="设备参数\2#ZJ.N1_EvapTemp"

  TrendName(7)="设备参数\2#ZJ.N1_CondPress"

  TrendName(8)="设备参数\2#ZJ.N1_CondTemp"

  TrendCount=9

  Case 16'选择第5项

  TrendName(0)="设备参数\3#ZJ.N1_Load"

  TrendName(1)="设备参数\3#ZJ.LDS_InTemp"

  TrendName(2)="设备参数\3#ZJ.LDS_OutTemp"

  TrendName(3)="设备参数\3#ZJ.LQS_InTemp"

  TrendName(4)="设备参数\3#ZJ.LQS_OutTemp"

  TrendName(5)="设备参数\3#ZJ.N1_EvapPress"

  TrendName(6)="设备参数\3#ZJ.N1_EvapTemp"

  TrendName(7)="设备参数\3#ZJ.N1_CondPress"

  TrendName(8)="设备参数\3#ZJ.N1_CondTemp"

  TrendCount=9

  Case 32'选择第6项

  TrendName(0)="设备参数\4#ZJ.N1_Load"

  TrendName(1)="设备参数\4#ZJ.LDS_InTemp"

  TrendName(2)="设备参数\4#ZJ.LDS_OutTemp"

  TrendName(3)="设备参数\4#ZJ.LQS_InTemp"

  TrendName(4)="设备参数\4#ZJ.LQS_OutTemp"

  TrendName(5)="设备参数\4#ZJ.N1_EvapPress"

  TrendName(6)="设备参数\4#ZJ.N1_EvapTemp"

  TrendName(7)="设备参数\4#ZJ.N1_CondPress"

  TrendName(8)="设备参数\4#ZJ.N1_CondTemp"

  TrendCount=9

  Case 64'选择第7项

  TrendName(0)="设备参数\1#LDB.Current"

  TrendName(1)="设备参数\1#LDB.Freq"

  TrendName(2)="设备参数\2#LDB.Current"

  TrendName(3)="设备参数\2#LDB.Freq"

  TrendName(4)="设备参数\3#LDB.Current"

  TrendName(5)="设备参数\3#LDB.Freq"

  TrendName(6)="设备参数\4#LDB.Current"

  TrendName(7)="设备参数\4#LDB.Freq"

  TrendName(8)="设备参数\5#LDB.Current"

  TrendName(9)="设备参数\5#LDB.Freq"

  TrendName(10)="设备参数\6#LDB.Current"

  TrendName(11)="设备参数\6#LDB.Freq"

  TrendCount=12

  Case 128'选择第8项

  TrendName(0)="设备参数\1#LQB.Current"

  TrendName(1)="设备参数\1#LQB.Freq"

  TrendName(2)="设备参数\2#LQB.Current"

  TrendName(3)="设备参数\2#LQB.Freq"

  TrendName(4)="设备参数\3#LQB.Current"

  TrendName(5)="设备参数\3#LQB.Freq"

  TrendName(6)="设备参数\4#LQB.Current"

  TrendName(7)="设备参数\4#LQB.Freq"

  TrendName(8)="设备参数\5#LQB.Current"

  TrendName(9)="设备参数\5#LQB.Freq"

  TrendName(10)="设备参数\6#LQB.Current"

  TrendName(11)="设备参数\6#LQB.Freq"

  TrendCount=12 

  Case 256'选择第9项

  TrendName(0)="设备参数\1#LQT.Current"

  TrendName(1)="设备参数\1#LQT.Freq"

  TrendName(2)="设备参数\2#LQT.Current"

  TrendName(3)="设备参数\2#LQT.Freq"

  TrendName(4)="设备参数\3#LQT.Current"

  TrendName(5)="设备参数\3#LQT.Freq"

  TrendName(6)="设备参数\4#LQT.Current"

  TrendName(7)="设备参数\4#LQT.Freq"

  TrendName(8)="设备参数\5#LQT.Current"

  TrendName(9)="设备参数\5#LQT.Freq"

  TrendName(10)="设备参数\6#LQT.Current"

  TrendName(11)="设备参数\6#LQT.Freq"

  TrendCount=12 

End Select

For i=1 To TrendCount  '添加趋势并设定曲线的属性

  myTrend.TrendAdd= TrendName(i-1)

  myTrend.TrendTagName= TrendName(i-1)'曲线名称

  myTrend.TrendTrendWindow= "Trend windows 1" '曲线窗口名称

  myTrend.TrendTimeAxis= "Time axis 1"     '时间轴

  myTrend.TrendValueAxis= "Value axis 1"   '数值轴

Select Case(i)   '设定各曲线颜色

         Case(1)

         myTrend.TrendColor= RGb(0,0,0)'黑色

         Case(2)

         myTrend.TrendColor= RGb(255,0,0)'红色

         Case(3)

         myTrend.TrendColor= RGb(0,255,0)'绿色

         Case(4)

         myTrend.TrendColor= RGb(0,0,255)'蓝色

         Case(5)

         myTrend.TrendColor= RGb(255,255,0)'黄色

         Case(6)

         myTrend.TrendColor= RGb(0,255,255)'青色

         Case(7)

         myTrend.TrendColor= RGb(120,36,36)'棕色

         Case(8)

         myTrend.TrendColor= RGb(255,0,255)'深红

         Case(9)

         myTrend.TrendColor= RGb(255,0,255)'深红

         Case(10)

         myTrend.TrendColor= RGb(0,255,0)'绿色

         Case(11)

         myTrend.TrendColor= RGb(0,0,255)'蓝色

         Case(12)

         myTrend.TrendColor= RGb(0,0,0)'黑色

End Select

Next

'设置曲线开始时间和结束时间

Dim BeginTime,endTime

Set BeginTime=ScreenItems("BeginTime")

Set endTime=ScreenItems("EndTime")

myTrend.TimeAxisIndex = 0  '时间轴索引

myTrend.Online = 0

myTrend.TimeAxisRangeType =1 '时间轴类型-时间范围

myTrend.TimeAxisBeginTime  = BeginTime.value   '起始时间

myTrend.TimeAxisEndTime =endtime.value     '结束时间

End Sub

脚本如上。