PB中同時“繼承”多個用戶自定義數據窗口對象[3]

    //用中間層函數注冊對象數組和本數據窗口對象
　　Uf_Register ( Lgo_BaseDwObject[] THIS)
　　Return

　　 運行窗口W_TestInterlayer 單擊 DW_ 會依次彈出個消息框
　　在實際應用中 由於基本功能對象是被引用的而非繼承 所以基本功能對象腳本中的代詞THIS為空 為此

　　需要在基本功能對象中聲明一個實例變量 DataWindow Idw_THIS 

　　加一個注冊函數用來為實例變量Idw_THIS 賦值 函數名稱 Uf_RegisterDwo (DataWindow Adw_THIS)

　　函數內容
　　Idw_THIS = Adw_THIS
　　Return

　　對象中所有對數據窗口操作的函數前都必須加上 Idw_THIS 進行完全路徑的引用
　　因為這些基本功能對象被繼承過為了向前兼容 所以要在它們的Constructor 事件中寫入如下腳本

　　IF Not IsValid (Idw_This) THEN
　　　　Idw_This = THIS
　　END IF
　　Retrun

　　以便對實例變量Idw_THIS 自動賦值

[]  []  []  

From:http://tw.wingwit.com/Article/program/PB/201311/11113.html