Queue is a generic collection in VB.NET
Queue implements the FIFO algorithm. Element added first is removed first
Enqueue() is used to add element to Queue. Look at the following piece of code how we can add element to Queue and how we can iterate the Queue
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Module Module1 Sub Main() Dim q As New Queue q.Enqueue("Sunday") q.Enqueue("Monday") q.Enqueue("Tuesday") q.Enqueue("Wednesday") q.Enqueue("Thursday") q.Enqueue("Friday") q.Enqueue("Saturday") ' Loop over the Queue. For Each element As String In q Console.WriteLine(element) Next End Sub End Module |
Output
|
1 2 3 4 5 6 7 |
Sunday Monday Tuesday Wednesday Thursday Friday Saturday |
Now I will run Dequeqe() to remove element from Queue
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
Module Module1 Sub Main() Dim q As New Queue q.Enqueue("Sunday") q.Enqueue("Monday") q.Enqueue("Tuesday") q.Enqueue("Wednesday") q.Enqueue("Thursday") q.Enqueue("Friday") q.Enqueue("Saturday") ' Loop over the Queue. For Each element As String In q Console.WriteLine(element) Next q.Dequeue() Console.WriteLine("-----------------") Console.WriteLine("After Dequeue") For Each element As String In q Console.WriteLine(element) Next End Sub End Module |
When you look at the output you can observe that first added element “Sunday” is removed first
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Output Sunday Monday Tuesday Wednesday Thursday Friday Saturday ----------------- After Dequeue Monday Tuesday Wednesday Thursday Friday Saturday |
You can use CopyTo() to copy the Queue to array
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Module Module1 Sub Main() Dim q As New Queue q.Enqueue("Sunday") q.Enqueue("Monday") q.Enqueue("Tuesday") q.Enqueue("Wednesday") q.Enqueue("Thursday") q.Enqueue("Friday") q.Enqueue("Saturday") Dim arr(q.Count() - 1) As String q.CopyTo(arr, 0) For Each elemnt In arr Console.WriteLine(elemnt) Next Console.ReadLine() End Sub End Module |