WINCC7.5SP2下VBA编程练习12：批量设置控件权限_来自金沙江的小鱼

个人资料

微博

正文字体大小：大中小

WINCC7.5SP2下VBA编程练习12：批量设置控件权限

(2024-11-16 18:38:01)

标签：

分类：西门子软硬件

前两天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))

'设置权限

For i = 1 To objects.Count

objects.Item(i).PasswordLevel = 2

End Sub

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

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report