「VB.NET」複数のインターフェース(interface)を実装する

2014年10月1日2021年10月6日

書式

Public Class クラス名
        Implements インターフェース1, インターフェース2
            Public Function メソッド名　As Object Implements インターフェース1.メソッド名
            処理コード
            End Function
           Public Function メソッド名　As Object Implements インターフェース2.メソッド名
             処理コード 
           End Function
End class

使用例

Module Module1
    'インターフェース1の定義
    Public Interface UserItA
        '抽象メソッド
        Function getName()
    End Interface

    'インターフェース2の定義
    Public Interface UserItB
        '抽象メソッド
        Function getAddr()
    End Interface

    'インターフェースUserItAとUserItBの実装
    Public Class UserM
        Implements UserItA, UserItB

        '抽象メソッドgetNameをオーバーライド
        Public Function getName() As Object Implements UserItA.getName
            Return "名前:テスト太郎"
        End Function

        '抽象メソッドgetAddrをオーバーライド
        Public Function getAddr() As Object Implements UserItB.getAddr
            Return "出身:東京"
        End Function
    End Class
    Sub Main()

        'インスタンスを生成
        Dim usrA As New UserM()

        'String型変数の宣言
        Dim res As String
        'クラスのメソッドを呼び出す
        res = usrA.getName
        Console.WriteLine(res)

        'String型変数の宣言
        Dim res2 As String
        'クラスのメソッドを呼び出す
        res2 = usrA.getAddr
        Console.WriteLine(res2)

        Console.ReadKey()
    End Sub

End Module

実行結果
名前:テスト太郎
出身:東京