联系电话: 136 1541 7996
关于我们 产品中心 新闻咨询 案例展示 联系我们

WinCC画面图层的显示和隐藏

作者：创始人 发布时间：2025-05-28 浏览次数：1

最近在逛西门子论坛时,发现一个有趣的功能,可以通过脚本对画面的图层进行隐藏和显示,不过该帖子只显示了 简单的脚本代码,本着实践是学习的最好方法。我进行了实际操作,并增加了新的功能。下面是我实际操作的步骤和总结


将整个画面作为对象,然后修改对象的属性方法,实现画面图层的隐藏显示


  1. 如何将整个画面作为对象

  2. 画面中图层号和脚本中索引值的关系

  3. 画面图层随机显示


条目描述
软件版本wincc7.5 SP1


创建项目



  1. 打开wincc 7.5 Advance软件,创建对应的项目,项目名称为LayerVisible。

    图片




  2. 创建变量.先创建变量组Function,然后创建两个变量(红色框框),其他变量为其他画面用到的,不用于此项目画面。

    图片




  3. 创建画面,画面名称为Layer01,切记此画面名称,后面创建画面对象时,需要用到。

    图片




按钮列表


对象对象名称数量描述
图形对象控件默认1显示图片
静态文本默认2显示画面名称和图层颜色介绍
按钮默认9控制图层的隐藏/显示
矩形默认66个矩形处于画面的6个图层,通过颜色区分


图片


按钮描述


按钮名称作用
图层1点击此按钮,隐藏其他五个矩形,只显示红色矩形
图层2点击此按钮,隐藏其他五个矩形,只显示蓝色矩形
图层3点击此按钮,隐藏其他五个矩形,只显示黄色矩形
图层4点击此按钮,隐藏其他五个矩形,只显示绿色矩形
图层5点击此按钮,隐藏其他五个矩形,只显示紫色矩形
图层6点击此按钮,隐藏其他五个矩形,只显示白色矩形
红绿黄点击此按钮,隐藏其他三个矩形,显示红绿黄三个颜色的矩形
蓝白紫点击此按钮,隐藏其他三个矩形,只显示蓝白紫三个颜色的矩形
随机点击此按钮,隐藏其他五个矩形,显示一个随机颜色的矩形


按钮脚本


图层1

Dim SobjDim VisibleOnSet Sobj = hmiruntime.Screens("Layer01") '获取画面对象,Set VisibleOn = HMIRuntime.Tags("VisibleOn") '获取变量VisibleOn.Write 1              '变量值写1If VisibleOn.Value = 1 Then         '逻辑判断  Sobj.Layers(1).visible = True      '显示图层0  Sobj.Layers(2).visible = False      '隐藏图层1  Sobj.Layers(3).visible = False  Sobj.Layers(4).visible = False  Sobj.Layers(5).visible = False  Sobj.Layers(6).visible = FalseElse   Sobj.Layers(1).visible = FalseEnd If

图层2

Dim SobjDim VisibleOnSet Sobj = hmiruntime.Screens("Layer01")Set VisibleOn = HMIRuntime.Tags("VisibleOn")VisibleOn.Write 2If VisibleOn.Value = 2 Then   Sobj.Layers(1).visible = False  Sobj.Layers(2).visible = True  Sobj.Layers(3).visible = False  Sobj.Layers(4).visible = False  Sobj.Layers(5).visible = False  Sobj.Layers(6).visible = FalseElse   Sobj.Layers(2).visible = FalseEnd If


图层3

Dim SobjDim VisibleOnSet Sobj = hmiruntime.Screens("Layer01")Set VisibleOn = HMIRuntime.Tags("VisibleOn")VisibleOn.Write 3If VisibleOn.Value = 3 Then   Sobj.Layers(1).visible = False  Sobj.Layers(2).visible = False  Sobj.Layers(3).visible = True  Sobj.Layers(4).visible = False  Sobj.Layers(5).visible = False  Sobj.Layers(6).visible = FalseElse   Sobj.Layers(3).visible = FalseEnd If

图层4


Dim SobjDim VisibleOnSet Sobj = hmiruntime.Screens("Layer01")Set VisibleOn = HMIRuntime.Tags("VisibleOn")VisibleOn.Write 4If VisibleOn.Value = 4 Then   Sobj.Layers(1).visible = False  Sobj.Layers(2).visible = False  Sobj.Layers(3).visible = False  Sobj.Layers(4).visible = True  Sobj.Layers(5).visible = False  Sobj.Layers(6).visible = FalseElse   Sobj.Layers(4).visible = FalseEnd If


图层5

Dim SobjDim VisibleOnSet Sobj = hmiruntime.Screens("Layer01")Set VisibleOn = HMIRuntime.Tags("VisibleOn")VisibleOn.Write 5If VisibleOn.Value = 5 Then   Sobj.Layers(1).visible = False  Sobj.Layers(2).visible = False  Sobj.Layers(3).visible = False  Sobj.Layers(4).visible = False  Sobj.Layers(5).visible = True  Sobj.Layers(6).visible = FalseElse   Sobj.Layers(5).visible = FalseEnd If


图层6


