Discussion :

[Gdal]

Bonjour,

Dans un formulaire, j'ai placé une TableLayoutPanel contenant 7 colonnes sur 1 ligne.

Colonne 1 -> Un Label
Colonne 2 -> Une Combobox
Colonne 3 -> Un Label
Colonne 4 -> Une Combobox
Colonne 5 -> Un DateTimePicker
Colonne 6 -> Un Label
Colonne 7 -> Un DateTimePicker

Comment faire pour remplacer les 2 DateTimePicker par 2 TextBox ?
Et surtout comment faire pour récupérer les valeurs des TextBox ?

Bon j'y retourne.

Gwendal

[Gdal]

salut,

J'ai trouvé une bidouille...

Mon TableLayoutPanel contient déjà tous les contrôles nécessaires, je n'ai plus qu'à le déplacer.

J'ai légèrement modifier le TableLayoutPanel
Colonne 1, Index 0 -> Un Label
Colonne 2, Index 1 -> Une Combobox
Colonne 3, Index 2 -> Un Label
Colonne 4, Index 3 -> Une Combobox
Colonne 5, Index 4 -> Un DateTimePicker
Colonne 6, Index 5 -> Une TextBox
Colonne 7, Index 6 -> Un Label
Colonne 8, Index 7 -> Un DateTimePicker
Colonne 9, Index 8 -> Une TextBox

Les colonnes 6 et 9, ont une taille de 0 pixels.

Et voici le code.

Code vb.net :

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
26
 
        '  _ Premier Groupe TextBox / DateTimePicker
        ' Mettre le DateTimePicker dans la colonne 6, index 5, ligne 0
        Me.TableLayoutPanel1.Controls.Add(Me.dtmpRecherche1, 5, 0)
        ' Masquer le DataTimePicker
        Me.dtmpRecherche1.Visible = False
 
        ' Mettre la TextBox dans la colonne 5, index 4, ligne 0
        Me.TableLayoutPanel1.Controls.Add(Me.txtRecherche1, 4, 0)
        ' Redimensionner la TextBox
        Me.txtRecherche1.Width = 167
        ' Afficher la TextBox
        Me.txtRecherche1.Visible = True
 
        '  _ Deuxième Groupe TextBox / DateTimePicker
        ' Mettre le DateTimePicker dans la colonne 9, index 8, ligne 0
        Me.TableLayoutPanel1.Controls.Add(Me.dtmpRecherche2, 8, 0)
        ' Masquer le DataTimePicker
        Me.dtmpRecherche2.Visible = False
 
        ' Mettre la TextBox dans la colonne 7, index 6, ligne 0
        Me.TableLayoutPanel1.Controls.Add(Me.txtRecherche2, 7, 0)
        ' Redimensionner la TextBox
        Me.txtRecherche2.Width = 167
        ' Afficher la TextBox
        Me.txtRecherche2.Visible = True

Et vice et versa.



Gwendal