Queue FIFO ジェネリック VB.NET

      2016/12/26


コレクションには対応するジェネリックがあります。
Queueのジェネリックはofキーワードで型を決めます。

ソース
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Queue As New Queue(Of String)

Queue.Enqueue(1)
Queue.Enqueue(2)
Queue.Enqueue(3)
Queue.Enqueue("ダー")

For i = 0 To 3
MsgBox(Queue.Dequeue())

Next

End Sub
End Class

実行結果は
1
2
3
ダー
になります。

Stringを指定してるのに数値が通ってるじゃあないか。
多分文字列として登録されていると思います。

ちなみに型をIntegerに変えてみるとダーで怒られます。

ダーを削除してロープの回数を1回減らしてみます。

ソース
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Queue As New Queue(Of Integer)

Queue.Enqueue(1)
Queue.Enqueue(2)
Queue.Enqueue(3)

For i = 0 To 2
MsgBox(Queue.Dequeue())

Next

End Sub
End Class
実行結果は
1
2
3
になります。

やはりダーがないとしまらないですね。

何が言いたいかというと自動的に数値として認識されたということです。

PR



 - vb.netさんぷる

Translate »