[VB.NET]メソッドのオーバーロードを使用するサンプル

書式
Public Function funcA(ByVal x As Integer)
Public Function funcA(ByVal x As String, ByVal y As Integer)

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
'クラスSampleの定義
Public Class Sample
'メソッドfuncA 引数の型がInteger
Public Function funcA(ByVal x As Integer)
Return CStr(x)
End Function
'メソットfuncA 引数の型がString Integer メソッドのオーバーロード
Public Function funcA(ByVal x As String, ByVal y As Integer)
Return x + CStr(y)
End Function
End Class
Module Module1
Sub Main()
'クラスSampeオブジェクトの変数名
Dim cft As New Sample
'引数1つを持つfuncA関数を呼び出す
Console.WriteLine(cft.funcA(110))
'引数2つを持つfuncA関数を呼び出す
Console.WriteLine(cft.funcA("value: ", 110))
Console.ReadKey()
End Sub
End Module
'クラスSampleの定義 Public Class Sample 'メソッドfuncA 引数の型がInteger Public Function funcA(ByVal x As Integer) Return CStr(x) End Function 'メソットfuncA 引数の型がString Integer メソッドのオーバーロード Public Function funcA(ByVal x As String, ByVal y As Integer) Return x + CStr(y) End Function End Class Module Module1 Sub Main() 'クラスSampeオブジェクトの変数名 Dim cft As New Sample '引数1つを持つfuncA関数を呼び出す Console.WriteLine(cft.funcA(110)) '引数2つを持つfuncA関数を呼び出す Console.WriteLine(cft.funcA("value: ", 110)) Console.ReadKey() End Sub End Module
'クラスSampleの定義
Public Class Sample

    'メソッドfuncA 引数の型がInteger
    Public Function funcA(ByVal x As Integer)
        Return CStr(x)
    End Function

    'メソットfuncA 引数の型がString Integer メソッドのオーバーロード
    Public Function funcA(ByVal x As String, ByVal y As Integer)
        Return x + CStr(y)
    End Function

End Class

Module Module1
    Sub Main()

        'クラスSampeオブジェクトの変数名
        Dim cft As New Sample

        '引数1つを持つfuncA関数を呼び出す
        Console.WriteLine(cft.funcA(110))

        '引数2つを持つfuncA関数を呼び出す
        Console.WriteLine(cft.funcA("value: ", 110))

        Console.ReadKey()
    End Sub
End Module

結果
110
value: 110

VB.net

Posted by arkgame