King的幸福國度

程式碼如下：

1.先定義出一個資料結構

Structure AreaType 'AreaType為資料結構的名稱
    Dim Label As String
    Dim TRAREA As String
    Dim TRNATN As String
    Dim TRCITY As String
End Structure

2.再宣告一個陣列，型態為，自訂的資料結構名稱

Public Area() As AreaType

3.如果要加入資料到此佇列

Private Sub Add_Area(ByVal D1 As String, ByVal D2 As String, ByVal D3 As String, ByVal Label As String)
'把從xml讀出來的樹狀結構藉由佇列轉成一維陣列

            AreaCount = AreaCount + 1
            ReDim Preserve Area(0 To AreaCount)'重新宣告此佇列的大小
            With Area(AreaCount)
                .TRAREA = D1
                .TRNATN = D2
                .TRCITY = D3
                .Label = Label
            End With
        End Sub

重點在於紅色的地方

此種方法，好處是，能將資料取出，但資料卻不會流失

在用一般的陣列或是佇列時，會因為先進先出或是先進後出的關係而流失原本存在裡面的資料