devxlogo

Quick and Easy Queue

Quick and Easy Queue

Listboxes provide suitable functionality to act as a quick queue. Create a listbox named ListMyQueue. Use this code to add to your Queue:

 Public Sub Enqueue(StringToAdd As String)If Len(String_to_Add) > 0 ThenParentForm.ListMyQueue.AddItem _StringToAddEnd IfEnd SubUse this code to retrieve from your Queue:Public Function Dequeue() As VariantIf ParentForm.ListQueue.ListCount > 0 ThenDequeue = ParentForm.ListQueue.List(0)Parent_Form.ListQueue.RemoveItem (0)ElseMsgBox

devx-admin

Share the Post: