Incrémenter un objet ? (urgent)
lock07
Messages postés
18
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
11 août 2004
-
28 mai 2003 à 09:54
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 4 juin 2003 à 00:55
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 4 juin 2003 à 00:55
7 réponses
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
5
28 mai 2003 à 11:10
28 mai 2003 à 11:10
met un index 0 au premier label et ainsi de suite pour les autres....1,2,3,4
ensuite la boucle avec
label(i).backcolor=??
normalement ca marche
ensuite la boucle avec
label(i).backcolor=??
normalement ca marche
lock07
Messages postés
18
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
11 août 2004
28 mai 2003 à 11:15
28 mai 2003 à 11:15
Ah merde j'aurais pu y penser...
Merci, je vais tester ça tout de suite ! ^_^
Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
Merci, je vais tester ça tout de suite ! ^_^
Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
lock07
Messages postés
18
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
11 août 2004
28 mai 2003 à 11:26
28 mai 2003 à 11:26
Ben ça marche pas :(
j'ai fait ça :
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
Étiquette(i).Caption = "Bouh"
Next i
End Sub
et il me sort que Etiquette n'est pas une fonction valide... j'ai du mal comprendre ce que tu voulais me dire, désolé, tu pourrais esayer de préciser STP ! :big)
Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
j'ai fait ça :
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
Étiquette(i).Caption = "Bouh"
Next i
End Sub
et il me sort que Etiquette n'est pas une fonction valide... j'ai du mal comprendre ce que tu voulais me dire, désolé, tu pourrais esayer de préciser STP ! :big)
Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
UnExPeCtEdSpy
Messages postés
139
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
3 juillet 2003
28 mai 2003 à 11:45
28 mai 2003 à 11:45
La methode d'indexage consiste a utilisé la propriété Index d'un control (ici de ton label) :
1)soit tu créais toi meme tes x labels en modifiant le champ Index a la mano, en métant de 0 a x-1
et tu fais ta boucle comme tu as fait
'x nombre de label
Dim i As Integer
For i = 0 To x - 1
Label(i).Caption = "Bouh"
Next i
2)soit tu créais un seul label et tu mets le champs Index a 0
et tu utilise le load pour les cloner
'x nombre de label
Dim i As Integer
For i = 0 To x - 1
Load Label(i)
Label(i).left = Label(i).left + Label(i).width 'etcc mise en forme
Label(i).Caption = "Bouh"
Next i
A+
,.~*`'^~.(^. :question) .^),.~^'`*~.
1)soit tu créais toi meme tes x labels en modifiant le champ Index a la mano, en métant de 0 a x-1
et tu fais ta boucle comme tu as fait
'x nombre de label
Dim i As Integer
For i = 0 To x - 1
Label(i).Caption = "Bouh"
Next i
2)soit tu créais un seul label et tu mets le champs Index a 0
et tu utilise le load pour les cloner
'x nombre de label
Dim i As Integer
For i = 0 To x - 1
Load Label(i)
Label(i).left = Label(i).left + Label(i).width 'etcc mise en forme
Label(i).Caption = "Bouh"
Next i
A+
,.~*`'^~.(^. :question) .^),.~^'`*~.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
UnExPeCtEdSpy
Messages postés
139
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
3 juillet 2003
28 mai 2003 à 11:47
28 mai 2003 à 11:47
Errata dans le 2) le for devra commencer a 1 car l'index zero existe déjà
,.~*`'^~.(^. :question) .^),.~^'`*~.
,.~*`'^~.(^. :question) .^),.~^'`*~.
lock07
Messages postés
18
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
11 août 2004
2 juin 2003 à 15:10
2 juin 2003 à 15:10
C'est bon j'ai trouvé un autre moyen, si ça vous interresse :
For j = 1 To 100
Controls("Étiquette" & j).BackColor = couleur
Next j
Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
For j = 1 To 100
Controls("Étiquette" & j).BackColor = couleur
Next j
Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
4 juin 2003 à 00:55
4 juin 2003 à 00:55
Bonjour
Autre solution pour changer la couleur de fond de TOUS les labels :
Dim x As Control
For Each x In Me
If TypeOf x Is Label Then x.BackColor = vbRed
Next
Autre solution pour changer la couleur de fond de TOUS les labels :
Dim x As Control
For Each x In Me
If TypeOf x Is Label Then x.BackColor = vbRed
Next