Wincc 7.5SP1下VBA编程练习：批量设置看见权限

这一篇学习笔记我在新浪发表过，那边还在审核。在这里也记录一下。

前两天QQ群里面有人询问能不能快速的给WINCC画面上的控件设置操作权限，这个是比较容易的。比如有个画面有10个IO域，在VBA编辑器写下面的脚本：

Sub IOField_PropertyTrigger1()

Dim objects

Dim obj

Dim objdynamic

Dim i

Set objects = ActiveDocument.HMIObjects.Find(ObjectName:="输入/输出域*", objecttype:="HMIIOField")

'设置连接的变量

For i = 1 To objects.Count

  Set objdynamic = objects.Item(i).OutputValue.CreateDynamic(hmiDynamicCreationTypeVariableDirect, "Real" & CStr(i))

Next

'设置权限

For i = 1 To objects.Count

  objects.Item(i).PasswordLevel = 2

Next

End Sub

 

保存运行，就可以给每个IO域设置连接变量，还可以设置其权限都是“数值输入”。各种权限对应数值如下：