begin process at 2012 02 16 16:22:51
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

Incrémenter un objet ? (urgent)


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Incrémenter un objet ? (urgent)

mercredi 28 mai 2003 à 09:54:16 | Incrémenter un objet ? (urgent)

lock07

Salut à tous, j'ai une petite question !
J'ai créé dans un formulaire une série de label nommés Étiquette1, Étiquette2...
Je voudrais pouvoir faire un controle pour ensuite remplir la couleur du labal. Le pb c que je dois passer dans un For pour éviter de passer 3 heures à faire mes 50 000 lignes de codes.
Donc faudrait un truc dans le genre :
dim i as integer
for i=1 to 50
Étiquette&i.backcolor=255
next i
mais ça marche pas ! si vous avez une solution, ça m'arrangerait merci ^_^


Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
mercredi 28 mai 2003 à 11:10:18 | Re : Incrémenter un objet ? (urgent)

pcpunch

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



-------------------------------
Réponse au message :
-------------------------------

> Salut à tous, j'ai une petite question !
> J'ai créé dans un formulaire une série de label nommés Étiquette1, Étiquette2...
> Je voudrais pouvoir faire un controle pour ensuite remplir la couleur du labal. Le pb c que je dois passer dans un For pour éviter de passer 3 heures à faire mes 50 000 lignes de codes.
> Donc faudrait un truc dans le genre :
> dim i as integer
> for i=1 to 50
> Étiquette&i.backcolor=255
> next i
> mais ça marche pas ! si vous avez une solution, ça m'arrangerait merci ^_^
>
>
> Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
mercredi 28 mai 2003 à 11:15:40 | Re : Incrémenter un objet ? (urgent)

lock07

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


-------------------------------
Réponse au message :
-------------------------------

> 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
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Salut à tous, j'ai une petite question !
> > J'ai créé dans un formulaire une série de label nommés Étiquette1, Étiquette2...
> > Je voudrais pouvoir faire un controle pour ensuite remplir la couleur du labal. Le pb c que je dois passer dans un For pour éviter de passer 3 heures à faire mes 50 000 lignes de codes.
> > Donc faudrait un truc dans le genre :
> > dim i as integer
> > for i=1 to 50
> > Étiquette&i.backcolor=255
> > next i
> > mais ça marche pas ! si vous avez une solution, ça m'arrangerait merci ^_^
> >
> >
> > Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
>
mercredi 28 mai 2003 à 11:26:30 | Re : Incrémenter un objet ? (urgent)

lock07

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 !



Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet


-------------------------------
Réponse au message :
-------------------------------

> 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
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > 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
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Salut à tous, j'ai une petite question !
> > > J'ai créé dans un formulaire une série de label nommés Étiquette1, Étiquette2...
> > > Je voudrais pouvoir faire un controle pour ensuite remplir la couleur du labal. Le pb c que je dois passer dans un For pour éviter de passer 3 heures à faire mes 50 000 lignes de codes.
> > > Donc faudrait un truc dans le genre :
> > > dim i as integer
> > > for i=1 to 50
> > > Étiquette&i.backcolor=255
> > > next i
> > > mais ça marche pas ! si vous avez une solution, ça m'arrangerait merci ^_^
> > >
> > >
> > > Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
> >
>
mercredi 28 mai 2003 à 11:45:49 | Re : Incrémenter un objet ? (urgent)

UnExPeCtEdSpy

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+

,.~*`'^~.(^. .^),.~^'`*~.


-------------------------------
Réponse au message :
-------------------------------

> 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 !
>
>
>
> Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > 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
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > 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
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Salut à tous, j'ai une petite question !
> > > > J'ai créé dans un formulaire une série de label nommés Étiquette1, Étiquette2...
> > > > Je voudrais pouvoir faire un controle pour ensuite remplir la couleur du labal. Le pb c que je dois passer dans un For pour éviter de passer 3 heures à faire mes 50 000 lignes de codes.
> > > > Donc faudrait un truc dans le genre :
> > > > dim i as integer
> > > > for i=1 to 50
> > > > Étiquette&i.backcolor=255
> > > > next i
> > > > mais ça marche pas ! si vous avez une solution, ça m'arrangerait merci ^_^
> > > >
> > > >
> > > > Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
> > >
> >
>
mercredi 28 mai 2003 à 11:47:27 | Re : Incrémenter un objet ? (urgent)

