Public Class Parser >> Public Delegate Function RWTCDelegate() As Boolean >> Public Handler As RWTCDelegate >> >> Public Function ParseForTable() As Boolean >> Return ReplaceWithThisContent() >> End Function >> Public Overridable Function ReplaceWithThisContent() As Boolean >> If Not Handler Is Nothing Then >> Return Handler() >> Else >> Return True >> End If >> End Function >>End Class >> >> >>Public Class ClassThatOverridesAParserMethod >> Public Function GetPage() As Boolean >> Dim loParser As Parser = New Parser() >> loParser.Handler = AddressOf RWTCOverride >> Return loParser.ParseForTable() >> End Function >> >> Function RWTCOverride() As Boolean >> Return False >> End Function >>End Classbut I still don't know why you don't just instantiate a derived Parser class that has the required method behaviour.....
Public Class ClassThatOverridesAParserMethod Dim loParser As Parser Public Function GetPage() As Boolean loParser = New Parser() loParser.Handler = AddressOf RWTCOverride Return loParser.ParseForTable() End Function Function RWTCOverride() As Boolean 'Access the Parser e.g: Dim s As String = loParser.SomeItem Return False End Function End Class>