作者 | 主题 |
---|---|
柳叶飘飘 侠圣 经验值:2568 发帖数:97 精华帖:7 |
楼主 2020-03-06 12:42:14
主题: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 原创作品 QQ:275578306 欢迎交流学习
努力赚钱 养家糊口
|