message d'erreur d'une reference non definie

bonjour,
aprés avoir voulu mettre un picturebox sur un panel je me retrouve avec cette erreur:
la référence d'objet n'est pas définie a une instance d'objet
est ce que cette erreur est du a ce que le picture box se situe dans un panel?
(le panel est utilisé comme bordercolor du picturebox)
mon erreur est signalée sur la ligne en dessous du for i.....
voici mon code

Code:

---

1 2 3 4 5 6 7

Private Sub affichage() Dim i As Integer For i = 1 To 5 DirectCast(Me.Controls("picturebox" & i), picturebox).Visible = False DirectCast(Me.Controls("Label" & i), Label).Visible = False Next End Sub

---

merci pour votre aide

Bonjour,

Citation:

---

Envoyé par choupinou22

bonjour,
aprés avoir voulu mettre un picturebox sur un panel je me retrouve avec cette erreur:
la référence d'objet n'est pas définie a une instance d'objet
est ce que cette erreur est du a ce que le picture box se situe dans un panel?
...

---

Effectivement, Il suffit de remplacer "Me" qui désigne la Form par le nom de votre panel.

Code:

---

1 2 3 4 5 6 7

Private Sub affichage() Dim i As Integer For i = 1 To 5 DirectCast(Panel.Controls("picturebox" & i), picturebox).Visible = False DirectCast(Me.Controls("Label" & i), Label).Visible = False Next End Sub

---

Est ce ainsi qu'il faut écrire?

Quand vous rajoutez un panel sur votre Form il a pour nom "Panel1"

Le code s'écrit donc

Code:

---

DirectCast(Panel1.Controls("picturebox" & i), PictureBox).Visible = False

---

je me suis mal exprimé,excusez moi,j'ai voulu dire qu'il y a un panel pour chaque picturebox
est ce que cela irait?

Code:

---

DirectCast(("Panel" & i).Controls("picturebox" & i), PictureBox).Visible = False

---

Je n'avais pas fait attention

Code:

---

DirectCast(DirectCast(Me.Controls("Panel" & i), Panel).Controls("picturebox" & i), PictureBox).Visible = False

---