question de n00b groupe de controles

Question

bijour c'est de nouveau moi :p
je suis un n00b donc dsl pour cette question sûrment hyper simple pour vous (mais répondez y quand meme^^)
donc la question c'est : comment faire une action pour tout un groupe de controle ?

Label1(*pour tous les label de 1 à 16 comment faire ?*).caption = "bla bla bla"

cs_Jack · Answer

Salut consiliblob 
Si tu envisages de faire des manips sur des séries d'objet, il vaut mieux les indexer : ils auront tous le même nom, mais on pourra leur parler grace à un chiffre :
Pour indexer :
- Créé un premier Label1
- Dans la propriété Index, mets lui 0 (zéro)
- Ensuite, fais un copier coller de ce label1.
Tu auras 16 fois le Label1 avec les index 0 à 15 (l'indexation peut commencer à 1, mais en cas de "coller", VB cherche le premier index dispo et c'est 0 -> change-le après avoir coller tous tes labels)

Ensuite, pour modifier le contenu de tes 16 Label1 :
For r = 0 to 15
   Label1(r).Caption = "Bla bla bla"
Next r
Si tu n'indexes pas tes contrôles, ça va être plus cotton :
On va supposer qu'ils s'appellent Label1, Label2, ..., Label16
Pour modifier le contenu de ces 16 Label là :
Dim xx As Object, Temp As String
For Each xx In Me
   Temp = xx.Name
   If Temp Like "Label*" Then
      Temp = Mid(Temp, 6)  ' Prend les caractères après Label
      If Val(Temp) >= 1 And Val(Temp) <= 16 Then _
          xx.Caption = "hhh"
   End If
Next
Nota : Il n'est pas possible d'indexer les objets sous VBA de Excel, Word ou Access --> ça ne marche que sous VB6 (et .Net)

Vala
Jack

consiliblob · Answer

Merci pour tes explications Jack, c'est certes beaucoup plus simple comme ca
For r = 0 to 15
Label1(r).Caption = "Bla bla bla"
Next r

consiliblob · Answer

C'est bon, mais j'ai encore une question: comment faire un truc du genre (lol je ne sais pas comment expliquer)

For r = 0 to 15  +  17 To 32  'comment faire ????
Label1(r).Caption = "Bla bla bla"
Next r

jissehem2 · Answer

fais simple :

For r = 0 to 32 
Label1(r).Caption = "Bla bla bla"
Next r 
Label1(16).caption=""   'Chaîne vide ou ce que tu veux d'autre

Ou encore (s'il faut vraiment pas toucher au r=16):

For r = 0 to 32 
  if r<>16 then 
    Label1(r).Caption = "Bla bla bla"
  end if
Next r

Question de n00b groupe de controles

4 réponses

Discussions similaires