Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Aug 21, 2001

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
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date