搬家第二天-41.Wincc V7.3 利用Inputbox和Msgbox做权限管理和二次确认设计

有时候我们希望做某个操作时，有密码管理或者二次确认。密码管理可以通过用户管理方式设置权限，也可以通过弹窗输入密码的方式；二次确认主要是使用弹窗然后捕获用户点击的按钮编号来进行。下面通过一个简单的日子记录一下如何实现。

 

一 准备工作，在wincc页面中放入两个圆形，名字为cicle1，cicle2，圆圈取消全局颜色方案。

二 脚本

1. 密码管理功能

在按钮中输入以下VBS脚本，运行时输入密码，如果密码正确，则改变圆圈的填充颜色。此脚本主要是运用inputbox函数。

Sub OnClick(ByVal Item)          
Dim cicle,password
Set cicle=ScreenItems("cicle1")
password=Inputbox("输入弹窗显示的内容","输入弹窗标题栏的内容","1234567",300,300)
If password="7654321" Then
  cicle.BackColor  =RGb(0,255,0)
   cicle.FillingIndex=100
Else
   Msgbox "密码错误，请重新输入"
End If
End Sub

 

2. 二次确认功能

在按钮中输入以下VBS脚本，运行时点击按钮出现选择对话框，选择确定则改变圆圈颜色，选择取消，则不改变圆圈颜色。

Sub OnClick(ByVal Item) 
Dim cicle,btn
Set cicle=ScreenItems("cicle2")
btn=Msgbox("你确定要这样?",1,"这里是标题") '显示“确定”和“取消”按钮，默认第一个按钮
If btn=1 Then  '选择了“确定”按钮
  cicle.BackColor  =RGb(0,255,0)
   cicle.FillingIndex=100
End If
If btn=2 Then
   Msgbox "好吧，你最终还是放弃了"
End If
End Sub