Stack

Stack: 

             Stack भी एक VB.Net collections का टाइप है जो की Data structure के Stack की तरह ही कार्य करता है। यह last in first out के अनुसार काम करता है। इसमे डाटा input के लिए Push और Out के लिए Pop operation का use किया जाता है।

Declaration:

Syntax: Dim <stack name> As New Stack 

Ex- Dim stk As new stack 

Important Methods:

• · Push: इसका प्रयोग stack मे item को add करने के लिए किया जाता है। 

Syntax: Stack.Push (object) 

Ex- stk.push (“A”) 

• Pop: इसका प्रयोग stack से item को remove करने के लिए किया जाता है। 

Syntax: Stack.pop 

Ex- stk.pop 

• Contains: इस method का use object को check करने के लिए किया जाता है। 

Syntax: Stack.Contains (object) 

Ex- stk.Contains (“A”) 

PROGRAM: STACK

Public Class Form1

    Dim stk As New Stack

    Private Sub Refreshlabel()

        Dim i As Integer

        Dim ar() As Object

        ReDim ar(stk.Count)

        ar = stk.ToArray

        Label1.Text = ""

        For i = 0 To stk.Count - 1

            Label1.Text = Label1.Text & ar(i) & Chr(13)

        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        stk.Push(TextBox1.Text)

        TextBox1.Clear()

        TextBox1.Focus()

        Refreshlabel()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        stk.Pop()

        Refreshlabel()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim s As String

        s = InputBox("Enter value to check")

        If stk.Contains(s) = True Then

            MsgBox("Found")

        Else

            MsgBox("not Found")

        End If

    End Sub

End Class