VB.Net by API/System.Collections/Stack
Содержание
Stack.Count
<source lang="vbnet">
Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim letter_stack As New Stack " Add the letters to the stack. For i As Integer = 0 To 10 Console.WriteLine(i) letter_stack.Push(i) Next " Remove the letters from the stack. Do While letter_stack.Count > 0 Console.WriteLine( DirectCast(letter_stack.Pop(), Integer) ) Loop End Sub
End Class
</source>
Stack.IsSynchronized
<source lang="vbnet"> Imports System.Threading Imports System.Collections public class Test
public Shared Sub Main Dim S1 As New Stack() Dim SyncS1 As Stack = Stack.Synchronized(S1) Console.WriteLine("SyncS1: " & SyncS1.IsSynchronized.ToString()) Console.WriteLine("S1: " & S1.IsSynchronized.ToString()) End Sub
End class
</source>
Stack.Peek()
<source lang="vbnet"> Imports System Imports System.Collections
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim intStack As New Stack( ) " populate the stack Dim i As Integer For i = 0 To 7 intStack.Push((i * 5)) Next i " Display the Stack. Console.WriteLine("intStack values:") DisplayValues(intStack) " Remove an element from the stack. Console.WriteLine("(Pop){0}", intStack.Pop( )) " Display the Stack. Console.WriteLine("intStack values:") DisplayValues(intStack) " Remove another element from the stack. Console.WriteLine("(Pop){0}", intStack.Pop( )) " Display the Stack. Console.WriteLine("intStack values:") DisplayValues(intStack) " View the first element in the " Stack but do not remove. Console.WriteLine("(Peek) {0}", intStack.Peek( )) " Display the Stack. Console.WriteLine("intStack values:") DisplayValues(intStack) 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 "DisplayValues
End Class
</source>
Stack.Pop()
<source lang="vbnet">
Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim letter_stack As New Stack " Add the letters to the stack. For i As Integer = 0 To 10 Console.WriteLine(i) letter_stack.Push(i) Next " Remove the letters from the stack. Do While letter_stack.Count > 0 Console.WriteLine( DirectCast(letter_stack.Pop(), Integer) ) Loop End Sub
End Class
</source>
Stack.Push
<source lang="vbnet">
Imports System Imports System.Collections Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim letter_stack As New Stack " Add the letters to the stack. For i As Integer = 0 To 10 Console.WriteLine(i) letter_stack.Push(i) Next " Remove the letters from the stack. Do While letter_stack.Count > 0 Console.WriteLine( DirectCast(letter_stack.Pop(), Integer) ) Loop End Sub
End Class
</source>
Stack.Synchronized
<source lang="vbnet">
Imports System.Threading Imports System.Collections public class Test
public Shared Sub Main Dim S1 As New Stack() Dim SyncS1 As Stack = Stack.Synchronized(S1) Console.WriteLine("SyncS1: " & SyncS1.IsSynchronized.ToString()) Console.WriteLine("S1: " & S1.IsSynchronized.ToString()) End Sub
End class
</source>