.net实现链表类 winform表现

核心提示：XList.vbview plaincopy to clipboardPRint?' ' * Created by SharpDevelop. ' * User: fx ' * Date: 2009/11/08 ' * Time: 2009年11月8日14:15:43 '

XList.vb

view plaincopy to clipboardPRint?
'　 
' * Created by SharpDevelop.　 
' * User: fx　 
' * Date: 2009/11/08　 
' * Time: 2009年11月8日14:15:43　 
　
'　　
　
Imports System　 
Imports System.Collections.Generic　 
Imports System.Linq　 
Imports System.Text　 
　
'结点类　 
Public Class XListItem　 
　　Public Sub New()　 
　　　　data = ""　
　　　　[next] = Nothing　
　　End Sub　
　　Public Sub New(ByVal str As String)　 
　　　　data = str　 
　　　　[next] = Nothing　
　　End Sub　
　
　　Public [next] As XListItem　　　　　'类似于指针域　 
　　Public data As String　　　　　　　 '数值域　 
　
　　'也可以用如下的属性来表示data，　 
　　''Private _data As String　 
　
　　''Public Property Data() As String　 
　　''　　Get　 
　　''　　　　Return _data　 
　　''　　End Get　 
　　''　　Set(ByVal value As String)　 
　　''　　　　_data = value　 
　　''　　End Set　 
　　''End Property　 
End Class　
　
'链表类　 
Public Class XList　 
　　Dim firstNode As XListItem　　 '头结点　 
　　Dim lastNode As XListItem　　　 '尾结点　 
　　Dim curNode As XListItem　　　　'当前节点，类似游标　 
　　Public Sub New()　 
　　　　firstNode = InlineAssignHelper(lastNode, InlineAssignHelper(curNode, Nothing))　 
　　End Sub　
　
　　'**********************************************************************************************　 
　　'判断链表是否为空　 
　　'**********************************************************************************************　 
　　Public Function IsEmpty() As Boolean　
　　　　'Return firstNode Is Nothing　 
　　　　'如果头结点为空，即空链表　 
　　　　If firstNode Is Nothing Then　
　　　　　　Return True　
　　　　　　'如果不为空　 
　　　　Else　
　　　　　　Return False　
　　　　End If　
　　End Function　
　
　　'**********************************************************************************************　 
　　'清空链表　 
　　'**********************************************************************************************　 
　　Public Sub ClearLinklist()　 
　　　　firstNode = Nothing　
　　　　lastNode = Nothing　
　　　　curNode = Nothing　
　　End Sub　
　
　　'**********************************************************************************************　 
　　'插入结点　 
　　'**********************************************************************************************　 
　　Public Sub Insert(ByVal strInsert As String)　 
　　　　'如果链表为空链表，插入第一个结点时　 
　　　　If IsEmpty() Then　
　　　　　　lastNode = New XListItem(strInsert)　 
　　　　　　lastNode.[next] = Nothing　
　　　　　　firstNode = lastNode　 
　　　　　　Return　
　　　　End If　
　
　　　　'不为空链表　 
　　　　curNode = New XListItem(strInsert)　 
　　　　curNode.[next] = Nothing　
　
　　　　lastNode.[next] = curNode　 
　　　　lastNode = curNode　 
　　End Sub　
　
　　'**********************************************************************************************　 
　　'复杂插入　 
　　'引数：strInsert 插入的结点值；iLocator 要插入的结点的位置　 
　　'返回值：无　 
　　'**********************************************************************************************　 
　　Public Sub Insert(ByVal strInsert As String, ByVal iLocator As Integer)　 
　　　　'如果链表为空链表，　 
　　　　If IsEmpty() Then　
　　　　　　lastNode = New XListItem(strInsert)　 
　　　　　　lastNode.[next] = Nothing　
　　　　　　firstNode = lastNode　 
　　　　　　Return　
　　　　End If　
　
　　　　'不为空链表　 
　　　　Dim newNode As New XListItem(strInsert)　 
　　　　newNode.[next] = Nothing　
　
　　　　If firstNode.[next] Is Nothing Then　
　　　　　　firstNode.[next] = newNode　 
　　　　　　lastNode = newNode　 
　　　　　　Return　
　　　　End If　
　
　　　　Dim objNode As XListItem = GetNode(iLocator)　 
　　　　If objNode Is Nothing Then　
　　　　　　Insert(strInsert)　 
　　　　　　Return　
　　　　End If　
　
　　　　Dim tempNode As XListItem = objNode　 
　　　　Dim prevNode As XListItem = GetNode(iLocator - 1)　 
　　　　If prevNode Is lastNode Then　
　　　　　　Insert(strInsert)　 
　　　　　　Return　
　　　　End If　
　
　　　　If objNode Is firstNode Then　
　　　　　　newNode.[next] = firstNode　 
　　　　　　firstNode = newNode　 
　　　　　　Return　
　　　　End If　
　
　　　　objNode = Nothing　
　　　　objNode = newNode　 
　　　　objNode.[next] = tempNode　 
　　　　prevNode.[next] = objNode　 
　
　　End Sub　
　
　　'**********************************************************************************************　 
　　'获取结点个数　 
　　'引数：iNode　 
　　'返回值：XListItem 返回结点　 
　　'**********************************************************************************************　 
　　Public Function GetNode(ByVal iNode As Integer) As XListItem　 
　　　　If iNode < 0 Then　
　　　　　　iNode = 0　 
　　　　End If　
　
　　　　If IsEmpty() Then　
　　　　　　Return Nothing　
　　　　End If　
　
　　　　If 0 = iNode Then　
　　　　　　Return firstNode　 
　　　　End If　
　
　　　　Dim currentNode As XListItem = firstNode　 
　　　　For i As Integer = 0 To iNode - 1　 
　　　　　　If currentNode Is lastNode Then　
　　　　　　　　Return lastNode　 
　　　　　　End If　
　　　　　　currentNode = currentNode.[next]　 
　　　　Next　
　　　　Return currentNode　 
　　End Function　
　
　　'**********************************************************************************************　 
　　'显示链表　 
　　'引数：无　 
　　'返回值：无　 
　　'**********************************************************************************************　 
　　Public Sub Print()　 
　　　　If IsEmpty() Then　
　　　　　　Console.WriteLine("List is Empty")　 
　　　　　　Return　
　　　　End If　
　
　　　　Console.Write("The List is: ")　 
　
　　　　Dim current As XListItem = firstNode　 
　
　　　　'output current node data while not at end of list　 
　　　　While current IsNot Nothing　
　　　　　　Console.Write(current.data & "　")　 
　　　　　　current = current.[next]　 
　　　　End While　
　
　　　　Console.WriteLine(vbLf)　 
　　End Sub　
　
　　''**********************************************************************************************　 
　　''显示链表　 
　　''引数：无　 
　　''返回值：无　 
　　''**********************************************************************************************　 
　　Public Function PrintLinkList() As String　
　　　　Dim strResult As String = ""　
　
　　　　If IsEmpty() Then　
　　　　　　strResult = "链表为空"　
　　　　　　Return strResult　 
　　　　End If　
　
　　　　Dim current As XListItem = firstNode　 
　
　　　　'不是尾结点 继续输出　 
　　　　While Not current Is Nothing　
　　　　　　'Console.Write(current.data & "　")　 
　　　　　　strResult &= current.data & ","　
　　　　　　current = current.[next]　 
　　　　End While　
　
　　　　'去掉末尾的，　 
　　　　strResult = strResult.Substring(0, strResult.Length - 1)　 
　
　　　　Return strResult　 
　
　　End Function　
　
　　'**********************************************************************************************　 
　　'移除的链表的结点　 
　　'引数：strInsert 要移除的链表的结点值　 
　　'返回值：true or false　是否移除成功　 成功true 失败 false　 
　　'**********************************************************************************************　 
　　Public Function Remove(ByVal strInsert As String) As Boolean　
　　　　If IsEmpty() Then　
　　　　　　Return False　
　　　　End If　
　
　　　　If firstNode.data = strInsert Then　
　　　　　　firstNode = firstNode.[next]　 
　　　　　　Return True　
　　　　End If　
　
　　　　Dim curNodeF As XListItem = firstNode　 
　　　　curNode = curNodeF　 
　
　　　　If curNode Is Nothing Then　
　　　　　　Return False　
　　　　End If　
　
　　　　While True　
　　　　　　curNode = curNode.[next]　 
　　　　　　If curNode Is lastNode Then　
　　　　　　　　If curNode.data = strInsert Then　
　　　　　　　　　　curNode = Nothing　
　　　　　　　　　　lastNode = curNodeF　 
　　　　　　　　　　lastNode.[next] = Nothing　
　　　　　　　　　　Return True　
　　　　　　　　End If　
　　　　　　　　Return False　
　　　　　　End If　
　
　　　　　　If curNode.data = strInsert Then　
　
　　　　　　　　curNodeF.[next] = curNode.[next]　 
　　　　　　　　curNode = Nothing　
　　　　　　　　Return True　
　　　　　　End If　
　　　　　　curNodeF = curNodeF.[next]　 
　　　　End While　
　　End Function　
　
　　'**********************************************************************************************　 
　　'逆序显示链表　 
　　'引数：t 链表　 
　　'返回值：newList 逆序链表　 
　　'**********************************************************************************************　 
　　Public Function Revert(ByVal t As XListItem) As XListItem　 
　　　　Dim newList As XListItem = Nothing　
　　　　While t IsNot Nothing　
　　　　　　Dim temp As New XListItem()　 
　　　　　　temp.data = t.data　 
　　　　　　temp.[next] = newList　 
　
　　　　　　newList = temp　 
　　　　　　t = t.[next]　 
　　　　End While　
　　　　Return newList　 
　　End Function　
　
　　'**********************************************************************************************　 
　　'逆序显示链表　 
　　'引数：t 链表　 
　　'返回值：newList 逆序链表　 
　　'**********************************************************************************************　 
　　Public Function Revert() As XListItem　 
　　　　Dim newList As XListItem = Nothing　
　　　　While firstNode IsNot Nothing　
　　　　　　Dim temp As New XListItem()　 
　　　　　　temp.data = firstNode.data　 
　　　　　　temp.[next] = newList　 
　
　　　　　　newList = temp　 
　　　　　　firstNode = firstNode.[next]　 
　　　　End While　
　
　　　　firstNode = newList　 
　　　　Return newList　 
　　End Function　
　
　　Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T　 
　　　　target = value　 
　　　　Return value　 
　　End Function　
　
End Class　
　
'class EmptyListException definition　 
Public Class EmptyListException　 
　　Inherits applicationException　 
　　Public Sub New(ByVal name As String)　 
　　　　MyBase.New("The " & name & "is empty")　 
　　End Sub　
End Class　
'end class EmptyListException　
'
' * Created by SharpDevelop.
' * User: fx
' * Date: 2009/11/08
' * Time: 2009年11月8日14:15:43

