[VB.NET] Controles dans un GroupBox

Version imprimable

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:

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

Salut

Avec la recursivite:
Code:

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

14/10/2004, 11h46
Poussera

Merci mais dans :

Code:

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
14/10/2004, 11h58
Piotrek
regarde mieux le code que j'ai mis:
Code:

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:

1 2 Effacer_Les_Controles(LePanelOuIlyaTousLesTextBox)
Pour mettre les references dans un array rien de plus simple:
Code:

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)
14/10/2004, 13h01
Poussera

Merci pour les infos.

Avec

Code:

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.
14/10/2004, 13h17
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!
14/10/2004, 13h24
Piotrek

fais voir un peu de code

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

Code:

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:

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

15/10/2004, 08h11
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:

1 2 UneTextbox.DataBindings.Add("Text", icitadatagrid.datasource, "iciLeNomDuChamp")
si c'est bien ca, va voir ce tuto
http://dotnet.developpez.com/cours/liaisonControles/
15/10/2004, 12h04
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
15/10/2004, 12h29
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. :?
15/10/2004, 12h54
Poussera

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