Mega Code Archive

 

Categories / VB.Net Tutorial / Collections

 

Copy the elements of the queue, starting at the middle of the array

Imports System Imports System.Collections.Generic Module Example     Sub Main         Dim numbers As New Queue(Of String)         numbers.Enqueue("one")         numbers.Enqueue("two")         numbers.Enqueue("three")         numbers.Enqueue("four")         numbers.Enqueue("five")                  Dim array2((numbers.Count * 2) - 1) As String         numbers.CopyTo(array2, numbers.Count)     End Sub End Module