Discussion :

[nirannor]

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.

[jopopmk]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[nirannor]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.