Discussion :

[Poussera]

Dans un form , j'ai des textbox et des label. certains sont placés dans un GroupBox.
pour mettre le .Text ="" des controles j'ai écris:

Code :

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

1
2
3
4
5
6
7
8
9
 
    Private Sub Effacer_Les_Controles()
        Dim obj as Control
        For Each obj In Controls
            If TypeOf obj Is TextBox Then
                obj.Text = ""
            End If
        Next
    End Sub

Ca marche pas pour les TextBox qui sont dans le GroupBox
Merci de m'aider

[Piotrek]

Salut

Avec la recursivite:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Private Sub Effacer_Les_Controles(ByVal obj As Control)
        For Each obj In Controls
            If TypeOf obj Is TextBox Then
                obj.Text = ""
            Else
                If Not obj.Controls.Count = 0 Then
                    Effacer_Les_Controles(obj)
                End If
            End If
        Next
    End Sub

sache qu'une autre solution serait de mettre toutes les references de tes textbox dans un array de textbox: tu n'aurais pas a parcourir des controles inutiles

[Poussera]

Merci mais dans :

Code :

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

Effacer_Les_Controles(obj)

(obj) est souligné et une infobulle me dit "Arguments trop nombreux pour Effacer_Les_Controles()"

Comment mettre toutes les references des textbox dans un array de textbox ?

Merci

[Piotrek]

regarde mieux le code que j'ai mis:

Code :

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

1
2
 
Private Sub Effacer_Les_Controles(ByVal obj As Control)

La sub a change, pour mettre a "" tous les textbox d'un conteneur (ainsi que les textbox inclus dans les sous conteneurs) tu lance la sub ainsi:

Code :

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

1
2
 
Effacer_Les_Controles(LePanelOuIlyaTousLesTextBox)

Pour mettre les references dans un array rien de plus simple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'a la creation des textbox
Dim LesTextBox(15) as TextBox
LesTextBox(0) = textbox1
LesTextBox(1) = textbox2
...
 
'pour les effacer:
For i=0 to 15
    LesTextBox(i).Text = ""
Next

C'est leur reference que tu vas mettre dans l'array (LesTextBox(0) c'est textbox1, il y a juste deux manieres d'y acceder)

[Poussera]

Merci pour les infos.

Avec

Code :

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

Private Sub Effacer_Les_Controles(ByVal obj As Control)

j'ai une exception qui est levée

pourtant quand j'appelle la procédure j'indique :
"Effacer_Les_Controles(GroupBox1)"

Cette solution me plaisait bien mais finalement je vais opter pour l'array qui est plus simple.

[Poussera]

Bon finalement je crois que je vais pas mettre mes textbox dans des GroupBox.
La procédure (avec ta proposition de Array) les efface mais j'ai une autre procédure qui doit écrire dedans et elle ne marche plus!

[Piotrek]

fais voir un peu de code

[Poussera]

Le code quand je clic dans le datagrid (dg1). Ca marche si les textbox ne sont pas dans des groupbox

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
    Private Sub dg1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles dg1.Click
        Effacer_Les_Controles()
        Dim r, c
        c = 15  
        r = dg1.CurrentRowIndex
        On Error Resume Next
        For Each obj In Controls
            If TypeOf obj Is TextBox Then
                If dg1.Item(r, c) Is DBNull.Value Then
                Else
                    obj.Text = dg1.Item(r, c)
                    If obj.Text = "<NULL>" Then
                        obj.Text = ""
                    End If
                End If
                c = c - 1
            End If
        Next
    End Sub

Le code qui efface les contenu des TextBox (c'est mon code d'origine sans les modifs que tu m'as indiquées)

Code :

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

1
2
3
4
5
6
7
8
9
    Private Sub Effacer_Les_Controles()
        'la boucle efface le text des controles TextBox uniquement
        For Each obj In Controls
            If TypeOf obj Is TextBox Then
                obj.Text = ""
            Else
            End If
        Next
     End Sub

Merci pour ta patience je travaille avec vb.net depuis peu de temps

[Piotrek]

Avant de proposer une reponse

Tu cherches a faire quoi avec tes textbox?

On dirait que tu essaie de recreer le binding

Essaie ca et dis moi si c'est ce que tu cherche

Code :

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

1
2
 
UneTextbox.DataBindings.Add("Text", icitadatagrid.datasource, "iciLeNomDuChamp")

si c'est bien ca, va voir ce tuto
http://dotnet.developpez.com/cours/liaisonControles/

[Poussera]

Je vais essayé d'expliquer mon projet

C'est un petit prog de facturation clients

Sur mon Form il y a :
- des TextBox avec un binding lié à ma table FactureEnTete
- un DataGrid1 lié aussi à ma table FactureEnTete
- un DataGrid2 lié à ma table FactureDetail
- 3 Combobox liés à ma table FichierClients (1 avec CleCli, 1 avec NumCli et 1 avec NomCli)
- 1 MainMenu avec 2 sous-menus

les 2 sous-menus :
-Afficher toutes les factures. Ici j'affiche tous les entête de toutes les factures dans DataGrid1
-Afficher les factures d'un client. Ici j'affiche dans DataGrid1 tous les entête des factures du client sélectionné dans le Combobox.

Quand je clique sur une ligne du DataGrid1 j'affiche dans les TextBox l'entête de la facture sélectionnée et j'affiche dans DataGrid2 le détail des lignes de la facture.

Lors de chaque sélection d'un client dans les combobox, je fais un clear du dataset FactureEntete et un clear du dataset DetailFacture, je remets tous mes TextBox à "" et je réaffiche toutes les données de la facture sélectionnée.

Tous ça marche bien. Pour une question d'esthétique, j'aurais voulu mettre mes TextBox dans des GroupBox. Mes si je fais ça je ne peux plus les remettre à "" et je ne peux plus écrire dedans.

Voilà c'était un peu long mais j'ai tout expliqué

Merci encore

[Piotrek]

Ok je vois le systeme

Mais, si tes textbox sont bindes, tu n'as justement pas a changer leur valeur: un clear sur une datatable efface le contenu des textbox. Quand tu clique sur une ligne du datagrid, la textbox est mise a jour automatiquement en fonction de la bonne ligne

Donc theoriquement tu ne devrais pas avoir a gerer ca.

[Poussera]

Bon ben merci je vais revoir ça et je reviendrai si problème