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 Then
ParentForm.ListMyQueue.AddItem _
StringToAdd
End If
End Sub
Use this code to retrieve from your Queue:
Public Function Dequeue() As Variant
If ParentForm.ListQueue.ListCount > 0 Then
Dequeue = ParentForm.ListQueue.List(0)
Parent_Form.ListQueue.RemoveItem (0)
Else
MsgBox


														Eric Robuck
														 
														
															
																
																	
																		
																			
																				
																			
																		
																		
																			Submit a Tip
																		
																		
																			
																				
																			
																		
																		
																			Browse "XML" Tips
																		
																		
																			
																				
																			
																		
																		
																			 Browse All Tips

0 Comments (click to add your comment)

Comment and Contribute