begin process at 2010 02 10 04:49:24
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

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

 > 

for each object


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

for each object

samedi 6 mai 2006 à 10:50:04 | for each object

ozexperience

bonjours
jai creer une matrice de 5x7 points a laide dimage
a la base elles sont blanches et quand on click dessus elles deviennent noir (pour chaque image separement)
jaurait voulut tester la couleur de chaque image a laide dun bouton
seulement come il y a 35 images c un peu lourd de tester pour chaque
jaurait donc voulut faire un :
for each image
    tester la couleur
next
merci davance
etudiant en elec et prog
samedi 6 mai 2006 à 11:17:44 | Re : for each object

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
As tu essayé un :

Dim image as object

for each image In Image1
    If image.BackColor = vbWhite Then
       'elle est blanche
    else
       'elle est noire
    end if

next image

_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
samedi 6 mai 2006 à 12:42:19 | Re : for each object

ozexperience

merci de ta reponse mais ca ne marche pas
lobjet ne supporte pas la methode ou la propriete
le nom de mes image c'est : Image1 a Image35
donc pour chaque image je voudrait faire un test
dans une boucle car si je fais pour chaque image , le code devient lourd
merci
samedi 6 mai 2006 à 14:08:15 | Re : for each object

Galain

Membre Club
Réponse acceptée !
Salut

Met tes 35 images dans un groupe de contrôles de Image(1) à Image(35)

for i% = 1 to 35
    If image(i%).BackColor = vbWhite Then
       'elle est blanche
    else
       'elle est noire
    end if

next i%

GRENIER Alain[8D]
samedi 6 mai 2006 à 14:24:41 | Re : for each object

PCPT

Administrateur CodeS-SourceS
salut,
.... depuis quand l'objet image a une propriété BackColor ?!
tu lui mets une image noire ou blanche? tu as inversé image et picturebox ?
il faut préciser stp.

avec une picturebox çà donnerait :

Dim Ctrl As Object 
'
For Each Ctrl In Me 
    
If TypeOf Ctrl Is PictureBox Then 
        
If Ctrl.BackColor = vbWhite Then 
           'elle est blanche
        
Else 
           'elle est noire
        
End If 
    
End If 
Next Ctrl 
 


Coloration syntaxique automatique [AFCK]
       

PCPT   [AFCK]
samedi 6 mai 2006 à 14:27:17 | Re : for each object

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
Arf, oui, forcément : Backcolor n'est pas une propriété d'Image ;)

Donc en fait, faut passer par une autre propriétés pour savoir si l'image est blanche ou noire : passe par la propriété tag par exemple.

Lorsque l'utilisateur clique dessus, passe le tag à "blanc" ou "noir" puis teste la valeur du tag dans ta boucle, tout simplement.

_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
samedi 6 mai 2006 à 16:00:37 | Re : for each object

ozexperience

salut
merci pour vos reponse ca fais vraiment plaisir
mais g tj un prob car alain ta reponse me convenai parfaitement mais seulement je programme sous excel car je nest pas vb et donc il nest pas possible de faire des groupe de controle
quand je renome une image sous le mm nom qune autre il me dit nom ambigu et c tous g pas le choix
donc tj en suspant
encore merci pour vos reponse si rapide


samedi 6 mai 2006 à 17:06:14 | Re : for each object

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
Bah si tu peux pas faire de groupe de contrôle, alors faut utiliser la méthode de PCPT : parcourir tout les controls de ta feuille, et tester s'il s'agit d'une image ou non, et tester le nom de celle-ci avant d'enfin pouvoir tester la couleur stockée dans le tag.

Du coup, une simple boucle For i = 0 to 35 ne sera pas adaptée.

_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx


Cette discussion est classée dans : image, tester, for, each, object


Répondre à ce message

Sujets en rapport avec ce message

Help for image!... [ par jia2812 ] Slt le monde des VB!..Sinon, je sais ke VB est compatible avec certains types de format d'images, mais autrement dit, y aurait possibilités de faire 1 boucle for each [ par Enzino ] Quelqu'un pourrait-il m'expliquer comment fonctionne la boucle for each dans Access ??for each xxxx in xxxxnextCe sont les xxx que je ne comprends p For Each Excel.Sheets In excel97.Application.ActiveWorkbook [ par Charlie ] Allo... je veux boucler sur toute les sheets de mon workbooks Excel mais je ne sais pas comme le faire...Quelqu'un sait comment??? Type incompatible avec "For Each Toolbar In frmMain.Controls" ?! [ par FredT ] J'ai un bug bizarre et je comprends pas pourquoi : Je veux faire la liste de toutes les barres d'outils de frmMain dans ma source "DevLibrary". (pour HELP!! [ par tutut ] For Each CommandButton In Medd = CommandButton.Widthdd = dd + 50CommandButton.Width = ddNextCe code marche,For Each CommandButton In Medd = CommandBut for each next [ par gitan ] Mais qu'est ce qu'il se passe ??Je ne peux plus utiliser la structure for each next sans qu'il me repousse d'un dédaigneux "type mismatch" en souligna Collection [ par cheche ] Bonjour,je créé une collection dans laquelle je voudrais mettre trois type d'objets que j'ai créé.Ensuite je veux parcourir la collection avec des "fo boucle for each, recuperer l'adresse d'une cellule sous excel [ par vincent82 ] bonjourvoila ma question :j'effectue une boucle for each sur un range de cellulesfor each valeur in range("A1:A7")valeur contient alors successivement VB6 vers VBA [ par dany108 ] Bonjour à tous.J'utilise ce code sous VB6 pour lister les imprimantes disponibles :For Each X In Printers ListeImprimante.AddItem X.DeviceNameNextje for each macro ......comment on fait ??? [ par gnosis35 ] voilà le pb j'aimerai faire un traitement pour chaque macro d'une feuille...genre :for each ???? 'macro//traitementnext macro en fait ici.....mais je


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

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 : 0,562 sec (3)

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