Пример из почтового ящика:
--------------------------
Class CSEvent
Sub New (nEventType As Integer, note As notesdocument)
'...
End Sub
End Class
Class CSEventNotes As CSEvent
Sub New (nEventType As Integer, note As notesdocument, source As notesuidocument), CSEvent( nEventType, note)
'...
End Sub
End Class
--------------------------
Намного привлекательней всё это становится, если ещё и менять типы параметров, - это можно сделать через Variant:
--------------------------
Class CBaseParent
Sub New(OBJ As Variant, pS As String)
End Sub
End Class
Class CChildeND As CBaseParent
Sub New(ND As NotesDocument, pS As String), CBaseParent(OBJ, pS)
End Sub
End Class
Class CChildeNDB As CBaseParent
Sub New(NDB As NotesDatabase, pS As String), CBaseParent(OBJ, pS)
End Sub
