很久没有发表文章，今天给大家介绍哈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