Обратится к наследнику из класса MustInherits

[Sebas]

Собственно, как получить ссылку на наследующий класс из моего класса?

[Sebas]

Что то кажется в сторону Protected....

[Viper]

Что-то не приходит в голову ничего позволяющего сделать такое обращение. Может быть после уточнения того зачем такое понадобилось появяться какие-либо мысли?

[ANDLL]

А можно, подробнее , что надо?
Просто обратится?

Код: Выделить всё

MustInherit Class c2
    Sub s1()
        If TypeOf Me Is c1 Then
            CType(Me, c1).s2()
        End If
    End Sub
End Class
Class c1
    Inherits c2
    Sub s2()
        MsgBox("A")
    End Sub
End Class

[Sebas]

ANDLL

я не знаю тип с1 в базовом классе

Нужно реализовать базовый функционал использующий методы наследника. Мою ситуацию сложно объяснить.

Например, если работать с архивами разных видов, то Zipclass и RARclass наследуются от ArchiveClass, который имеет несколько методов реализующих базовый фунционал, в которых вызывается наследующий класс.

[Viper]

Т.е. надо вызвать методы наследника? Если эти методы объявлены в базовом классе, нон не реализованы, то просто, а если базовый класс понятия не имеет об этих методах, то ситуация получается типа "поди туда не знаю куда, сделай то, не знаю что"

[Sebas]

ну, естественно, вызывает методы MustInherits

[Viper]

Оно?

Код: Выделить всё

Public MustInherit Class BaseClass
    Public Sub Method1()
        Method2()
    End Sub
    Public MustOverride Sub Method2()
End Class
Public Class Child1 : Inherits BaseClass
    Public Overrides Sub Method2()
        Debug.Print("Implements by Child1")
    End Sub
End Class
Public Class Child2 : Inherits BaseClass
    Public Overrides Sub Method2()
        Debug.Print("Implements by Child2")
    End Sub
End Class


Sub Main()
        Dim c1 As New Child1
        c1.Method1()
        Dim c2 As New Child2
        c2.Method1()
End Sub

подозреваю что нет...

[Sebas]

точняк, то что надо! Как я сам не догадался)

Спасибо!

[Viper]

вот те раз... Sebas низачот!