Discussion :

[sozie9372]

Salut !

Bon voila mon souci... J'ai plusieurs contrôles (essentiellement des Boutons et des ComboBox) placés sur ma form. Certains sont des contrôles seuls et uniques et d'autres sont regroupés en tableaux de contrôles.
Bref, pour parcourir mon ensemble de contrôles, je fais une boucle sur la collection Form.Controls. Le rpoblème, c'est que je ne trouve pas de moyen de tester si le contrôle en cours fais partie d'un tableau ou non.
Si je demande d'afficher c.Index, j'obtiens une erreur "Not an Array" (Normal...). N'y a t'il pas un moyen de contourner ca ?

Code :

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

1
2
3
4
5
6
7
8
9
 
    Dim c As Control
 
    For Each c In Form1.Controls
        If TypeOf c Is CommandButton Or TypeOf c Is ComboBox Then
                ' Ici un pti traitement...
                MsgBox c.Name & " " & c.Index ' Si le contrôle n'a pas d'index c'est le drame...
        End If
    Next c

NB : J'ai essayé avec isArray(c) sans succès. Il est même impossible de faire un test sur c.Index...
bref je suis perdu
Merci d'avance
+++
Ju

[Catbull]

La gestion des exceptions (On Error) devrait pouvoir résoudre ton problème.

[sozie9372]

Je venais d'essayer... Malheureusement, soit je m'y pred mal, soit ca ne fonctionne vraiment pas...
Voici comment j'ai procédé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim c As Control
On Error GoTo errhandler
    For Each c In Form1.Controls
        If TypeOf c Is CommandButton Or TypeOf c Is ComboBox Then
              MsgBox c.Name & " " & c.Index           
errhandler:
            If Err.Number = 343 Then ' Si on tombe fasse à l'erreur "Not an Array"
              MsgBox c.Name & " et pas d'index..."               
            End If
        End If
    Next c

Il ne semble pas rendtrer dans mon handler car j'ai toujours l'erreur...
J'espère que c'est moi qui m'y prend mal...

Merci de t'être penché sur mon problème...
+++
Ju

[Catbull]

Tu t'es juste emmelé les crayons dans le On Error Goto. Il vaut mieux utiliser dans ton cas un On Error Resume Next. Ou alors déléguer le test à une fonction de ton cru. Voici un exemple :

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
 
Private Sub Command1_Click()
    Dim C As Control
 
    For Each C In Form1.Controls
        If isGroupe(C) Then
            MsgBox "Index du controle " & C.Name & " : " & C.Index
        Else
            MsgBox "Le controle " & C.Name & " n'a pas d'index"
        End If
    Next C
End Sub
 
Private Function isGroupe(C As Control) As Boolean
    On Error Resume Next
    isGroupe = (C.Index >= 0)
End Function

[sozie9372]

Super !!!!!! Ca à l'air de fonctionner !!!! Je vais faire des tests plus approfondis maintenant...
Merci beaucoup !
+++
Ju
PS : Etant donné que les informations sont rares sur la gestion des contrôles dynamiques... Ca ne serait pas possible de rajouter un petit Topic dans la FAQ sur ce type de problème (non pas sur l'ajout qui y est déjà mais sur la gestion/récupération de données/suppression...)?

[Catbull]

PS : Etant donné que les informations sont rares sur la gestion des contrôles dynamiques... Ca ne serait pas possible de rajouter un petit Topic dans la FAQ sur ce type de problème ?

Biensûr que c'est possible . Les rédacteurs se font rare. Si le sujet d'interesse et que le coeur d'en dit, tu peux écrire un article sur la gestion des contrôles dynamique et nous le publieront dans la Faq

[sozie9372]

Okay ! Je vais me pencher sur le problème alors !
+++
Ju