Changer le parent d'un élément (Panel - SplitContainer)

Version imprimable

Bonjour à tout le monde,

J'ai un petit problème, sur ma form, j'ai un SplitContainer ancrer sur toute la fenêtre, et quand je mets un panel (de manière graphique), il se met dessus (logique).

Je souhaiterai le faire apparaitre sur la form directement, quand je cache via un bouton le StripContainer, je voudrais voir le panel et inverssement. J'ai vu des petites choses via le "parent". J'ai testé sans succès.

Voici différent test qui ne marche pas que j'ai effectué :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Application_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Controls.Add(PNL_General) PNL_General.Parent = Me PNL_General.Visible = True PNL_General.Enabled = True PNL_General.Show() End Sub
Je ne sais pas s'il y a une méthode pour forcer le panel à se mettre sur la form et non pas sur le SplitContainer.

Cordialement,
Bacube

11/05/2012, 15h59
-N4w4k-

Salut,

Il faut que tu ajoute ton panel aux controls de ton form/splitcontainer:

Code:

Me.Controls.Add(panel) 'Me fait référence au container que tu veux
11/05/2012, 16h17
Bacube

Oui, le "Me" fait référence à ma form "Application". Pour ça que je ne comprend pas que le panel ne passe pas sur mon formulaire ...

Ah oui pardon j'avais pas vu que tu le faisait déjà..

Chez moi ce code fonctionne parfaitement:

Form1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    Dim p As Panel
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        p = New Panel
        p.Location = New Point(50, 50)
        p.Size = New Size(50, 50)
        p.BackColor = Color.Blue
 
        Me.Controls.Add(p)
 
    End Sub
 
 
    Private Sub ButtonToggleContainer_Click(sender As System.Object, e As System.EventArgs) Handles ButtonToggleContainer.Click
 
        If p.Parent Is Me Then
            'ajout dans un panel
            Panel1.Controls.Add(p)
        Else
            'ajout dans le form
            Me.Controls.Add(p)
        End If
 
    End Sub

11/05/2012, 16h43
Bacube

le SplitContainer pose problème ou son ancrage, car quand je demande de mettre le panel sur la form directement j'ai rien, mais quand je demande de mettre le panel dans le split, là ça marche...
11/05/2012, 16h47
-N4w4k-

Cela peut venir de plein de choses: docking, autosize, etc.
On n'a pas assez d'élément pour pouvoir réellement t'aider..

Mon conseil, vérifie les différentes propriétés(comme celles citées au dessus) de tes composants (de ton panel surtout) et essaie de jouer un peu avec..
11/05/2012, 17h08
Bacube

Merci pour ton aide, je vais regarder ça plus en profondeur, car ça me permettrais de ne pas passer par une autre fenètre. Sinon peut être existe t'il un autre moyen de réaliser ce que je souhaite.

Un peu à la manière de calques sous les logiciel de DAO/CAO pour ceux qui connaissent. (on mets des objets dans un calque, des autres objets dans un autre calque, et après libre à nous d'afficher les deux ou un des deux calques)

Citation:

Envoyé par Bacube

Un peu à la manière de calques sous les logiciel de DAO/CAO pour ceux qui connaissent. (on mets des objets dans un calque, des autres objets dans un autre calque, et après libre à nous d'afficher les deux ou un des deux calques)

Bonsoir,
La propriété Visible joue en quelque sorte ce rôle :

Citation:

Obtient ou définit une valeur indiquant si le contrôle et tous ses contrôles enfants sont affichés.

et le code de -N4w4k- va bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Class Form1
    Dim p As Panel
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        p = New Panel
        p.Location = New Point(50, 50)
        p.Size = New Size(50, 50)
        p.BackColor = Color.Blue
 
        SplitContainer1.Visible = False
        Me.Controls.Add(p)
 
    End Sub
 
 
    Private Sub ButtonToggleContainer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonToggleContainer.Click
 
        If p.Parent Is Me Then
            'ajout dans un panel
            SplitContainer1.Visible = True
            SplitContainer1.Panel1.Controls.Add(p)
        Else
            'ajout dans le form
            Me.Controls.Add(p)
            SplitContainer1.Visible = False
 
        End If
 
    End Sub
 
End Class