Stack to Array : Stack « Data Structure « VB.Net

1. VB.Net
2. Data Structure
3. Stack

Stack to Array

  
Imports System
Imports System.Collections

Public Class MainClass
    
    Shared Sub Main()
             Dim intStack As New Stack(  )

             Dim i As Integer
             For i = 1 To 4
                 intStack.Push((i * 5))
             Next i

             Console.WriteLine("intStack values:")
             DisplayValues(intStack)

             Const arraySize As Integer = 10
             Dim testArray(arraySize) As Integer

             For i = 1 To arraySize - 1
                 testArray(i) = i * 100
             Next i
             Console.WriteLine("Contents of the test array")
             DisplayValues(testArray)

             intStack.CopyTo(testArray, 3)
             Console.WriteLine("TestArray after copy:  ")
             DisplayValues(testArray)

             Dim myArray As Object(  ) = intStack.ToArray(  )

             Console.WriteLine("The new array:")
             DisplayValues(myArray)
   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


           
         
    
  

Related examples in the same category

1.	Push Integer into a Stack
2.	Simple Demo for Stack: Push, Pop and Peek
3.	Stack Demo: push, pop and peek
4.	Stack<(Of <(T>)>) the ToArray method.
5.	Stack Class represents a simple last-in-first-out (LIFO) non-generic collection of objects.