搬家第三天-82.Wincc V7.3 用户归档深入使用1-vbs列的显示和隐藏

前面的博客记录了用户归档的建立、与PLC的通讯、上载下载变量，简单vbs和c脚本。用户归档控件设定对话框提供了对各列显示和隐藏设定选项，但有时我们希望通过外部复选框和脚本实现同样的功能。

1. 假设用户归档以及和PLC的连接已经建立，画面上已经有了用户归档控件，名字修改为UA，现在画面上添加一个复选框，名字改为checkbox。

2. 画面打开事件写入以下vbs脚本

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

3. 复选框控件checkbox的“事件-属性主题-输出输入-选择框-更改”事件写入以下vbs脚本：

Sub Process_OnPropertyChanged(ByVal Item, ByVal value)
Dim UA,checkbox,process,pow,result,i
Set UA=ScreenItems("UA")
Set checkbox=ScreenItems("checkbox")
process=checkbox.Process
For i=0 To 3
   pow=2^i
   UA.ColumnIndex =i
   If process And pow Then
     ua.ColumnVisible =True
   Else
     ua.ColumnVisible =False
   End If
Next
End Sub

保存运行就可以实现效果了。