Changer une image d'un panel

Version imprimable

Bonjour,

J'ai plusieurs panel nommé panel1, panel2, panel3....J'attribue une image à chacun d'eux comme ci-dessous :

Code:

panel1.BackgroundImage = WindowsApplication1.My.Resources.Resources.nom_image

Je souhaites au cours du programme, changer l'image sur un des panel pris aléatoirement et utiliser le résultat du tirage pour appeler le panel. J'ai tenté la chose suivante mais cela ne fonctionne pas :
Code:

1 2 3 4 5 6 7 8 Public Function lancement_De(ByVal type As Integer) As Integer Dim resultat As Integer Randomize() resultat = CInt(Int((6 * Rnd()) + 1)) Return resultat End Function "panel" & resultat.BackgroundImage = WindowsApplication1.My.Resources.Resources.nouveau_nom_image 'Ne fonctionne pas
Bien sur je pourrai faire un select tel que :
Code:

1 2 3 4 5 6 7 8 9 10 Select case resultat case 1 panel1.BackgroundImage = WindowsApplication1.My.Resources.Resources.nouveau_nom_image case 2 panel2.BackgroundImage = WindowsApplication1.My.Resources.Resources.nouveau_nom_image case 3 panel3.BackgroundImage = WindowsApplication1.My.Resources.Resources.nouveau_nom_image case 4 panel4.BackgroundImage = WindowsApplication1.My.Resources.Resources.nouveau_nom_image etc
Mais je suis amené à ajouter des panels au cours du programme, je ne connais donc pas leur nombre exact.

Salut,

Tu peux utiliser la fonction Find du ControlCollection de ton Form, exemple rapide (VB c'est pas mon truc) :

Code:

1
2
3
4
5
6
7
8
' le deuxième paramètre (bool) détermine si la recherche se fait également en profondeur
Dim idx As Integer = 5
Dim ctrl As Control() = Me.Controls.Find("Panel" & idx, True)
If ctrl Is Nothing OrElse ctrl.Length = 0 Then
   MessageBox.Show("ctrl Not found")
Else
   ctrl(0).BackgroundImage = bla.bla.bla.une.image
End If

Bon dev.

Citation:
Envoyé par jopopmk
Salut,

Tu peux utiliser la fonction Find du ControlCollection de ton Form, exemple rapide (VB c'est pas mon truc) :
Code:

1 2 3 4 5 6 7 8 ' le deuxième paramètre (bool) détermine si la recherche se fait également en profondeur Dim idx As Integer = 5 Dim ctrl As Control() = Me.Controls.Find("Panel" & idx, True) If ctrl Is Nothing OrElse ctrl.Length = 0 Then MessageBox.Show("ctrl Not found") Else ctrl(0).BackgroundImage = bla.bla.bla.une.image End If
Bon dev.
Parfait. Merci. ;)