'

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text

'结点类
Public Class XListItem
　　Public Sub New()
　　　　data = ""
　　　　[next] = Nothing
　　End Sub
　　Public Sub New(ByVal str As String)
　　　　data = str
　　　　[next] = Nothing
　　End Sub

　　Public [next] As XListItem　　　　　'类似于指针域
　　Public data As String　　　　　　　 '数值域

　　'也可以用如下的属性来表示data，
　　''Private _data As String

　　''Public Property Data() As String
　　''　　Get
　　''　　　　Return _data
　　''　　End Get
　　''　　Set(ByVal value As String)
　　''　　　　_data = value
　　''　　End Set
　　''End Property
End Class

'链表类
Public Class XList
　　Dim firstNode As XListItem　　 '头结点
　　Dim lastNode As XListItem　　　 '尾结点
　　Dim curNode As XListItem　　　　'当前节点，类似游标
　　Public Sub New()
　　　　firstNode = InlineAssignHelper(lastNode, InlineAssignHelper(curNode, Nothing))
　　End Sub

　　'**********************************************************************************************
　　'判断链表是否为空
　　'**********************************************************************************************
　　Public Function IsEmpty() As Boolean
　　　　'Return firstNode Is Nothing
　　　　'如果头结点为空，即空链表
　　　　If firstNode Is Nothing Then
　　　　　　Return True
　　　　　　'如果不为空
　　　　Else
　　　　　　Return False
　　　　End If
　　End Function

