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.