Controle simple ou groupe ???Résolu

Question

Bonjour à tous

Comment faire pour savoir si j'ai affaire a un groupe de controle ou bien un controle seul ?
Car dans le code suivant, ça plante, quand la boucle tombe sur un controle sans index.

Dim Ctrl As Control
  
 For Each Ctrl In Me.Controls
 
   Print #10, Ctrl.Index
   Print #10, Ctrl.Name
   Print #10, Ctrl.Left
  
 Next

Merci de votre aide
Bonne journée

cs_andrebernard · Accepted Answer

Peut etre la solution la plus simple serait de les mettre tous en groupe, meme si y'a qu'un bouton, un shape.
Est ce que cela a une consequence de creer un groupe de controle dans lequel il n'y a qu'un seul element ???

jrivet · Answer

Salut,
Tu peux toujours ignorer l'erreur

Dim Ctrl As Control

For Each Ctrl In Me.Controls
   On Error Resume Next
       Print #10, Ctrl.Index
   On Error GoTo 0
   Print #10, Ctrl.Name
   Print #10, Ctrl.Left
Next, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut,

Ben gére l'erreur dans ce cas....

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Jrivet (salut) >> Arffff....6 secondes dans la vu, et en plus en tapant le code....

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_andrebernard · Answer

Merci de vos réponses.
Mais il n'y a aucun moyen de savoir quel type de controle c'est, sans avoir a gerer l'erreur ?

cs_Exploreur · Answer

Salut,

Si, en prenant bien soin de nommées justement tes contrôles...

Exemple parmis tant d'autres :

Label >> Lbl_Toto
TextBox >> Txt_Toto

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Re,

Ou alors tu peux faire ce genre de boucle :

          
          Dim Ctrl As Control
         
          For Each Ctrl In MyForm
                 If TypeOf Ctrl Is Label Then ' Si c'est un label, continu
                     MsgBox Ctrl.Name 
                 End If
             Next Ctrl

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_andrebernard · Answer

J'suis damné ....
Parce qu'en plus j'ai un bouton qui est seul et un groupe de bouton sur la meme FORM
C'est ça qui me créé l'erreur

cs_MPi · Answer

Tous les contrôles peuvent avoir un Index même s'ils sont seuls dans leur groupe.

MPi

cs_andrebernard · Answer

Bon bah, je vous remercie.
Je vais adopter cette solution.
J'ai transformé tous les controles de ma form en groupes, qu'il y ai 1 ou plusieurs controles.
Apres ça, l'appel controle.index ne plante evidement plus.
C'est une demi solution, mais elle marche.

Encore merci de votre aide

Controle simple ou groupe ???

10 réponses

Votre réponse

Discussions similaires