　　'**********************************************************************************************
　　'清空链表
　　'**********************************************************************************************
　　Public Sub ClearLinklist()
　　　　firstNode = Nothing
　　　　lastNode = Nothing
　　　　curNode = Nothing
　　End Sub

　　'**********************************************************************************************
　　'插入结点
　　'**********************************************************************************************
　　Public Sub Insert(ByVal strInsert As String)
　　　　'如果链表为空链表，插入第一个结点时
　　　　If IsEmpty() Then
　　　　　　lastNode = New XListItem(strInsert)
　　　　　　lastNode.[next] = Nothing
　　　　　　firstNode = lastNode
　　　　　　Return
　　　　End If

　　　　'不为空链表
　　　　curNode = New XListItem(strInsert)
　　　　curNode.[next] = Nothing

　　　　lastNode.[next] = curNode
　　　　lastNode = curNode
　　End Sub

　　'**********************************************************************************************
　　'复杂插入
　　'引数：strInsert 插入的结点值；iLocator 要插入的结点的位置
　　'返回值：无
　　'**********************************************************************************************
　　Public Sub Insert(ByVal strInsert As String, ByVal iLocator As Integer)
　　　　'如果链表为空链表，
　　　　If IsEmpty() Then
　　　　　　lastNode = New XListItem(strInsert)
　　　　　　lastNode.[next] = Nothing
　　　　　　firstNode = lastNode
　　　　　　Return
　　　　End If

