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

标签：Dim VBA IO SP1 Wincc objects 设置 权限

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

前两天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域设置连接变量，还可以设置其权限都是“数值输入”。各种权限对应数值如下：

 

标签：Dim,VBA,IO,SP1,Wincc,objects,设置,权限
From： https://www.cnblogs.com/fishingsriver/p/18549670