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

2021年10月6日

書式
1.インターフェースの定義

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Public Interface インターフェース名
'抽象メソッド
Function メソッド名()
End Interface
Public Interface インターフェース名 '抽象メソッド Function メソッド名() End Interface
Public Interface インターフェース名
    '抽象メソッド
    Function メソッド名()
End Interface

2.インターフェースの実装

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Public Class クラス名
Implements インターフェース名
Public Function メソッド名 As Object Implements インターフェース名.メソッド名
処理コード
End Function
End Class
Public Class クラス名 Implements インターフェース名 Public Function メソッド名 As Object Implements インターフェース名.メソッド名 処理コード End Function End Class
 Public Class クラス名
        Implements インターフェース名
      Public Function メソッド名 As Object Implements インターフェース名.メソッド名
      処理コード
       End Function
End Class

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
'インターフェースの定義
Public Interface UserIt
'抽象メソッド
Function getName()
End Interface
'インターフェースの実装
Public Class UserM
Implements UserIt
'抽象メソッドをオーバーライド
Public Function getName() As Object Implements UserIt.getName
Return "テスト太郎"
End Function
End Class
Sub Main()
'インスタンスを生成
Dim usrA As New UserM()
'String型変数の宣言
Dim res As String
'クラスのメソッドを呼び出す
res = usrA.getName
Console.WriteLine("結果: " + res)
Console.ReadKey()
End Sub
End Module
Module Module1 'インターフェースの定義 Public Interface UserIt '抽象メソッド Function getName() End Interface 'インターフェースの実装 Public Class UserM Implements UserIt '抽象メソッドをオーバーライド Public Function getName() As Object Implements UserIt.getName Return "テスト太郎" End Function End Class Sub Main() 'インスタンスを生成 Dim usrA As New UserM() 'String型変数の宣言 Dim res As String 'クラスのメソッドを呼び出す res = usrA.getName Console.WriteLine("結果: " + res) Console.ReadKey() End Sub End Module
Module Module1
    'インターフェースの定義
    Public Interface UserIt
        '抽象メソッド
        Function getName()
    End Interface

    'インターフェースの実装
    Public Class UserM
        Implements UserIt

        '抽象メソッドをオーバーライド
        Public Function getName() As Object Implements UserIt.getName
            Return "テスト太郎"
        End Function
    End Class
    Sub Main()

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

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

        Console.WriteLine("結果: " + res)


        Console.ReadKey()
    End Sub

End Module

実行結果
結果: テスト太郎

VB.net

Posted by arkgame