Discussion :

[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?
(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 :

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

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

[rv26t]

Bonjour,

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.

[choupinou22]

Code :

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

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?

[rv26t]

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

Le code s'écrit donc

Code :

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

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

[choupinou22]

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 :

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

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

[rv26t]

Je n'avais pas fait attention

Code :

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

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