Mega Code Archive

 

Categories / VB.Net / Data Structure

 

ReadOnlyCollection(T) Class Provides the base class for a generic read-only collection

Imports System Imports System.Collections.Generic Imports System.Collections.ObjectModel Public Class Example     Public Shared Sub Main()         Dim numbers As New List(Of String)         numbers.Add("One")         numbers.Add("Two")         numbers.Add("Four")         numbers.Add("Five")         Dim readOnlyNumbers As New ReadOnlyCollection(Of String)(numbers)         For Each num As String In readOnlyNumbers             Console.WriteLine(num)         Next         Console.WriteLine(readOnlyNumbers.Count)         Console.WriteLine(readOnlyNumbers.Contains("Four"))         Console.WriteLine(readOnlyNumbers(3))         Console.WriteLine(readOnlyNumbers.IndexOf("Five"))         numbers.Insert(2, "New Value")         For Each num As String In readOnlyNumbers             Console.WriteLine(num)         Next         Dim dinoArray(readOnlyNumbers.Count + 1) As String         readOnlyNumbers.CopyTo(dinoArray, 1)         Console.WriteLine(dinoArray.Length)         For Each num As String In dinoArray             Console.WriteLine(num)         Next    End Sub End Class