VB.Netのお勉強



Stack(スタック)＠VB.Net

Stackは、後入れ先出し(LIFO)です。

アイテムを追加することをPushといいます。
末尾にアイテムを追加します。

アイテムを取り出すことをPopといいます。
末尾のアイテムを取り出します。

以下では、フォームにListBoxとボタンを2つ配置します。
ボタンが押されたら、PushとPopの処理を行います。

Stackに対して、Push、Popを行い。
ListBoxにStackを設定します。

フォームを起動して、動かします。
Stackの様子が見れます。


Public Class Form1

    Private stack As Stack
    Private count As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'スタック生成
        stack = New Stack(10)

        'count
        count = 0
    End Sub

    Private Sub PushBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PushBtn.Click

        'スタックにPush
        stack.Push("Item" + count.ToString())

        'ListBoxに設定
        Me.ListBox1.DataSource = stack.ToArray()

        'count
        count += 1
    End Sub

    Private Sub PopBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PopBtn.Click
        'スタックからPop
        stack.Pop()

        'ListBoxに設定
        Me.ListBox1.DataSource = stack.ToArray()
    End Sub
End Class




Copyright (C) 2008-2011 VB.Netのお勉強. All Rights Reserved.