I am writing a program that displays the results of a show, based on user input. In the end, when the results are displayed a picture of a "ribbon" is also displayed (like blue ribbon for first). My problem is some of the entrants are in multiple events but I can't seem to figure out how to put more than one image in a picture box. Here is the code section I am having the problem with. It does all correct except if an entrant is is two events, it list both results in the listbox, but only displays the last image ... thanks
CODE
For index As Integer = 1 To 50
If rider(index).ridernum = TxtRidNum.Text Then
ListBox1.Items.Add(rider(index).name & ", you entered class " & rider(index).eventclass)
For x As Integer = 1 To 50
If result(x).eventclass1 = rider(index).eventclass Then
' ListBox1.Items.Add("In class " & result(index).eventclass1)
ridernumber = TxtRidNum.Text
If ridernumber = result(x).first Then
ListBox1.Items.Add("Congratulations, you placed FIRST in the class!")
Picboxout.Image = Image.FromFile("fplace.jpg")
Exit For
ElseIf ridernumber = result(x).second Then
ListBox1.Items.Add("Congratulations, you placed SECOND in the class!")
Picboxout.Image = Image.FromFile("splace.jpg")
ElseIf ridernumber = result(x).third Then
ListBox1.Items.Add("Congratulations, you placed THIRD in the class!")
Picboxout.Image = Image.FromFile("tplace.jpg")
Else : ListBox1.Items.Add("Sorry but you did not place in the ribbons.")
End If
End If
Next
End If
| 