visual basic 2010 broncode voorbeelden

Option Strict On

Imports System.Collections.Generic

Namespace LinkedListOfTExample
    Public Class Person
        Private _Name As String
        Public Property Name() As String
            Get
                Name = _Name
            End Get
            Set(ByVal value As String)
                _Name = value
            End Set
        End Property
        Public Overrides Function Equals(ByVal obj As Object) As Boolean
            If obj IsNot Nothing AndAlso TypeOf obj Is Person Then
                Equals = Name.Equals(DirectCast(obj, Person).Name)
            End If
        End Function
        Public Overrides Function GetHashCode() As Integer
            GetHashCode = Name.GetHashCode()
        End Function
    End Class
    Public Class Client
        Public Shared Sub Main()
            Dim linkedList1 As New LinkedList(Of Person)
            Dim linkedListNode1 As LinkedListNode(Of Person) = _
                           linkedList1.AddFirst(New Person With {.Name = "John"})
            '
            Dim linkedlistnode2 As LinkedListNode(Of Person) = _
                           linkedList1.AddAfter(linkedListNode1, _
                                                New Person With {.Name = "Jane"})
            '
            Console.WriteLine(linkedListNode1.Next Is linkedlistnode2)
            Console.WriteLine(linkedListNode1 Is linkedlistnode2.Previous)
            '
            Console.WriteLine(linkedList1.Count)
            '
            For Each element As Person In linkedList1                      ' (1)
                Console.WriteLine(element.Name)
            Next
            '
            Console.WriteLine( _
                   linkedList1.Contains(New Person With {.Name = "John"})) ' (2)
            '
            Console.ReadLine()
        End Sub
    End Class
End Namespace

True
True
2
John
Jane
True