Discussion :

[hounaida nou]

Bonjour le Forum,
Comme déja mentionné dans le titre je veux créer un TableLayoutPanel et lui affecter des controles j'ai essayé donc

Code :

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

1
2
3
4
5
6
7
8
9
10
 Dim Table = New TableLayoutPanel()
        Table.Location = New Point(500, 30)
        Table.Size = New Size(620, 100)
        Table.AutoSize = True
        Table.Name = "Dashboard"
        Table.BackColor = Color.Black
          Table.AutoSizeMode = AutoSizeMode.GrowAndShrink
        Table.GrowStyle = TableLayoutPanelGrowStyle.AddRows
        Table.Controls.Add(Label1, 0, 0)
        Table.Controls.Add(CircularProgressBar4, 1, 0)

ça ne me retourne pas d'erreur mais les Controles qui sont déja crées disparaissent et rien ne s'affiche j'ai ajouté

Code :

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

1
2
Table.Visible = True
Table.Show()

mais en vain
merci de m'aider

[Phil Rob]

Bonjour,

Ceci n'est pas la réponse que tu attends, mais seulement une question ...

Si je lis bien ton code, ton TableLayoutPanel ne contient qu'une seule cellule. S'il en est ainsi, pourquoi ne remplacerais-tu pas TableLayoutPanel par Panel ?

Peut-être que d'essayer te mettra sur la piste d'une solution.

[Sankasssss]

Il manque la création des colonnes :

Code :

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

1
2
3
Table.ColumnCount = 2;
Table.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20));
Table.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20));

[hounaida nou]

Merci pour vos réponses,
En fait, Phil, j'ai testé avec deux cellules et non pas une

Code :

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

1
2
Table.Controls.Add(Label1, 0, 0)
 Table.Controls.Add(CircularProgressBar4, 1, 0)

et par la suite je vais rajouter d'autres controles donc le controle Panel ne répond pas exactement à mes besoins

Sankasssss, j'ai essayé ça et j'ai eu le même résultat en effet c’est vrai que Table.ColumnCount = 2 permet de fixer le nombre de colonnes et de les créer mais même si ce n'est pas définit au préalable normalement l'affectation d'un nouveau controle à une cellule suffit pour la créer.
Par contre lorsque j'ai essayé d'ajouter des controles à un tablelayoutPanel qui est déjà existant et qui contient une seule cellule,ça marche bien, voici le code :

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
        Dim LAB As New Label
        LAB.Text = " ProgressBar1"
        LAB.ForeColor = Color.Black
        LAB.BackColor = Color.White
        Dim PROGBAR As New CircularProgressBar.CircularProgressBar
        PROGBAR.Height = 80
        PROGBAR.Width = 80
        PROGBAR.Value = 15
        PROGBAR.InnerColor = Color.Black
        PROGBAR.ProgressWidth = 5
        TableLayoutPanel1.Controls.Add(LAB, 0, 0)
        TableLayoutPanel1.Controls.Add(PROGBAR, 0, 1)
        TableLayoutPanel1.Controls.Add(CircularProgressBar4, 1, 1)
        TableLayoutPanel1.RowStyles(0).SizeType = SizeType.Absolute
        TableLayoutPanel1.RowStyles(0).Height = 20

le résultat ci-dessous

j'éspère ça sera bénifique pour d'autres personnes

[Sankasssss]

Par contre lorsque j'ai essayé d'ajouter des controles à un tablelayoutPanel qui est déjà existant et qui contient une seule cellule,ça marche bien

N'auriez-vous pas tout simplement oublié d'ajouter le tableLayoutPanel à votre form?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim tlp = New TableLayoutPanel
        tlp.SuspendLayout()
        tlp.Controls.Add(New Button, 0, 0)
        tlp.Controls.Add(New Button, 1, 0)
        tlp.Controls.Add(New Button, 2, 0)
        tlp.Controls.Add(New Button, 3, 0)
        tlp.Controls.Add(New Button, 4, 0)
        Me.Controls.Add(tlp) ' <==============================
        tlp.Dock = DockStyle.Fill
        tlp.ResumeLayout()
        tlp.BackColor = Color.Bisque
    End Sub