　　　　'不为空链表
　　　　Dim newNode As New XListItem(strInsert)
　　　　newNode.[next] = Nothing

　　　　If firstNode.[next] Is Nothing Then
　　　　　　firstNode.[next] = newNode
　　　　　　lastNode = newNode
　　　　　　Return
　　　　End If

　　　　Dim objNode As XListItem = GetNode(iLocator)
　　　　If objNode Is Nothing Then
　　　　　　Insert(strInsert)
　　　　　　Return
　　　　End If

　　　　Dim tempNode As XListItem = objNode
　　　　Dim prevNode As XListItem = GetNode(iLocator - 1)
　　　　If prevNode Is lastNode Then
　　　　　　Insert(strInsert)
　　　　　　Return
　　　　End If

　　　　If objNode Is firstNode Then
　　　　　　newNode.[next] = firstNode
　　　　　　firstNode = newNode
　　　　　　Return
　　　　End If

　　　　objNode = Nothing
　　　　objNode = newNode
　　　　objNode.[next] = tempNode
　　　　prevNode.[next] = objNode

　　End Sub

　　'**********************************************************************************************
　　'获取结点个数
　　'引数：iNode
　　'返回值：XListItem 返回结点
　　'**********************************************************************************************
　　Public Function GetNode(ByVal iNode As Integer) As XListItem
　　　　If iNode < 0 Then
　　　　　　iNode = 0
　　　　End If

　　　　If IsEmpty() Then
　　　　　　Return Nothing
　　　　End If

　　　　If 0 = iNode Then
　　　　　　Return firstNode
　　　　End If

　　　　Dim currentNode As XListItem = firstNode
　　　　For i As Integer = 0 To iNode - 1
　　　　　　If currentNode Is lastNode Then
　　　　　　　　Return lastNode
　　　　　　End If
　　　　　　currentNode = currentNode.[next]
　　　　Next
　　　　Return currentNode
　　End Function

　　'**********************************************************************************************
　　'显示链表
　　'引数：无
　　'返回值：无
　　'**********************************************************************************************
　　Public Sub Print()
　　　　If IsEmpty() Then
　　　　　　Console.WriteLine("List is Empty")
　　　　　　Return
　　　　End If

　　　　Console.Write("The List is: ")

　　　　Dim current As XListItem = firstNode

　　　　'output current node data while not at end of list
　　　　While current IsNot Nothing
　　　　　　Console.Write(current.data & "　")
　　　　　　current = current.[next]
　　　　End While

　　　　Console.WriteLine(vbLf)
　　End Sub

　　''**********************************************************************************************
　　''显示链表
　　''引数：无
　　''返回值：无
　　''**********************************************************************************************
　　Public Function PrintLinkList() As String
　　　　Dim strResult As String = ""

　　　　If IsEmpty() Then
　　　　　　strResult = "链表为空"
　　　　　　Return strResult
　　　　End If

　　　　Dim current As XListItem = firstNode

　　　　'不是尾结点 继续输出
　　　　While Not current Is Nothing
　　　　　　'Console.Write(current.data & "　")
　　　　　　strResult &= current.data & ","
　　　　　　current = current.[next]
　　　　End While

　　　　'去掉末尾的，
　　　　strResult = strResult.Substring(0, strResult.Length - 1)

　　　　Return strResult

　　End Function

