Discussion :

[RideKick]

Bonjour ,

Je ne trouve pas la solution a un de mes problèmes :

J'aimerais changer le texte affiché pour tout les contrôles d'un formulaire , via une boucle (pour éviter de tous me les taper a la main évidement.)

Donc je fais

Code :

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

1
2
3
 For Each ctrl As Control In form
           ctrl.Text = "coucou"
 Next

hors avec un tel code , je n'accède qu'au boutons qui sont sur mon formulaire , j aimerais impacter aussi les colonnes des datagrid , les menus de menustrip etc ....

Si vous avez des idée , suggestions je suis preneur .

merci

[Pol63]

il va falloir écrire un peu plus de code que ca
déjà parce que les colonnes ne sont pas des controles, les cellules non plus, c'est le dgv qui s'occupent de faire leur affichage

il faut aussi faire une sub récursive, car des controles peuvent avoir des controles sur eux ... (panel et autre groupbox surtout)

donc je te propose une sub récursive avec en paramètre un controle, pour démarrer tu donneras me
et pour chaque controle de .controls, tu appelles à nouveau la sub et tu fais un traitement selon le type de controle
if typeof datagridview (à coder)
if typeof machin
ou sinon modifier .text

[RideKick]

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each ctrl As Control In form
            If (ctrl.Controls.Count > 0) Then
                Select Case TypeOf(ctrl) Is
                    Case DataGridView
                        fonction(...)
                End Select
            Else
                ctrl.Text = "coucou"
            End If
        Next

Dans ce style ?

[Pol63]

non, plutot :

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
 
 Public Sub ChTexteCtrls(ByVal ctrl As System.Windows.Forms.Control)
 
        For Each c As System.Windows.Forms.Control In ctrl.Controls
            ChTexteCtrls(c)
 
            If TypeOf c Is System.Windows.Forms.DataGridView Then
                ChTexteDGV(DirectCast(c, System.Windows.Forms.DataGridView))
                Continue For
            End If
 
            ' teste si typeof Menu (ou autre)
 
 
            'tous les tests ont fait continue for donc les cas restants on modifie .Text
            c.Text = ""
 
        Next
 
    End Sub
 
    Private Sub ChTexteDGV(ByVal d As System.Windows.Forms.DataGridView)
 
    End Sub

si t'es sur une form, tu appelles ChTexteCtrls(me) et après c'est récursif
et sinon le TypeOf n'accepte pas d'être dans un select case je crois ...

[RideKick]

non, plutot :

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
 
 Public Sub ChTexteCtrls(ByVal ctrl As System.Windows.Forms.Control)
 
        For Each c As System.Windows.Forms.Control In ctrl.Controls
            ChTexteCtrls(c)
 
            If TypeOf c Is System.Windows.Forms.DataGridView Then
                ChTexteDGV(DirectCast(c, System.Windows.Forms.DataGridView))
                Continue For
            End If
 
            ' teste si typeof Menu (ou autre)
 
 
            'tous les tests ont fait continue for donc les cas restants on modifie .Text
            c.Text = ""
 
        Next
 
    End Sub
 
    Private Sub ChTexteDGV(ByVal d As System.Windows.Forms.DataGridView)
 
    End Sub

si t'es sur une form, tu appelles ChTexteCtrls(me) et après c'est récursif
et sinon le TypeOf n'accepte pas d'être dans un select case je crois ...

merci beaucoup je vois plus clair , et effectivement datagridview n'accepte pas trop d'etre dans un select case.