Примеры реализации интерфейсов в Visual Basic

Обновлен: Ноябрь 2007

Необходимо, чтобы классы, реализующие интерфейс, реализовывали и все его свойства, методы и события.

В следующем примере определяются два интерфейса. Второй интерфейс, Interface2, наследует Interface1 и определяет дополнительное свойство и метод.

Interface Interface1
    Sub sub1(ByVal i As Integer)
End Interface

' Demonstrates interface inheritance.
Interface Interface2
    Inherits Interface1
    Sub M1(ByVal y As Integer)
    ReadOnly Property Num() As Integer
End Interface

В следующем примере реализуется интерфейс Interface1, определенный в предыдущем примере:

Public Class ImplementationClass1
    Implements Interface1
    Sub Sub1(ByVal i As Integer) Implements Interface1.sub1
        ' Insert code here to implement this method.
    End Sub
End Class

В последнем примере реализуется Interface2, включающий метод, унаследованный от Interface1:

Public Class ImplementationClass2
    Implements Interface2
    Dim INum As Integer = 0
    Sub sub1(ByVal i As Integer) Implements Interface2.sub1
        ' Insert code here that implements this method.
    End Sub
    Sub M1(ByVal x As Integer) Implements Interface2.M1
        ' Insert code here to implement this method.
    End Sub

    ReadOnly Property Num() As Integer Implements _
       Interface2.Num
        Get
            Num = INum
        End Get
    End Property
End Class

См. также

Задачи

Практическое руководство. Создание и реализация интерфейсов

Пошаговое руководство. Создание и реализация интерфейсов

Основные понятия

Общие сведения об интерфейсах

Определение интерфейса

Зарезервированное слово Implements и оператор Implements

Употребление интерфейсов

Ссылки

Оператор Interface (Visual Basic)

Оператор Implements