3、新建display,名為:MainPic 在MainPic中加入如下程式碼: Dim AllDisplays As Displays Dim VBA_Codes As Display Private Sub Display_AnimationStart() Set AllDisplays = LoadedDisplays Set VBA_Codes = AllDisplays.Item("VBA_Codes") End Sub 到此為止,大功告成,在MainPic中即可引用(呼叫)VBA_Codes中的子程式,呼叫方法為: VBA_Codes.Hello_World
FactoryTalk View SE(以下簡稱FTV)中不支援全域性指令碼,這造成了很大麻煩,相同的子程式必須在每個display中都寫一遍,下面給大家介紹一種實現全域性指令碼功能的變通方法。 這種方法的思路是:將公用的指令碼儲存在一個display中,在FTV客戶端的啟動宏中將這個display在後臺載入,其他的display可透過這個後臺的display引用其中的公用子程式,具體步驟如下:
1、新建一個display,命名為VBA_Codes,在其中定義子程式如下: public sub hello_world() msgbox "hello,world!" end sub
2、新建一個啟動宏,名為:startup,在其中加入下面的程式碼: display VBA_Codes /B /ZA
3、新建display,名為:MainPic 在MainPic中加入如下程式碼: Dim AllDisplays As Displays Dim VBA_Codes As Display Private Sub Display_AnimationStart() Set AllDisplays = LoadedDisplays Set VBA_Codes = AllDisplays.Item("VBA_Codes") End Sub 到此為止,大功告成,在MainPic中即可引用(呼叫)VBA_Codes中的子程式,呼叫方法為: VBA_Codes.Hello_World