We help IT Professionals succeed at work.

Visual Basic 6 project - Shuffle List box items after every restart

353 Views
Last Modified: 2013-11-26
Hi there,

I am doing a project on VB 6. I need help on this.


Present Scenario:

I am populating a list box from a text file but the list box items goes away when program exit.

Envisioned Scenario:

1) List box items will be there even if program exit and re-start.
2) After re-start the list items needs to shuffle randomly. So say I have a list of urls like below, when program re-starts the url order needs to be changed..so I need to shuffle the list.

http://www.shareapic.net/content.php?id=17914085&owner=suvmitra 

http://www.shareapic.net/content.php?id=17914113&owner=suvmitra 

http://www.shareapic.net/content.php?id=17914129&owner=suvmitra 

http://www.shareapic.net/content.php?id=17914138&owner=suvmitra 

http://www.shareapic.net/content.php?id=17914145&owner=suvmitra 

http://www.shareapic.net/content.php?id=17914151&owner=suvmitra 

Sub tell()
Dim nFileNum As Integer, sText As String, sNextLine As String
 
With CommonDialog1
    .DialogTitle = "Select a file"
    .ShowOpen
End With
 
If CommonDialog1.FileName <> "" Then
 
    nFileNum = FreeFile
    Open CommonDialog1.FileName For Input As nFileNum
    
    Do While Not EOF(nFileNum)
        Line Input #nFileNum, sNextLine
        List1.AddItem sNextLine
    Loop
    Close nFileNum
 
End If
End Sub

Open in new window

Comment
Watch Question

Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.