Public Function QueueRemove( _ ByRef rValue As Variant _ ) As Boolean
Assuming Dim dqTemp As New Deque dqTemp.QueueAdd 12 dqTemp.QueueAdd 23 Dim varTemp As Variant Dim bResult As Boolean for example bResult = dqTemp.QueueRemove(varTemp) leaves bResult = True varTemp = 12 and bResult = dqTemp.QueueRemove(varTemp) leaves bResult = True varTemp = 23See also:
QueueAdd Subroutine RemoveHead FunctionDefinition:
QueueRemove = RemoveHead(rValue)v1.3 BugFix: This function has been changed to return the retrieved value via an argument instead of via its return value. This is so that you do not have to know in advance whether the function will return an object reference or an ordinary value. Also, this Function has been fixed to support the retrieval of Object and DataObject type Values.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.