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

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

6666还不错。。感谢分享，但是觉得缺少点什么。。。如果多个窗口共用模板的话，是不是得先获取窗口的Visible属性，如果为假的话才执行if里面的语句。。

为啥呢？？？？？？？？？？？？

 请问你的脚本是在哪里写啊

 看到你的分享，受到启发，用VB也做出来了

很棒的分享，一样的功能不同的方法！

 感谢分享，获益匪浅