wincc 自定义对象 弹出面板 原创

已锁定

柳叶飘飘

  • 帖子

    95
  • 精华

    7
  • 被关注

    176

论坛等级:侠圣

注册时间:2016-12-08

钻石 钻石 如何晋级?

wincc 自定义对象 弹出面板 原创

7770

6

2020-03-06 12:42:14

star star

很久没有发表文章,今天给大家介绍哈WINCC自定义对象 及弹出面板怎么制作的。

WINCC的自定义对象,可对该对象定义很多的参数,这个例子实现的是在该对象设置对应参数后 弹出面板就能根据该参数弹出画面的弹出位置,弹出窗口大小等进行设定。在组态时你只需要复制对象修改参数其他你什么都不用去管。运行后点击对象就弹出该对象的面板(公用面板)。非常的方便。大大提高你的组态速度同时也避免了出错。

该例子 你可以学习

  1. WINCC自定义对象

  2. 弹出面板制作

  3. 脚本系统

  4. 对象和弹出面板之间如何访问

  5. 如何快速组态


网上我发现了我别的文章被转载了没有注明出处,转载请注明出处。


脚本代码

Sub OnClick(Byval Item)                                                        

'Dim Parent_SCR 

Dim op_name 

Dim op_Title

'获取父对象画面名称

'Parent_SCR=item.Parent.ObjectName  

'MsgBOX  Parent_SCR

'op_name.Visible=false


'获取弹出面板的名称

Set op_name= ScreenItems(item.op_name)


'设置弹出面板的位置

OP_name.Left=item.OP_LEFT

OP_name.Top=item.OP_TOP


'窗口显示大小

op_name.Width=item.OP_W

op_name.Height=item.OP_H


'替换变量前缀

op_name.TagPrefix=item.first_name


'弹出窗口的加载画面的名字(公用面板)

op_name.ScreenName=item.firm_name


'弹出窗口的名字

op_name.CaptionText=item.Title_name

'写入内存变量标题名

'Dim Title1

'Set Title1 = HMIRuntime.Tags("V101Title1")

'Title1.Read

'Title1.Write item.Title_name

'MsgBOX Title1.Read

'显示窗口

op_name.Visible=True



End Sub



脚本代码

Function Text_Trigger(ByVal Item)

ITEM.TEXT=item.Parent.Parent.CaptionText

End Function



原创作品 QQ:275578306 欢迎交流学习

wincc 自定义对象 弹出面板 原创 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC OA (原PVSS)

共有342条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。