Help me please

[YumYum]

Hi

It is the first time for me to participate in this site.
At the same time, i'm new with vb.net and i'm facing a problem.
I'm trying to choose a picture in a pictureBox randomly(a picture from a group of pictures). Please help me to do the coding.

Thanks.

[Webtest]

Where are the files for the group of pictures located?

[Zakary]

Hi Yum Yum !!
Welcome on the board!!!

Here a sample of what you are looking for

Dim Files() As String
Dim rnd As New Random
 
Files = IO.Directory.GetFiles("C:\ImgLib\Big Jpeg")
Me.PictureBox1.Image = New Bitmap(Files(rnd.Next(Files.Length)))

[YumYum]

Thanks alot guys;

But;
can i follow the same way if i have a botton called flag for example, and when i press it, a flag of group of flags located in bin folder is randomly displayed in a picture box ?

[Zakary]

Thanks alot guys;

But;
can i follow the same way if i have a botton called flag for example, and when i press it, a flag of group of flags located in bin folder is randomly displayed in a picture box ?

Hein !?!? I do not understand your request, please try again

[jmcilhinney]

Thanks alot guys;

But;
can i follow the same way if i have a botton called flag for example, and when i press it, a flag of group of flags located in bin folder is randomly displayed in a picture box ?

That's exactly what Zakary's code does. You simply substitute Application.StartupPath for the path he provided and also provide a second argument to GetFiles like "*.jpg" to get just the JPG files. Then put the code in the Click event handler of your button.

[YumYum]

Thanks alot brothers: jmcilhinney,Zakary and Webtest

I did that one, and it worked. Now i have another problem; i have numbers form 10 to 99 and i want to select only 10 of them in random and display them in a listBox. Would you help me please !
Should i use any loop ?

[jmcilhinney]

Yes you should.

Dim rand As New Random
        Dim item As Integer
 
        While Me.ListBox1.Items.Count < 10
            item = rand.Next(10, 100)
 
            If Not Me.ListBox1.Items.Contains(item) Then
                Me.ListBox1.Items.Add(item)
            End If
        End While

Note that I have used a While loop in case the ListBox already has 10 items. If you know that the ListBox is empty to start with, it would be more correct to use Do...Until Me.ListBox1.Items.Count = 10. The If statement is used to ensure that no duplicates are added to the list. If duplicates are allowed you can omit the If statement. In fact, if duplicates are allowed and you know the list starts empty, you would just use a For loop, but I'm guessing that duplicates are not allowed. Also note that, if you aren't already aware, Random.Next returns numbers in this range: 10 <= Random.Next < 100. That is why I used 10 and 100 instead of 10 and 99.