visual basic 2010 broncode voorbeelden

Public Class Person
    Private m_Name As String
    Public Property Name() As String
        Get
            Name = m_Name
        End Get
        Set(ByVal value As String)
            m_Name = value
        End Set
    End Property
End Class
Public Class PersonsDictionary
    Inherits System.Collections.ObjectModel.KeyedCollection(Of String, Person)
    Protected Overrides Function GetKeyForItem(ByVal item As Person) As String
        GetKeyForItem = item.Name                                          ' (1)
    End Function
End Class
Public Class KeyedCollectionOfTKeyTItemExample
    Public Shared Sub Main()
        Dim person1 As New Person With {.Name = "John"}
        Dim person2 As New Person With {.Name = "Jane"}
        '
        Dim persons1 As New PersonsDictionary
        persons1.Add(person1)                                              ' (2)
        persons1.Add(person2)                                              ' (2)
        '
        Console.WriteLine(persons1.Item(0).Name)                           ' (3)
        Console.WriteLine(persons1.Item("John").Name)
        Console.WriteLine(persons1.Item(1).Name)                           ' (3)
        Console.WriteLine(persons1.Item("Jane").Name)
        '
        Console.ReadLine()
    End Sub
End Class

John
John
Jane
Jane