WinCC自定义对象及弹出面板如何制作

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

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

该例子你可以学习：

WINCC自定义对象

弹出面板制作

脚本系统

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

如何快速组态

脚本代码

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