Re-arrange list items [Resolved]

[Atheist]

gd day gents.
This will be hard to explain with my bad english...

Is there any way to "re-arrange" the order of a lists items?
I would like them to be randomly re-arranged..

[RhinoBull]

Randomly? I don't think so. You may resort listview by clicking on the column but that would only be ASC or DESC order.

[SHIVPREET2K1]

Hi Atheist

may it can be done . but befor that i have to understand how exaclty u want to reaarange list items. could u provide ur code or give some better explanation

regards

shivpreet2k1

[JensPeder]

Yeah, it most surtanly can be done, but please elaborate a bit more It kinda depends on how big the list is and so on

[Atheist]

Hello

What ive got is just a simple Listbox. It can only hold up to 23 entries.

And what I would like is when I press a command button, all the list items should be randomly re-arranged.

Cheers

[RhinoBull]

Well, listview is quite different from ordinary listbox...
Anyway, try this sample:

Option Explicit
 
Private Sub Form_Load()
    With List1
        .AddItem "Item 1"
        .AddItem "Item 2"
        .AddItem "Item 3"
        .AddItem "Item 4"
        .AddItem "Item 5"
    End With
End Sub
 
Private Sub Command1_Click()
Dim iIndex%, sItem$, i%
 
    Randomize
    
    With List1
        For i = 0 To .ListCount - 1
            iIndex = Int((.ListCount * Rnd) + 1)
            sItem = .List((iIndex - 1))
            .RemoveItem (iIndex - 1)
            .AddItem sItem
        Next i
    End With
 
End Sub

[JensPeder]

Don't wanna hijack the thread, but if you wanted to do the same with a listbox with only 23 items, I guess you would just pull the items out of the box, randomize and put em back? Make an array I mean

[Harsh Gupta]

.RemoveItem (iIndex - 1)

hey rhino i did the same thing but was getting error in this particular statement!

actually i was adding the items of listbox before actually finding the Random number like

For i = 0 To List1.ListCount - 1
arr(i) =  List1.List(i)
List1.RemoveItem (i)
Next i

and it was deleting all the even indexed value!!!! why so???

[RhinoBull]

You're not hijacking but rather suggesting ... Have you tried my sample yet?

[RhinoBull]

... and it was deleting all the even indexed value!!!! why so???

Because the minute you delete item ListCount changes ...

[Atheist]

Yea i tried your code RhinoBull and it works perfect thank you

[Harsh Gupta]

Because the minute you delete item ListCount changes ...

ok........thnx very much rhino!!

[RhinoBull]

Yea i tried your code RhinoBull and it works perfect thank you

Great!