random image selection in VB

Hi
any idea how to randomly select an image/picture in vb please

Can you be a bit more specific? What exactly do you mean by "select an image"? Give us some context to work with.

Also, what version of VB?

thanks
Using VB 2005 express Edition, i'm writing a programme where a randomly selected picture (from 5), will be displayed at the click of a button.

Here's my coding:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x(4) As PictureBox
x(0).Equals(PictureBox1.Image)
x(1).Equals(PictureBox2.Image)
x(2).Equals(PictureBox3.Image)
x(3).Equals(PictureBox4.Image)
x(4).Equals(PictureBox5.Image)


Dim randomgenerator As New Random
Dim computerchoice As Integer

computerchoice = randomgenerator.Next(0, 5)

Seems reasonable so far - so what's the problem?

thanks
Using VB 2005 express Edition, i'm writing a programme where a randomly selected picture (from 5), will be displayed at the click of a button.

Here's my coding:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x(4) As PictureBox
x(0).Equals(PictureBox1.Image)
x(1).Equals(PictureBox2.Image)
x(2).Equals(PictureBox3.Image)
x(3).Equals(PictureBox4.Image)
x(4).Equals(PictureBox5.Image)


Dim randomgenerator As New Random
Dim computerchoice As Integer

computerchoice = randomgenerator.Next(0, 5)

Where do you want the image displayed? Wouldn't it be better to keep the images in an ImageList control? Why are you creating the x array?

If you have the images in PictureBoxes already, then you could just loop through them and set the Visibility to False except the randomly selected one.

Seems reasonable so far - so what's the problem?

Thanks for helping Killer42, my problem is I can't progress I don't know how to progress

Where do you want the image displayed? Wouldn't it be better to keep the images in an ImageList control? Why are you creating the x array?

If you have the images in PictureBoxes already, then you could just loop through them and set the Visibility to False except the randomly selected one.

Thanks for helping Guru, I'm gonna try it now, but I've never used ImageList control and not sure how to write the code to make the randomly selected visibility false

Thanks for helping Guru, I'm gonna try it now, but I've never used ImageList control and not sure how to write the code to make the randomly selected visibility false

Sorry i meant the randomly seleceted visibility TRUE

Hi here I still am with this programme.
I've got images in Resources and want to display randomly one in the picture box at the click of the button.
I've been really struggling with this for ages, help please anyone.
Here's my script and error message.
Thanks.


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim apple As String, banana As String, orange As String, pinnaple As String, mango As String
Dim m_stroptions As String() = New String() {apple, banana, orange, pinnaple, mango}

Dim m_blnUsed As Boolean() = _
New Boolean(m_stroptions.GetUpperBound(0)) {}


Dim m_intCount As Integer = 1
Dim m_strname As String


Dim stroutput As String
stroutput &= ".jpg"
stroutput = m_strname
stroutput = stroutput.Insert(0, _
System.Environment.CurrentDirectory & "\images\")


Dim getuniquerandomnumber As Integer
Dim objrandom As Random = New Random()
Dim intrandom As Integer
Do
intrandom = objrandom.Next(0, m_blnUsed.Length)
Loop Until m_blnUsed(intrandom) = False
m_blnUsed(intrandom) = True

intrandom = getuniquerandomnumber
m_strname = m_stroptions(intrandom)
Dim buildpathname() As String
Dim strpath As String = buildpathname()
PictureBox1.Image = Image.FromFile(strpath)


End Sub
End Class



Error 1 Number of indices is less than the number of dimensions of the indexed array.

Hi here I still am with this programme.
I've got images in Resources and want to display randomly one in the picture box at the click of the button.
I've been really struggling with this for ages, help please anyone.
Here's my script and error message.
Thanks.


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim apple As String, banana As String, orange As String, pinnaple As String, mango As String
Dim m_stroptions As String() = New String() {apple, banana, orange, pinnaple, mango}

Dim m_blnUsed As Boolean() = _
New Boolean(m_stroptions.GetUpperBound(0)) {}


Dim m_intCount As Integer = 1
Dim m_strname As String


Dim stroutput As String
stroutput &= ".jpg"
stroutput = m_strname
stroutput = stroutput.Insert(0, _
System.Environment.CurrentDirectory & "\images\")


Dim getuniquerandomnumber As Integer
Dim objrandom As Random = New Random()
Dim intrandom As Integer
Do
intrandom = objrandom.Next(0, m_blnUsed.Length)
Loop Until m_blnUsed(intrandom) = False
m_blnUsed(intrandom) = True

intrandom = getuniquerandomnumber
m_strname = m_stroptions(intrandom)
Dim buildpathname() As String
Dim strpath As String = buildpathname()
PictureBox1.Image = Image.FromFile(strpath)


End Sub
End Class



Error 1 Number of indices is less than the number of dimensions
of the indexed array.

The error is on this line and area
Dim strpath As String = buildpathname()

The error is on this line and area
Dim strpath As String = buildpathname()

buildpathname is an array. strPath isn't. How can you assign one to the other?

thanks once again for all the help
i've got the code now without error but i did not achieve what i wanted: if i run it it will display always the first the first picture, so i don't think the random generator is working. to test it i proceeded by elimination and with this rest of the code, it still display the first picture
here's my final code after correcting all the errors

so these 2 previous codes give the same result when run which is displaying always the first image on this serie of paths

comme on guys, there should be a solution to randomly select an image from resources or imagelist and then display it in a picturebox
i've been working on this more than a week now and believe me i'm suffering as a spend the whole day on it
i'm normally not a quiter, but i'm thinking of giving up now

Your code is a little screwy, but I think it will work. The major problem is that computer-generated random numbers are actually pseudo-random; that is, they generated the same set of "random" numbers each time, so since you create the random number generator in the click event, the same number is generated each time. You need to create the Random object in the form load event, so that each button push will generate the "next" random number. So, it should look like this:

Well, my code is wrong and yours is very screwy. First, we'll fix mine: the module-level definition of objRandom should be:
Now, there are several problems in your code:

• You initialize m_blnUsed in the button click, so it will always be false and your loop does nothing. It should be a module-level variable (that's why you named it m_) and initialized at least in the form load
• stroutout & getuniquerandomnumber perform nothing useful
• When all of m_blnUsed is false, it must be reinitialized before your loop or you'll just see the five images in random order, then you're in an infinite loop.

hehehey, celebration time!!!
i'm there & went further on the program by your help, i can't thank you enough for all the support and for cheering me up
last thing (promise), in design after emptying the text in properties for a label, i can't see the label anymore and i need to see it to redesign it (set the text, modify its size); but it is nowhere to be seen; so how can i get to this label in design view

In VB6, you can either select it in the dropdown list of elements at the top of the properties window, or drag a selection box around where you think it should be on the form.

In your version, I don't know - not familiar with the interface.

It's still there, Killer! Now you can update your resume to VB.NET analyst.

As Killer says, use the drop-down at the top of the Properties window to select the label (you may have to cycle thru all of the labels to find the one you cannot see, then change its Location property to 0,0 so that it will be in the top left corner of your form and you can drag it where you want it.

In VB6, you can either select it in the dropdown list of elements at the top of the properties window, or drag a selection box around where you think it should be on the form.

In your version, I don't know - not familiar with the interface.

thanks a lot killer42, i'm done now