[RESOLVED] [02/03] Random pictures

Hi All,

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

Here's the code I'm using:

Code:

---

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

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

VB Code:

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

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

Code:

---

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

---

Thanks, there both working.

Wkr,

sparrow1