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 自动赋值

[] [] []