visual basic 2010 broncode voorbeelden

Option Strict On

Imports System.Collections.Generic

Namespace ArrayImplementsIListOfTExample
    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
    End Class
    Public Class Client
        Public Shared Sub Main()
            Dim personArray As Person() = _
                               New Person() {New Person With {.Name = "John"}, _
                                             New Person With {.Name = "Jane"}}
            '
            PrintArray(personArray)         ' John Jane
            PrintPersonArray(personArray)   ' John Jane
            Console.WriteLine()
            '
            PrintType(personArray.GetType())
            PrintType(personArray.GetType().BaseType())
            '
            Console.ReadLine()
        End Sub
        Public Shared Sub PrintType(ByVal type As System.Type)
            Console.WriteLine("Class " & type.Name)
            Console.WriteLine("Inherits : " & type.BaseType.Name)
            Console.WriteLine("Implements : ")
            Dim interfaces As Type() = type.GetInterfaces()
            For Each [interface] As Type In interfaces
                Console.Write([interface].Name & " ")
            Next
            Console.WriteLine()
            Console.WriteLine()
        End Sub
        Public Shared Sub PrintArray(ByVal array As System.Array)
            Dim list As IList = array
            Dim enumerator As IEnumerator = list.GetEnumerator()            '(1)
            Do While enumerator.MoveNext()
                Dim currentObject As Object = enumerator.Current            '(2)
                Dim currentPerson As Person = DirectCast(currentObject, Person)
                Console.Write(currentPerson.Name & " ")
            Loop
            enumerator.Reset()
            Console.WriteLine()
        End Sub
        Public Shared Sub PrintPersonArray(ByVal array As Person())
            Dim list As IList(Of Person) = array
            Dim enumerator As IEnumerator(Of Person) = list.GetEnumerator() '(3)
            Do While enumerator.MoveNext()
                Dim currentPerson As Person = enumerator.Current
                Console.Write(currentPerson.Name & " ")
            Loop
            enumerator.Reset()
            Console.WriteLine()
        End Sub
    End Class
End Namespace

John Jane
John Jane

Class Person[]
Inherits : Array
Implements :
ICloneable IList ICollection IEnumerable IList`1 ICollection`1 IEnumerable`1

Class Array
Inherits : Object
Implements :
ICloneable IList ICollection IEnumerable