Mega Code Archive

 

Categories / VB.Net / Data Structure

 

Build your own linked list

Imports System Imports System.Collections Public Class MainClass   Shared Sub Main()     Dim fooaLinkedList As New LinkedList("A")     Dim aLink As Link     aLink = fooaLinkedList.MakeLink(fooaLinkedList.GetFirstLink, "B")     aLink = fooaLinkedList.MakeLink(aLink, "C")     Console.WriteLine(fooaLinkedList.GetFirstLink.MyData)     aLink = fooaLinkedList.GetNextLink(fooaLinkedList.GetFirstLink)     Console.WriteLine(aLink.MyData)     Console.WriteLine(aLink.NextLink.MyData)   End Sub End Class   Public Class LinkedList     Private m_CurrentLink As Link     Private m_FirstLink As Link     Sub New(ByVal theData As String)       m_CurrentLink = New Link(theData)       m_FirstLink = m_CurrentLink     End Sub          Public Function MakeLink(ByVal currentLink As Link, ByVal theData As String) As Link       m_CurrentLink = New Link(currentLink, theData)       Return m_CurrentLink     End Function     Public ReadOnly Property GetNextLink(ByVal aLink As Link) As Link       Get         Return aLink.NextLink()       End Get     End Property     Public ReadOnly Property GetCurrentLink() As Link       Get         Return m_CurrentLink       End Get     End Property     Public ReadOnly Property GetFirstLink() As Link       Get         Return m_FirstLink       End Get     End Property   End Class   Public Class Link       Private m_MyData As String       Private m_NextLink As Link       Friend Sub New(ByVal myParent As Link, ByVal theData As String)         m_MyData = theData         myParent.m_NextLink = Me       End Sub       Friend Sub New(ByVal theData As String)         m_MyData = theData       End Sub       Friend ReadOnly Property MyData() As String         Get           Return m_MyData         End Get       End Property       Friend ReadOnly Property NextLink() As Link         Get           Return m_NextLink         End Get       End Property   End Class