Home » VB.Net » VB.Net Programs

VB.Net program to delete the given node from the singly linked list

By Nidhi Last Updated : November 11, 2024

Delete a node from singly linked list in VB.Net

Here, we will delete a given node from the singly linked list and then print the items of the list after deleting the items.

Program/Source Code:

The source code to delete the given node from the singly linked list is given below. The given program is compiled and executed successfully.

VB.Net code to delete the given node from the singly linked list

'VB.Net program to delete the given node from 
'the singly linked list.

Imports System

Module Module1
    Class ListNode
        Private item As Integer
        Private link As ListNode

        Public Sub New(ByVal value As Integer)
            item = value
            link = Nothing
        End Sub
        Public Function AddItem(ByVal value As Integer) As ListNode
            Dim node As New ListNode(value)
            If IsNothing(link) Then
                node.link = Nothing
                link = node
            Else
                Dim temp As ListNode
                temp = link
                node.link = temp
                link = node
            End If
            Return node
        End Function

        Public Sub ListTraverse()
            Dim node As ListNode
            node = Me
            While IsNothing(node) = False
                Console.WriteLine("-->" & node.item)
                node = node.link
            End While
        End Sub

        Public Sub DeleteNode(ByVal given As ListNode)
            Dim node As ListNode
            node = Me
            While IsNothing(node) = False
                If node.link.Equals(given) Then
                    node.link = given.link
                    GoTo ExitLabel
                End If
                node = node.link
            End While
ExitLabel:
        End Sub
    End Class

    Sub Main()
        Dim StartNode As New ListNode(101)

        Dim n1 As ListNode
        Dim n2 As ListNode
        Dim n3 As ListNode
        Dim n4 As ListNode

        n1 = StartNode.AddItem(102)
        n2 = n1.AddItem(103)
        n3 = n2.AddItem(104)
        n4 = n3.AddItem(105)

        Console.WriteLine("Linked list before deletion:")
        StartNode.ListTraverse()

        StartNode.DeleteNode(n2)
        Console.WriteLine("Linked list after deletion:")
        StartNode.ListTraverse()
    End Sub
End Module

Output

Linked list before deletion:
-->101
-->102
-->103
-->104
-->105
Linked list after deletion:
-->101
-->102
-->104
-->105
Press any key to continue . . .

Explanation

In the above program, we created a module Module1 that contains the ListNode class and Main() function.

The ListNode class contains a constructor, AddItem(), ListTraverse(), and DeleteNode() method.

The constructor is used to initialized the singly linked list, The AddItem() method is used to add an item into the list, ListTraverse() method is used to traverse the list from start to end and DeleteNode() method is used to delete the specified node from the list.

The Main() function is the entry point for the program, Here, we created the singly linked list and add items to the list and then delete the specified node and print the list on the console screen.

VB.Net Data Structure Programs »

---