WINCC里面部分按钮需要只对管理员权限可见，非管理员权限则隐藏，思路是用VB脚本，由两个思路：
方案一，直接用VB脚本，读取@currentuser, 如果是administrator账户，将display显示属性写1，如果非administrator账户，将display属性写0，代码如下：
Dim mytag12
mytag12=HMIRuntime.Tags("@currentuser").Read
If mytag12="administrator" Then
HMIRuntime.Tags("Display").Write 1
Else
HMIRuntime.Tags("Display").Write 0
End If
但是实际在该按钮的display属性里面运行脚本后没有实现该隐藏功能，后来改到event里面的display脚本，也没法实现，不知有何问题
方案2，将该按钮layer放到一个没用过的层，layer 20里面，然后用VB脚本读取@currentuser, 如果是administrator账户，将visible显示属性写true,非administrator，则visible属性写0，代码如下：
Dim mytag12
mytag12=HMIRuntime.Tags("@currentuser").Read
If mytag12="administrator" Then
Layers(20).visible = vbTrue
Else
Layers(20).visible = vbFalse
End If
运行该VB脚本后还是没有实现隐藏功能
请问我这两个思路和代码有什么问题了，谢谢
问题补充：
放错位置了，请版主给移到SIMATIC WINCC里面，谢谢
图片说明：
最佳答案
Layers(20).visible = vbTrue这个隐藏显示只是对画面编辑有用的，实际运行都是显示的。如果你要隐藏按钮应该是：
Dim mytag12
mytag12=HMIRuntime.Tags("@currentuser").Read
If mytag12="administrator" Then
HMIRuntime.Tags("Dis").Write 1
Else
HMIRuntime.Tags("Dis").Write 0
End If
需要对管理员显示的按钮都动态对话框链接变量：Dis，为1显示，为0不显示。Dis是wincc的内部变量，不是按钮的属性。
脚本放到全局脚本中执行，周期为5s就行了。
提问者对于答案的评价：
谢谢，问题已解决
专家置评
已阅，最佳答案正确。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc128148.html
微信扫一扫 
支付宝扫一扫