很久沒有發表文章，今天給大家介紹哈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