　　'**********************************************************************************************
　　'移除的链表的结点
　　'引数：strInsert 要移除的链表的结点值
　　'返回值：true or false　是否移除成功　 成功true 失败 false
　　'**********************************************************************************************
　　Public Function Remove(ByVal strInsert As String) As Boolean
　　　　If IsEmpty() Then
　　　　　　Return False
　　　　End If

　　　　If firstNode.data = strInsert Then
　　　　　　firstNode = firstNode.[next]
　　　　　　Return True
　　　　End If

　　　　Dim curNodeF As XListItem = firstNode
　　　　curNode = curNodeF

　　　　If curNode Is Nothing Then
　　　　　　Return False
　　　　End If

　　　　While True
　　　　　　curNode = curNode.[next]
　　　　　　If curNode Is lastNode Then
　　　　　　　　If curNode.data = strInsert Then
　　　　　　　　　　curNode = Nothing
　　　　　　　　　　lastNode = curNodeF
　　　　　　　　　　lastNode.[next] = Nothing
　　　　　　　　　　Return True
　　　　　　　　End If
　　　　　　　　Return False
　　　　　　End If

　　　　　　If curNode.data = strInsert Then

　　　　　　　　curNodeF.[next] = curNode.[next]
　　　　　　　　curNode = Nothing
　　　　　　　　Return True
　　　　　　End If
　　　　　　curNodeF = curNodeF.[next]
　　　　End While
　　End Function

　　'**********************************************************************************************
　　'逆序显示链表
　　'引数：t 链表
　　'返回值：newList 逆序链表
　　'**********************************************************************************************
　　Public Function Revert(ByVal t As XListItem) As XListItem
　　　　Dim newList As XListItem = Nothing
　　　　While t IsNot Nothing
　　　　　　Dim temp As New XListItem()
　　　　　　temp.data = t.data
　　　　　　temp.[next] = newList

　　　　　　newList = temp
　　　　　　t = t.[next]
　　　　End While
　　　　Return newList
　　End Function

　　'**********************************************************************************************
　　'逆序显示链表
　　'引数：t 链表
　　'返回值：newList 逆序链表
　　'**********************************************************************************************
　　Public Function Revert() As XListItem
　　　　Dim newList As XListItem = Nothing
　　　　While firstNode IsNot Nothing
　　　　　　Dim temp As New XListItem()
　　　　　　temp.data = firstNode.data
　　　　　　temp.[next] = newList

　　　　　　newList = temp
　　　　　　firstNode = firstNode.[next]
　　　　End While

　　　　firstNode = newList
　　　　Return newList
　　End Function

　　Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
　　　　target = value
　　　　Return value
　　End Function

End Class

'class EmptyListException definition
Public Class EmptyListException
　　Inherits ApplicationException
　　Public Sub New(ByVal name As String)
　　　　MyBase.New("The " & name & "is empty")
　　End Sub
End Class
'end class EmptyListException


Form1.vb

删除结点自己添加下吧

