How can I shuffle this listbox?

[Mark2]

Hi,

I have a list box on my form which has 4 items in. I also have a buton (CmdShuffle). When I press the button I want the contents of the list box to shuffle around (i.e. change their position in the list).

Any info on how I can do this?

Thanks

Mark

[LicuPliciu]

There is no predefinite function to shuffle the content of a list box. Since you only have four items I don't think would be a problem if you were to remove all the items from the list box and then add them again in a different order. See ResetContent, rand, srand.

[Mark2]

Any code for using ResetContent, Rand or Srand in this way...?

Thanks,

Mark.

[JeffB]

The rand and srand are from C language, in VB, you'll have to use RND function. Look this example, it remove each elements (one after the others), and put re-insert them in a random position:

Private Sub Command1_Click()
    Dim strItem As String
     
    'Initialise random number generation
    Randomize Timer
     
    With List1
        'Browse each list elements
        For x = 0 To .ListCount - 1
            'Remove the element, we'll add it after
            strItem = .List(x)
            .RemoveItem x
             
            'Add the removed element to a random position
            .AddItem strItem, Int(Rnd * .ListCount)
        Next x
    End With

End Sub

JeffB - hope it helps

[Cimperiali]

5 stars for you
Have happy coding,

Cesare

[Mark2]

Thanks! Code works fine.

Mark