Mega Code Archive

 

Categories / VB.Net by API / System Collections

 

Queue ToArray

Imports System Imports System.Collections Imports System.Collections.Specialized Public Class MainClass          Shared Sub Main(ByVal args As String())         Dim m_Queue As New Queue         m_Queue.Enqueue("Text")         m_Queue.Enqueue("Text")         m_Queue.Enqueue("Text")         Dim txt As String = DirectCast(m_Queue.Dequeue(), String)         Console.WriteLine(txt)         For Each str As String In m_Queue.ToArray()             Console.WriteLine(str)         Next str         Console.WriteLine(m_Queue.Count )              End Sub End Class