Discussion :

[rolototo]

salut
je cherche a créer une base de donnée qui contient tout les controles qui se trouve dans une form.

Code :

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

1
2
3
4
 
for each control in MaForm.Controls
...
Next

Mon probleme est que je n'arrive pas a faire la différence entre un controle qui se trouve dans une collection ( MonControle1(index) ) et un qui ne s'y trouve pas ( MonControle2 )

[bidou]

un controle d'une collection à sa propriété index définie

[rolototo]

oui mais si on invoque la propriete index alors que le controle ne fait pas partie d'une collection le programme plante

[bidou]

Donc il suffit d'intercepter l'exception

[Le Pharaon]

Ce n'est pas aussi facile qu'on le croit.
Ton problème c'est de savoir si un contrôle appartient à une collection ou pas. La différence entre les contrôles qui appartiennent à une collection et ceux qui n'appartiennent pas à une collection est la suivante : les premiers ont une propriété index et les seconds n'en n'ont pas. Je crois que tu me comprends.
Il suffit dans ce cas de chercher une fonction qui te permet de savoir si un controle à une propriété index ou pas :

Je te propose ceci :

Code :

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

1
2
3
4
5
6
Public Function PropertyExists(ByRef o As Object, ByVal nomPropriete As String) As Boolean
    On Error Resume Next
    CallByName o, nomPropriete, VbGet
    PropertyExists = (Err.Number = 0)
End Function
C'est une fonction qui te permet de tester si un contrôle a une propriété donnée

et au moment de l'appel

Code :

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

1
2
3
4
5
6
 
for each control in MaForm.Controls 
  If PropertyExists(control, "Index") Then
     ' tu fais ce que tu veux 
  End If
next

[rolototo]

merci bujuman pour ton aide c'etait bien ca mon pb

[bidou]

C'est beau mais ce n'est pas performant. Tu obtiens la même chose avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim MonControl As Control
 
For Each MonControl In Me.Controls
    On Error Resume Next
    If IsError(MonControl.Index) Then
        MsgBox "pas collection"
        Err.Clear
    Else
        MsgBox "collection"
    End If
Next
On Error GoTo 0