在 Visual Basic 中的介面實作範例

更新：2007 年 11 月

實作介面的類別必須實作介面所有的屬性 (Property)、方法和事件。

以下範例定義兩介面。第二個介面 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

請參閱

工作

HOW TO：建立和實作介面

逐步解說：建立和實作介面

概念

介面概觀

介面定義

Implements 關鍵字和 Implements 陳述式

何時使用介面

參考

Interface 陳述式 (Visual Basic)

Implements 陳述式