UnExPeCtEdSpy

Errata dans le 2) le for devra commencer a 1 car l'index zero existe déjà
,.~*`'^~.(^. .^),.~^'`*~.


-------------------------------
Réponse au message :
-------------------------------

> 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+
>
> ,.~*`'^~.(^. .^),.~^'`*~.
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > 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 !
> >
> >
> >
> > Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > 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
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > 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
> > > >
> > > >
> > > >
> > > > -------------------------------
> > > > Réponse au message :
> > > > -------------------------------
> > > >
> > > > > Salut à tous, j'ai une petite question !
> > > > > J'ai créé dans un formulaire une série de label nommés Étiquette1, Étiquette2...
> > > > > Je voudrais pouvoir faire un controle pour ensuite remplir la couleur du labal. Le pb c que je dois passer dans un For pour éviter de passer 3 heures à faire mes 50 000 lignes de codes.
> > > > > Donc faudrait un truc dans le genre :
> > > > > dim i as integer
> > > > > for i=1 to 50
> > > > > Étiquette&i.backcolor=255
> > > > > next i
> > > > > mais ça marche pas ! si vous avez une solution, ça m'arrangerait merci ^_^
> > > > >
> > > > >
> > > > > Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet
> > > >
> > >
> >
>
lundi 2 juin 2003 à 15:10:33 | Re : Incrémenter un objet ? (urgent)

lock07

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
mercredi 4 juin 2003 à 00:55:38 | Re : Incrémenter un objet ? (urgent)

rene38

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


-------------------------------
Réponse au message :
-------------------------------

> 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
>


Cette discussion est classée dans : urgent, objet, for, passer, incrémenter


Répondre à ce message

Sujets en rapport avec ce message

urgent : incrémenter objet vba [ par ChtiBreizh ] bonjour,je souhaiterai automatiser une action sur plusieurs objets créés dans un document Word. Ex: for i=1 to nMaForms.Controls("TextBox" & i).Visibl URGENT : erreur 429 sur creation d'objet appaccess [ par erickup ] après avoir vu dans le forum les 171 messages sur le sujet, je n'ai pas trouvé la réponse.Dans l'environnement de développement ca marche tres bien, m Objet, OLE, etc big question ???? URGENT! [ par 28marc28 ] Salut tout le monde,Je suis en train de faire un soft pour un client j'aurai besoin d'inclure le programme d'une autre Société (*.exe) sur une de mes URGENT !!! Personne peut m'aider ??? [ par cyberlulu ] Salut !Je travaille sur excel. J'ai ajouté un graph sur une nouvelle feuille. Sur la feuille 1, j'ai mis un bouton pour passer sur la feuille graph1 : OBJET MICROSOFT GRAPH URGENT [ par corbier123 ] Bjr est-ce que qq'un auré de la doc sur les objets Microsoft Graph pour accéder au différents attributs qui le compose parce que je dois à partir d'un URGENT§§OBJET MICROSOFT GRAPH [ par corbier123 ] Bjr est-ce que qq'un auré de la doc sur les objets Microsoft Graph pour accéder au différents attributs qui le compose parce que je dois à partir d'un urgent:ct passer de twip en cm ou pixel? [ par yafisab ] je cherche sous access à créer des label dans un report en les positionnant en pixel ou en cm, mais tout ce qui marche c en twip...et ca m'agace car d Passer un objet en parametre [ par dinytro ] BonjourJe voudrais passer en parametre d'une procedure un noeud d'un treeview et en particulier celui qui est selectionne.Je procede comme suit :----- fscommand Flash et VB - for Star only [ par kuss ] Je cherche depuis bien longtemps maintenant a savoir comment VB peut envoyer une commande a flash.Je sais comment passer de Flash a VB mais impossible Comment faire pour faire passer des donnée de vb dans Word ? Urgent [ par Fredo ] J'aimerai imprimer des donnes de VB dans Word pour faire une mise en page de mes données. (ne pas utiliser cristal report car je n'arriverai pas a fai


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,997 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales