LotusScript类的继承

最近在修改产品时，时常遇到需要修改一个自定义类的方法，但是这个类又不能给整个（代码保密），这时如何调试就变得很麻烦了。下面通过类的继承就可以很方便的解决这个问题了。

 

Option Public

Class TestClass1
　　Public Function fun1

　　　　MsgBox "TestClass1  fun1"

　　End Function

　　Public Function fun2

　　　　MsgBox "TestClass1 fun2"

　　End Function

End Class
 

Class TestClass2 As TestClass1

　　Public Function fun1

　　　　MsgBox "TestClass2   fun1"

　　End Function 

End Class

 

Sub Initialize

Dim t1 As New TestClass1

Dim t2 As New TestClass2

 

Call t1.fun1()                                        'print TestClass1  fun1

Call t2.fun1()                                        'print TestClass2  fun1

Call t1.fun2()                                        'print TestClass1  fun2

Call t2.fun2()                                        'print TestClass1  fun2

End Sub