Наследование

[drronnie]

Сделал класс Class1, унаследовал от него Class2, создал библиотеку, подключил к проекту на vb6. В классе Class2 нет методов унаследованных от Class 1. Такая же проблема описывается тут. Это особенность? Это можно обойти?

[MIT]

This doesn't look like inheritance any longer. Instead you implement methods (but then you don't, because you attempt to call the void definitions of the base classes).

I'm really learning here, so don't take anything for granted.

How to use inheritance in Visual Basic 2005 or in Visual Basic .NET
http://support.microsoft.com/kb/307222

[Денис]

This doesn't look like inheritance any longer. Instead you implement methods (but then you don't, because you attempt to call the void definitions of the base classes).

I'm really learning here, so don't take anything for granted.

How to use inheritance in Visual Basic 2005 or in Visual Basic .NET
http://support.microsoft.com/kb/307222

И это правильно, потому что в .NET произвели разделение между классом и интерфейсом.
drronnie
ты унаследовал класс, но не унаследовал интерфейс. Вот унаследуй-ка.

[drronnie]

Т.е. мне нужно создать интерфейс, от которого унаследовать Class1?

[drronnie]

Создал Интерфейс IClass
Унаследовал интерфейс IClass в классе Class1, унаследовал Class2 от Class1 - не работает, унаследовал интерфейс IClass в классе Class2 - то же самое.

[Денис]

надо интерфейсы объявлять. наследовать их не надо. объекты только реализуют к.-л. интерфейсы.
итого имеем:

1. Создал класс 1
2. Создал интерфейс1
3. Объявил интерфейс1
4. Объявил класс 1, реализующий интерфейс1
5. Унаследовал {класс2, реализующий интерфейс1} от класса1

[drronnie]

Вот так?

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

Public Interface Interface1
    Function Text() As String
End Interface

<Microsoft.VisualBasic.ComClass()> Public Class Class1
    Implements Interface1
    Public Function Text() As String Implements Interface1.Text
        Return "some text"
    End Function
End Class

<Microsoft.VisualBasic.ComClass()> Public Class Class2
    Inherits Class1
End Class


Пишет предупреждение:

Классу "Class2" назначен Microsoft.VisualBasic.ComClassAttribute, однако "Class2" не имеет открытых членов, которые могут быть использованы через COM, поэтому COM-интерфейсы не созданы.

[Денис]

Например так. Как один из десятка вариантов.

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

Public Interface Interface1
    Function Text() As String
End Interface

<Microsoft.VisualBasic.ComClass()> Public Class Class1
    Implements Interface1
    Public Function Text() As String Implements Interface1.Text
        Return "some text"
    End Function
End Class

<Microsoft.VisualBasic.ComClass()> Public Class Class2
    Inherits Class1
    Implements Interface1

    Public Overloads Function Text() As String
        Return "someelse text"
    End Function
End Class

[drronnie]

Денис, мне не нужно перегружать функцию.
Я хочу, чтобы при вызове Text у Class2 вызывалась функция Text из базового класса Class1.
Можно объявить функцию Text в Class2, а в теле вызывать Text от MyBase, но это не удобно.

[Денис]

но это не удобно.

Вообще, тут говорят, что я сегодня бред генерирую, так что извини, если что не так. Вот, смотри, разве неудобно.

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

Public Interface Interface1
    Function Text() As String
End Interface

<Microsoft.VisualBasic.ComClass()> Public Class Class1
    Implements Interface1
    Public Function Text() As String Implements Interface1.Text
        Return "some text"
    End Function
End Class

<Microsoft.VisualBasic.ComClass()> Public Class Class2
    Inherits Class1
    Implements Interface1

    Public Overloads Function Text() As String
        Return MyBase.Text
    End Function
End Class

[drronnie]

Ну в "хеллоу ворде" удобно, а если у меня от класса десяток других унаследовано, а потом в ходе разработки мне приспичит к функции Text в базовом классе аргумент приделать, придётся переписывать все остальные классы, а это чревато боком.
Кроме того, какой тогда смысл наследования?
И какой смысл интерфейса в этом коде. По-моему правильнее будет переопределить функцию Text в производном классе, т.е. написать так:

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

<Microsoft.VisualBasic.ComClass()> Public Class Class1
    Public Overridable Function Text() As String
        Return "some text"
    End Function
End Class

<Microsoft.VisualBasic.ComClass()> Public Class Class2
    Inherits Class1

    Public Overrides Function Text() As String
        Return MyBase.Text
    End Function
End Class

[Денис]

По-моему правильнее будет переопределить функцию Text в производном классе

Вот и отлично. Пусть так остается. Про интерфейсы забудь. У меня сегодня был тяжелый день. Уфф.

[drronnie]

Меня не устраивает такой подход.