Public Property Get IsEmpty( _
) As Boolean Assuming
Dim stkTemp As New Stack
stkTemp.Push 1
for example
stkTemp.IsEmpty = FalseExample: Dim stkTemp As New Stack
' Fill
Dim intCount As Integer
For intCount = 1 To 5
stkTemp.Push intCount
Next intCount
' Remove
Dim varValue As Variant
Do Until stkTemp.IsEmpty
Debug.Print stkTemp.Pop(varValue)
Debug.Print varValue
LoopSee also: Count PropertyReturn value: Property returns True if the Stack is currently empty, and it returns False if the Stack contains one or more items.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.