[RESOLVED] [02/03] Random pictures

[sparrow1]

Hi All,

I'm trying to do a random with pictures in a Imagelist.

Here's the code I'm using:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Rnd() = 0,9672324
        'Rnd() * 10 = 9,672324
        'CInt(rnd() * 10) = 10
        Dim myNr As Integer
        myNr = CInt(Rnd() * Me.ImageList1.Images.Count)
        Me.PictureBox10.Image = Me.ImageList1.Images(myNr)
    End Sub

It's working but after some clicks it gaves me an error:

Additional information: Specified argument was out of the range of valid values.

What's wrong with this code.

Thanks in advance,

sparrow1

[Atheist]

Its obviously returning values outside of the index bounds.
I'd recommend you to use the Random class rather than the Rnd() function.

Private rand As New Random
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        myNr = Rand.Next(0, Me.ImageList1.Images.Count)
        Me.PictureBox10.Image = Me.ImageList1.Images(myNr)
    End Sub

[stanav]

Delare the random object as a class variable and in your button.click event handler, you call random.next(0, Me.ImageList1.Images.Count)

Private rand As New Random

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim count as Integer = Me.ImageList1.Images.Count
        If count > 0 Then   
            Dim myNr As Integer = Me.rand.Next(0, count)
            Me.PictureBox10.Image = Me.ImageList1.Images(myNr)
        End If
    End Sub

[sparrow1]

Thanks, there both working.

Wkr,

sparrow1