Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.