Discussion :

[-N4w4k-]

Bonjour,

Toujours dans mon projet de fenêtre dockable, j'essaie de mettre en place un composant hérité d'un TableLayoutPanel. Suivant sa propriété dock, je veux que ça ajoute les contenus soit sur une même ligne, soit sur une même colonne (Dock.Top/Bottom => 1 ligne; Dock.Left/Right => 1 colonne). Pour ce faire, je n'ai surement pas la bonne méthode car cela m'ajoute toujours les contenus sur une même colonne..

A la création du composant, suivant sa propriété Dock j'assigne sa propriété GrowStyle à AddRows ou AddColumns. Cette propriété ne changera jamais.

Puis pour chaque ajout de contenu (des fenêtres), j'exécute cette méthode:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Public Sub AddWindow(ByVal window As ABWWindow)
 
        If Me.GrowStyle = TableLayoutPanelGrowStyle.AddColumns Then
            Dim i = Me.ColumnStyles.Add(New ColumnStyle())
            Me.Controls.Add(window, i, 0)
        ElseIf Me.GrowStyle = TableLayoutPanelGrowStyle.AddRows Then
            Dim i = Me.RowStyles.Add(New RowStyle())
            Me.Controls.Add(window, 0, i)
        End If
 
        'ect.
    End Sub

J'ai essayé de manipuler les objets/propriétés un peu dans tout les sens mais je ne parviens pas à ce que je veux..

Merci de votre aide.

[-N4w4k-]

Problème résolu plus vite que je pensais.. Je me plantais dans l'assignation de la propriété GrowStyle..

[-N4w4k-]

Bon j'ai une autre question sur ce sujet..

Je fais en sorte que si je déplace ma fenêtre, elle est enlevée des controls du TLP. Seulement je ne parviens pas à supprimée la ligne/colonne qui reste alors vide..

[-N4w4k-]

Bon bah j'ai finalement trouvé.

Voici le code que j'ai réalisé:

Code :

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

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
    Private Sub ReorganizeAfterRemoveAt(pos As TableLayoutPanelCellPosition)
        If pos <> New TableLayoutPanelCellPosition(-1, -1) Then
            If Me.GrowStyle = TableLayoutPanelGrowStyle.AddColumns Then
                If ColumnCount <> pos.Column AndAlso ColumnCount <> 0 Then
                    For i = pos.Column + 1 To Me.ColumnCount - 1
                        Dim c As Control = Me.GetControlFromPosition(i, 0)
                        Me.SetColumn(c, i - 1)
                    Next
                End If
 
                Me.ColumnCount -= 1
                Me.ColumnStyles.RemoveAt(pos.Column)
            ElseIf Me.GrowStyle = TableLayoutPanelGrowStyle.AddRows Then
                If RowCount <> pos.Row AndAlso RowCount <> 0 Then
                    For i = pos.Row + 1 To Me.RowCount - 1
                        Dim c As Control = Me.GetControlFromPosition(0, i)
                        Me.SetRow(c, i - 1)
                    Next
                End If
 
                Me.RowCount -= 1
                Me.RowStyles.RemoveAt(pos.Row)
            End If
        End If
    End Sub

J'ai pas trouvé mieux..