Discussion :

[BM42]

Bonjours a tous.

Je reviens a vous avec une question qui peut vous paraître simple et qui pourtant me pose un problème.
Dans une appli de présentation j’insert dynamiquement plusieurs panel que je vais appeler Panel1, Panel2, ….
Dans chaque Panel j’insert un ou plusieurs PictureBox que l’on vas appeler PictureBox11, PictureBox12,…. Pour le premier Panel (Panel1) et PictureBox21, PictureBox22,… pour le second (Panel2) et ainsi de suite

Le problème est le suivant :
L’utilisateur peut modifier les propriétés d’un PictureBox par un clic sur celui ci, notamment ces dimensions.
Jusque la tout va bien.
Une foie les nouvelles dimensions affecté au PictureBox il faut que je recalcule leur position a l’intérieur du Panel, et la problème.
Je n’arrive pas a récupérer le Panel contenant le PictureBox modifier et le nom des PictureBox contenus dans ce dernier.

Pour récupérer le nom du Panel je fais

Code :

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

1
2
Dim NomPanel As String
NomPanel = PictureBoxSélectionné.Parent.Name

Puis je coince.
En VB6 il existe Lbound et Ubound mais en .net ?

Je travail avec VB Express 2005

Merci par avance de votre aide.

[tomlev]

Je comprends pas bien la question... pour récupérer le panel qui contient toto, tu fais toto.Parent.
Quel est le problème ?
Et quel est le rapport avec UBound et LBound ?

[BM42]

Le problème est que je n'arrive pas a récupérer la liste des PictureBox inseres dans mon panel. Les index de controle n'existant plus en .net je ne sais pas comment procéder.
Deplus je sais pas combien de Panel et de pictureBox vont être insérés par l'utilisateur.

[BCmDev]

Tu trouveras certainement tes PictureBox dans PictureBoxSélectionné.Parent.Controls.

[hulahup]

Mes 2 cents:
Et si tu mets tes pictureboxes dans des collections par panel?
Tu récupères ton panel par pictureboxX.parent, puis tu récupères les autres en regardant dans quelle collection se trouve ta picturebox sélectionnée.

[tomlev]

Il suffit d'énumérer les contrôles enfants du panel, et de ne prendre que ceux qui sont de type Picturebox:

Code :

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

1
2
3
4
5
6
7
8
Dim p As Panel = CType(PictureBoxSélectionné.Parent, Panel)
For Each c As Control in p.Controls
    If TypeOf c Is PictureBox Then
        Dim pb As PictureBox = CType(c, CPictureBox)
        ' Faire quelque chose avec pb ici
        ' ...
    End If
Next

(il y a peut-être plus simple, mais je suis CSharpiste, pas VBiste, alors je prends pas de risques...)

[BM42]

Merci a tous pour m'avoir consacré du temps

La solution de TomLev est la bonne.
Mon erreur était de vouloir travailler avec le nom des controles ex :

Code :

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

PictureBoxSélectionné.Parent.Name

Encors Merci pour votre aide et a bientôt.