搬家第五天-131.Wincc V7.3 MSChart控件初步使用9-和checkbox结合显示/隐藏曲线

 前面介绍了使用MSChart控件做曲线的一些方法,有时我们可能需要让用户自己决定显示/隐藏那些曲线,这样就具有更好的交互性能。本文介绍如何如何与checkbox控件结合,实现上述功能。

      假设画面上有一个MSChart控件,已经具备了生成曲线功能,有4条曲线,完全显示的时候是这个样子:

画面上放置一个checkbox控件,名字修改为CB,文字也进行修改,做成这个样子:

我们希望用户勾选或者取消勾选选项的时候,就能够实时的显示/隐藏相应的曲线。在画面的打开事件中写入一下vbs代码:

Sub OnOpen()
Dim cb
Set cb=screenitems("CB")
cb.Process=15
End Sub

      我们在checkbox控件的事件-属性主题-输出输入-选择框-更改事件中添加以下vbs代码:

Sub Process_OnPropertyChanged(Byval Item, Byval value)     
Dim process,pows,i
Dim Chart,CB
Set Chart=ScreenItems("Chart")
Set CB=ScreenItems("CB")
For i=0 To 3
 pows=2^i
 process=CB.Process
 If process And pows Then
    chart.Plot.SeriesCollection.Item(i+1).ShowLine=True
 Else
  chart.Plot.SeriesCollection.Item(i+1).ShowLine=False
 End If
Next

End Sub

    保存运行,画面打开时,默认所有的曲线都勾选“显示”,使用人员如果修改勾选项,相应的曲线就跟着显示/隐藏。可以看出通过多个控件相结合,我们可以做出更加丰富的交互功能。

posted @ 2021-02-02 20:36  来自金沙江的小鱼  阅读(741)  评论(0编辑  收藏  举报