Code:
'''Insert in to a node Private Sub InsertNode() Do While Not UCase(sItem) = "END" i = i + 1 sItem = InputBox("Enter the Item(Type 'End' to Finish)", , "Item" & i) sItem = Trim(sItem) If Head Is Nothing Then Set temp = New LinkList temp.Item = sItem Set Head = temp Set First = Head Else Set temp = New LinkList temp.Item = sItem Set Head.pNext = temp Set Head = temp End If If UCase(sItem) = "END" Then Set Head.pNext = Nothing End If Loop Call DisPlayNode End Sub '''''''--------------------------------------------------- 'Delete a Particular Node Private Sub DeleteNode() Dim sDelStr As String Dim d As LinkList Dim holdPrev As LinkList 'Hold Previous location while deleting Set temp = Nothing Set p = Nothing Set holPrev = Nothing Set d = First If d Is Nothing Then ' Text1.Text = "No Items In the List ' ! Insert Something 'before Delete !" Debug.print "No Items In the List" Exit Sub End If sDelStr = InputBox("Enter the Item Name to Delete") sDelStr = UCase(Trim(sDelStr)) Do While Not d Is Head If UCase(d.Item) = sDel Then If holPrev Is Nothing Then Set First = d.pNext Call cmdPrint_Click Exit Sub End If Set d = holPrev Set d.pNext = temp.pNext Call DisPlayNode Exit Sub Else Set holPrev = d Set temp = d.pNext Set d = d.pNext End If Loop Set p = Nothing End Sub ''''''------------------------------------- 'Display all Nodes in the list Private Sub DisPlayNode() Dim p As LinkList Set p = First If p Is Nothing Then debug.print= "" Debug.Pring = "No Items in the List" Exit Sub End If Do While Not p Is Head 'Text1.Text = Text1.Text & p.Item & "--->" Debug.Print p.Item & "--->" Set p = p.pNext Loop Set p = Nothing End Sub ''''----------------------- ''''' Cleanup all allocated memory Private sub free() Set temp = Nothing Set Head = Nothing Set First = Nothing Set holdPrev = Nothing end sub