「VB.NET」複数のインターフェースを実装するクラスのサンプル

書式
1.public class クラス名
Implements インターフェース1,インターフェース2
2.Public Function メソッド名() Implements インターフェース1.メソッド名

使用例

'インターフェースInterfAの定義
Public Interface InterfA
    Function FuncA()
End Interface

'インターフェースInterfBの定義
Public Interface InterfB
    Function FuncB()
End Interface

'複数のインターフェースを実装
Public Class Sample
    Implements InterfA, InterfB

    'インターフェースAのメソッドを実装
    Public Function FuncA() Implements InterfA.FuncA
        Return "インターフェースAのメソッドfuncAの実装 Message Abc"
    End Function

    'インターフェースBのメソッドを実装
    Public Function FuncB() Implements InterfB.FuncB
        Return "インターフェースAのメソッドfuncBの実装 Message Def"
    End Function
End Class

Module Module1

    Sub Main()
        'クラスのインスタンス生成
        Dim cft As New Sample()
        '実装クラスのメソッドを呼び出す
        Console.WriteLine(cft.FuncA())
        '実装クラスのメソッドを呼び出す
        Console.WriteLine(cft.FuncB())

        Console.ReadKey()
    End Sub

End Module

実行結果
インターフェースAのメソッドfuncAの実装 Message Abc
インターフェースAのメソッドfuncBの実装 Message Def

VB.net

Posted by arkgame