Dim SobjDim VisibleOnSet Sobj = hmiruntime.Screens("Layer01")Set VisibleOn = HMIRuntime.Tags("VisibleOn")VisibleOn.Write 6If VisibleOn.Value = 6 Then   Sobj.Layers(1).visible = False  Sobj.Layers(2).visible = False  Sobj.Layers(3).visible = False  Sobj.Layers(4).visible = False  Sobj.Layers(5).visible = False  Sobj.Layers(6).visible = TrueElse   Sobj.Layers(6).visible = FalseEnd If


红绿黄

Dim SobjDim VisibleOnSet Sobj = hmiruntime.Screens("Layer01")Set VisibleOn = HMIRuntime.Tags("VisibleOn")VisibleOn.Write 7If VisibleOn.Value = 7 Then   Sobj.Layers(1).visible = True  Sobj.Layers(2).visible = False  Sobj.Layers(3).visible = True  Sobj.Layers(4).visible = True  Sobj.Layers(5).visible = False  Sobj.Layers(6).visible = FalseElse   Sobj.Layers(1).visible = False  Sobj.Layers(3).visible = False  Sobj.Layers(4).visible = FalseEnd If


蓝白紫

Dim SobjDim VisibleOnSet Sobj = hmiruntime.Screens("Layer01")Set VisibleOn = HMIRuntime.Tags("VisibleOn")VisibleOn.Write 8If VisibleOn.Value = 8 Then   Sobj.Layers(1).visible = False  Sobj.Layers(2).visible = True  Sobj.Layers(3).visible = False  Sobj.Layers(4).visible = False  Sobj.Layers(5).visible = True  Sobj.Layers(6).visible = TrueElse   Sobj.Layers(2).visible = False  Sobj.Layers(5).visible = False  Sobj.Layers(6).visible = FalseEnd If


随机

Dim SobjSet Sobj = HMIRuntime.Screens("Layer01")HMIRuntime.Tags("ColorNumber").Write MyRnd(1,6)
Msgbox HMIRuntime.Tags("ColorNumber").ReadIf HMIRuntime.Tags("ColorNumber").Read  = 1 Then     Sobj.Layers(1).visible = True    Sobj.Layers(2).visible = False    Sobj.Layers(3).visible = False    Sobj.Layers(4).visible = False    Sobj.Layers(5).visible = False    Sobj.Layers(6).visible = FalseElseif HMIRuntime.Tags("ColorNumber").Read  = 2 Then     Sobj.Layers(1).visible = False    Sobj.Layers(2).visible = True    Sobj.Layers(3).visible = False    Sobj.Layers(4).visible = False    Sobj.Layers(5).visible = False    Sobj.Layers(6).visible = FalseElseif HMIRuntime.Tags("ColorNumber").Read  = 3 Then     Sobj.Layers(1).visible = False    Sobj.Layers(2).visible = False    Sobj.Layers(3).visible = True    Sobj.Layers(4).visible = False    Sobj.Layers(5).visible = False    Sobj.Layers(6).visible = FalseElseif HMIRuntime.Tags("ColorNumber").Read  = 4 Then     Sobj.Layers(1).visible = False    Sobj.Layers(2).visible = False    Sobj.Layers(3).visible = False    Sobj.Layers(4).visible = True    Sobj.Layers(5).visible = False    Sobj.Layers(6).visible = FalseElseif HMIRuntime.Tags("ColorNumber").Read  = 5 Then     Sobj.Layers(1).visible = False    Sobj.Layers(2).visible = False    Sobj.Layers(3).visible = False    Sobj.Layers(4).visible = False    Sobj.Layers(5).visible = True    Sobj.Layers(6).visible = FalseElseif HMIRuntime.Tags("ColorNumber").Read  = 6 Then     Sobj.Layers(1).visible = False    Sobj.Layers(2).visible = False    Sobj.Layers(3).visible = False    Sobj.Layers(4).visible = False    Sobj.Layers(5).visible = False    Sobj.Layers(6).visible = True  Else    Sobj.Layers(1).visible = False    Sobj.Layers(2).visible = False    Sobj.Layers(3).visible = False    Sobj.Layers(4).visible = False    Sobj.Layers(5).visible = False    Sobj.Layers(6).visible = FalseEnd If

在使用随机按钮时,需要先创建项目函数MyRnd(min,max),此函数会出现一个随机函数,min代表随机数的下限,max为上限,产生的随机数为int型。

文章源于网络，版权归原作者所有，如有侵权请联系删除！

图片

图片


微信号｜13615417996


          山东凯芮思具备软件与单片机研发、生产的能力、集科研、设计、安装、销售于一体，西门子全系列，三菱全系列,欧姆龙等plc的可编程控制器、电气编程、物联网项目、远程控制、人机界面、工业物联网云平台等自动化产品的生产、销售，为用户提供优质产品与服务

  • 电话：136 1541 7996
  • 邮箱：307154310@QQ.com
  • 地址：山东省济南市长清区海棠路6999号建大合新广场5号楼601
扫码加微信
Copyright @ 2025 . All rights reserved. 山东凯芮思物联科技网站建设版权所有