• Home
 · 
• Miscellaneous
 · 
• How to implement method overloading in VB.NET

How to implement method overloading in VB.NET

How to implement method overloading in VB.NET

API Declarations



CLine class contains GetWord method in three 3 type of implementions.





Rate How to implement method overloading in VB.NET

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Module General
    
    Public Sub Main()
        
        Dim aLine As New CLine()
        
        With aLine
            
            .Line = "Digital Publishing Solutions Koregoan Park Pune"
            System.Console.WriteLine(.Length)
            System.Console.WriteLine(.GetWord())
            System.Console.WriteLine(.GetWord(5))
            System.Console.WriteLine(.GetWord("lishing"))
            
        End With
        
        aLine = Nothing
        
    End Sub
    
End Module

'Paste the following code in CLine class. here u will have to create class as name CLine

Public Class CLine
    
    Private m_sLine As String
    Private m_lLength As Long
    
    Public Property Line() As String
        
        Get
            Return m_sLine
        End Get
        
        Set
            m_sLine = Value
        End Set
    End Property
    
    ReadOnly Property Length() As Long
        
        Get
            Return Microsoft.VisualBasic.Len(m_sLine)
        End Get
        
    End Property
            
    Public Overloads Function GetWord() As String
        Dim astrWords() As String
        
        astrWords = m_sLine.Split(" ".ToCharArray())
        
        Return (astrWords(0))
        
    End Function
    
    Public Overloads Function GetWord(ByVal Position As Integer) As String
        Dim astrWords() As String
        
        astrWords = m_sLine.Split(" ".ToCharArray())
        
        If Position > astrWords.Length Then
            Return ("")
            
        Else
            Return (astrWords(Position - 1))
        End If
        
    End Function
    Public Overloads Function GetWord(ByVal Search As String) As String
        Dim astrWords() As String
        Dim intLoop As Integer
        
        astrWords = m_sLine.Split(" ".ToCharArray())
        
        For intLoop = 0 To astrWords.Length - 1
            If astrWords(intLoop).IndexOf(Search) > -1 Then
                Exit For
            End If
        Next
        If intLoop < astrWords.Length Then
            Return (astrWords(intLoop))
        End If
    End Function
    
End Class