view plaincopy to clipboardprint?
Public Class Form1　 
　
　　Dim fxXlist As New XList　 
　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　 
　　　　'默认值第一个，显示链表　 
　　　　Me.combFxOptions.SelectedIndex = 0　 
　　End Sub　
　
　　Private Sub btnDo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDo.Click　 
　　　　Select Case Me.combFxOptions.SelectedIndex　 
　　　　　　'显示链表　 
　　　　　　'在链表头部插入结点　 
　　　　　　'在链表尾部插入结点　 
　　　　　　'在链表中插入结点（包括头尾）　 
　　　　　　'链表逆序显示s　 
　
　　　　　　'显示链表　 
　　　　　　Case 0　 
　　　　　　　　If Not fxXlist Is Nothing Then　
　　　　　　　　　　Me.txtFxCurLinklist.Text = fxXlist.PrintLinkList()　 
　　　　　　　　Else　
　　　　　　　　　　Me.txtFxCurLinklist.Text = "空链表"　
　　　　　　　　End If　
　　　　　　　　'在链表头部插入结点　 
　　　　　　Case 1　 
　　　　　　　　If Me.txtFxInsertValue.Text.Trim = String.Empty Then　
　　　　　　　　　　MessageBox.Show("要插入的结点不能为空！", "错误", _　 
　　　　　　　　　　　　　　　　　　MessageBoxButtons.OK, MessageBoxIcon.Warning)　 
　　　　　　　　　　Me.txtFxInsertValue.Focus()　 
　　　　　　　　Else　
　
　　　　　　　　　　fxXlist.Insert(Me.txtFxInsertValue.Text.Trim, 0)　 
　　　　　　　　　　MsgBox("插入成功！", MsgBoxStyle.Information, "提示")　 
　　　　　　　　　　Me.txtFxCurLinklist.Text = fxXlist.PrintLinkList()　 
　　　　　　　　　　Me.txtFxInsertValue.SelectAll()　 
　　　　　　　　　　Me.txtFxInsertValue.Focus()　 
　　　　　　　　End If　
　
　　　　　　　　'在链表尾部插入结点　 
　　　　　　Case 2　 
　　　　　　　　If Me.txtFxInsertValue.Text.Trim = String.Empty Then　
　　　　　　　　　　MessageBox.Show("要插入的结点不能为空！", "错误", _　 
　　　　　　　　　　　　　　　　　　MessageBoxButtons.OK, MessageBoxIcon.Warning)　 
　　　　　　　　　　Me.txtFxInsertValue.Focus()　 
　　　　　　　　Else　
　
　　　　　　　　　　fxXlist.Insert(Me.txtFxInsertValue.Text.Trim)　 
　　　　　　　　　　MsgBox("插入成功！", MsgBoxStyle.Information, "提示")　 
　　　　　　　　　　Me.txtFxCurLinklist.Text = fxXlist.PrintLinkList()　 
　　　　　　　　　　Me.txtFxInsertValue.SelectAll()　 
　　　　　　　　　　Me.txtFxInsertValue.Focus()　 
　　　　　　　　End If　
　
　　　　　　　　'在链表中插入结点（包括头尾）　 
　　　　　　Case 3　 
　　　　　　　　If Me.txtFxInsertValue.Text.Trim = String.Empty Then　
　　　　　　　　　　MessageBox.Show("要插入的结点不能为空！", "错误", _　 
　　　　　　　　　　　　　　　　　　MessageBoxButtons.OK, MessageBoxIcon.Warning)　 
　　　　　　　　　　Me.txtFxInsertValue.Focus()　 
　　　　　　　　ElseIf Me.txtFxLocation.Text.Trim = String.Empty Then　
　　　　　　　　　　MessageBox.Show("要插入的位置不能为空！", "错误", _　 
　　　　　　　　　　　　　　　　　 MessageBoxButtons.OK, MessageBoxIcon.Warning)　 
　　　　　　　　　　Me.txtFxLocation.Focus()　 
　　　　　　　　ElseIf IsNumeric(Me.txtFxLocation.Text) = False Then　
　　　　　　　　　　MessageBox.Show("要插入的位置必须为数字！", "错误", _　 
　　　　　　　　　　　　　　　　　MessageBoxButtons.OK, MessageBoxIcon.Warning)　 
　　　　　　　　　　Me.txtFxLocation.Focus()　 
　　　　　　　　Else　
　
　　　　　　　　　　fxXlist.Insert(Me.txtFxInsertValue.Text.Trim, Me.txtFxLocation.Text.Trim)　 
　　　　　　　　　　MsgBox("插入成功！", MsgBoxStyle.Information, "提示")　 
　　　　　　　　　　Me.txtFxCurLinklist.Text = fxXlist.PrintLinkList()　 
　　　　　　　　　　Me.txtFxInsertValue.SelectAll()　 
　　　　　　　　　　Me.txtFxInsertValue.Focus()　 
　　　　　　　　End If　
　
　　　　　　　　'链表逆序显示　 
　　　　　　Case 4　 
　　　　　　　　fxXlist.Revert()　 
　　　　　　　　Me.txtFxCurLinklist.Text = fxXlist.PrintLinkList()　 
　
　　　　　　Case 5　 
　
　　　　　　Case 6　 
　
　　　　　　Case Else　
　　　　End Select　
　　End Sub　
　
　　Private Sub btnClearLinklist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearLinklist.Click　 
　　　　Me.fxXlist.ClearLinklist()　 
　　　　Me.txtFxCurLinklist.Text = "空链表"　
　
　　　　Me.txtFxInsertValue.Text = ""　
　　　　Me.txtFxLocation.Text = ""　
　　　　Me.combFxOptions.SelectedIndex = 0　 
　　End Sub　
End Class