visual basic 2010 broncode voorbeelden

Option Strict On

Imports System.Collections.Generic

Namespace ListOfTExample
    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
        Public Overrides Function ToString() As String
            ToString = Name
        End Function
    End Class
    Public Class Client1
        Public Shared Sub Main()
            Dim list1 As New List(Of Person)
            '
            list1.Add(New Person With {.Name = "John"})
            list1.Add(New Person With {.Name = "Jane"})
            'list1.Add(New Object)                                         ' (1)
            '
            Console.WriteLine(list1.Item(1).Name)                          ' (2)
            '
            Dim arrayList1 As New ArrayList
            '
            arrayList1.Add(New Person With {.Name = "John"})
            arrayList1.Add(New Person With {.Name = "Jane"})
            arrayList1.Add(New Object)                                     ' (3)
            '
            Console.WriteLine(DirectCast(arrayList1.Item(1), Person).Name) ' (4)
            '
            Console.ReadLine()
        End Sub
    End Class
End Namespace

Jane
Jane

Namespace ListOfTExample
    Public Class Client2
        Public Shared Sub Main()
            Dim list1 As New List(Of Person)
            list1.Add(New Person With {.Name = "John"})
            list1.Add(New Person With {.Name = "Jane"})
            '
            Dim match1 As Predicate(Of Person) = _
                                        Function(item) item.Name.StartsWith("J")
            Console.WriteLine(list1.Exists(match1))          ' True
            Console.WriteLine(list1.Find(match1).ToString()) ' John
            Console.WriteLine(list1.FindIndex(match1))       ' 0
            Console.WriteLine(list1.FindLastIndex(match1))   ' 1
            Console.WriteLine(list1.TrueForAll(match1))      ' True
            '
            Dim action1 As Action(Of Person) = AddressOf ChangeNameToUpperCase
            list1.ForEach(action1)
            Print(list1)                                     ' JOHN JANE
            '
            Dim converter1 As Converter(Of Person, Char) = _
                                                     Function(item) item.Name(1)
            Dim charList1 As List(Of Char) = list1.ConvertAll(converter1)
            Print(charList1)                                 ' O A
            '
            Console.ReadLine()
        End Sub
        Private Shared Sub ChangeNameToUpperCase(ByVal value As Person)
            value.Name = value.Name.ToUpper()
        End Sub
        Public Shared Sub Print(ByVal collection As ICollection)
            For Each element As Object In collection
                Console.Write(element.ToString() & " ")
            Next
            Console.WriteLine()
        End Sub
    End Class
End Namespace

True
John
0
1
True
JOHN JANE
O A