找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
问题
取消精华
首页精华问答
取消推荐
高端用户推荐
申请置评
已申请置评
修改
修改标签
添加标签
官方认证
取消官方认证
修改标签
添加标签
转移分类
删除
{{itemCategory}}
方案一,直接用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脚本后还是没有实现隐藏功能
请问我这两个思路和代码有什么问题了,谢谢
收藏({{answerDetail.Q_FavoriteCounts}})
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
专家建议
取消最佳答案
修改
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就行了。
等您来回答
换一换
{{item.CoinValue}}西币
{{item.VisitNum}}人想问
本版相关问题
换一换
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!

西门子商城