VB.Net by API/System.Collections/Queue

Материал из VB Эксперт
Перейти к: навигация, поиск

Queue.Count

<source lang="vbnet"> 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 


 </source>


Queue.Dequeue

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass 

   Shared Sub Main()
            Dim intQueue As New Queue(  )
            Dim i As Integer
            For i = 0 To 4
                intQueue.Enqueue((i * 5))
            Next i
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue(  ))
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue(  ))
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            Console.WriteLine("(Peek)   {0}", intQueue.Peek(  ))
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
  End Sub
  Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)
      Dim myEnumerator As IEnumerator = myCollection.GetEnumerator(  )
      While myEnumerator.MoveNext(  )
          Console.WriteLine("{0} ", myEnumerator.Current)
      End While
      Console.WriteLine(  )
  End Sub

End Class 


 </source>


Queue.Peek

<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass 

   Shared Sub Main()
            Dim intQueue As New Queue(  )
            Dim i As Integer
            For i = 0 To 4
                intQueue.Enqueue((i * 5))
            Next i
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue(  ))
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            Console.WriteLine("(Dequeue) {0}", intQueue.Dequeue(  ))
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
            Console.WriteLine("(Peek)   {0}", intQueue.Peek(  ))
            Console.WriteLine("intQueue values:")
            DisplayValues(intQueue)
  End Sub
  Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)
      Dim myEnumerator As IEnumerator = myCollection.GetEnumerator(  )
      While myEnumerator.MoveNext(  )
          Console.WriteLine("{0} ", myEnumerator.Current)
      End While
      Console.WriteLine(  )
  End Sub

End Class 


 </source>


Queue.ToArray

<source lang="vbnet">

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 


 </source>
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Collections/Queue&oldid=2568»