List(Of T).ToArray Method
[ This article is for Windows Phone 8 developers. If you’re developing for Windows 10, see the latest documentation. ]
Copies the elements of the List(Of T) to a new array.
Assembly: mscorlib (in mscorlib.dll)
The elements are copied using Array.Copy, which is an O(n) operation, where n is Count.
This method is an O(n) operation, where n is Count.
The following code example demonstrates the ToArray method and other methods of the List(Of T) class that act on ranges. At the end of the code example, the GetRange method is used to get three items from the list, beginning with index location 2. The ToArray method is called on the resulting List(Of T), creating an array of three elements. The elements of the array are displayed.
Imports System.Collections.Generic Public Class Example Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock) Dim input() As String = {"Brachiosaurus", _ "Amargasaurus", _ "Mamenchisaurus"} Dim dinosaurs As New List(Of String)(input) outputBlock.Text += String.Format(vbLf & "Capacity: {0}", dinosaurs.Capacity) & vbCrLf outputBlock.Text &= vbCrLf For Each dinosaur As String In dinosaurs outputBlock.Text &= dinosaur & vbCrLf Next outputBlock.Text &= vbLf & "AddRange(dinosaurs)" & vbCrLf dinosaurs.AddRange(dinosaurs) outputBlock.Text &= vbCrLf For Each dinosaur As String In dinosaurs outputBlock.Text &= dinosaur & vbCrLf Next outputBlock.Text += String.Format(vbLf & "RemoveRange(2, 2)") & vbCrLf dinosaurs.RemoveRange(2, 2) outputBlock.Text &= vbCrLf For Each dinosaur As String In dinosaurs outputBlock.Text &= dinosaur & vbCrLf Next input = New String() {"Tyrannosaurus", _ "Deinonychus", _ "Velociraptor"} outputBlock.Text += String.Format(vbLf & "InsertRange(3, input)") & vbCrLf dinosaurs.InsertRange(3, input) outputBlock.Text &= vbCrLf For Each dinosaur As String In dinosaurs outputBlock.Text &= dinosaur & vbCrLf Next outputBlock.Text += String.Format(vbLf & "output = dinosaurs.GetRange(2, 3).ToArray") & vbCrLf Dim output() As String = dinosaurs.GetRange(2, 3).ToArray() outputBlock.Text &= vbCrLf For Each dinosaur As String In output outputBlock.Text &= dinosaur & vbCrLf Next End Sub End Class ' This code example produces the following output: ' 'Capacity: 3 ' 'Brachiosaurus 'Amargasaurus 'Mamenchisaurus ' 'AddRange(dinosaurs) ' 'Brachiosaurus 'Amargasaurus 'Mamenchisaurus 'Brachiosaurus 'Amargasaurus 'Mamenchisaurus ' 'RemoveRange(2, 2) ' 'Brachiosaurus 'Amargasaurus 'Amargasaurus 'Mamenchisaurus ' 'InsertRange(3, input) ' 'Brachiosaurus 'Amargasaurus 'Amargasaurus 'Tyrannosaurus 'Deinonychus 'Velociraptor 'Mamenchisaurus ' 'output = dinosaurs.GetRange(2, 3).ToArray ' 'Amargasaurus 'Tyrannosaurus 'Deinonychus