iteration avec des picturebox

Question

Bonjour,

Voila mon probleme, j'ai une page avec enormement de picturebox. Ceux-ci sont tous nomm&#233;s de facon methodique comme "S1Z0C0","S1Z0C1","S1Z1C0","S1Z1C1". Dans mon programme ils peuvent prendre 2 couleurs qui correspondent &#224; la valeur de 1 ou 0 dans un tableau. Mon probleme est que lorsque je fais apparaitre la page les picturebox sont tous de meme couleurs. Je voudrais pouvoir leur donner la couleur qui leur correspond en fonction de la valeur contenu dans le tableau mais sans etre oblige de faire un If ... Then pour chaque picturebox. Comment pourrais-je faire pour faire passer cela dans une boucle ou seul la 4&#176; et 6&#176; lettre de "S1Z0C0" par exmple changent.

Ex:
dim quatrieme_lettre as integer
dim sixieme_lettre as integer
dim variable_tableau
quatrieme_lettre =0
sixieme_lettre=0
variable_tableau=0
do
   if tab(variable_tableau)=1 then
      S1Z"quatrieme_lettre"C"sixieme_lettre"= &H80000005&
   else:
       S1Z"quatrieme_lettre"C"sixieme_lettre"= 255
   end if    
   quatrieme_lettre= quatrieme_lettre+1
   if quatrieme_lettre=6 then
      sixieme_lettre=sixieme_lettre+1
   end if
   variable_tableau=variable_tableau+1
Loop variable_tableau = 70

Merci pour votre aide
ffaabbss

econs · Answer

Execute ce petit code. Je pense que tu sauras en faire quelque chose.





Dim ctl As Control



    For Each ctl In Form1.Controls

        If TypeOf ctl Is PictureBox Then

            MsgBox ctl.Name

        End If

    Next ctl

    

    


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

Bon, j'ai eu le temps d'am&#233;liorer un peu le truc :







Dim ctl As Control

Dim quatrieme As String

Dim sixieme As String



    For Each ctl In Form1.Controls

        If TypeOf ctl Is PictureBox Then

            quatrieme = Mid$(ctl.Name, 4, 1)

            sixieme = Mid$(ctl.Name, 6, 1)

            If quatrieme "0" And sixieme "0" Then

                ctl.BackColor = vbRed

            End If

            If quatrieme "1" And sixieme "0" Then

                ctl.BackColor = vbBlue

            End If

            

            ' ...

            

        End If

    Next ctl

    

    




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

ffaabbss · Answer

Merci, ca marche nickel

Iteration avec des picturebox

3 réponses

Discussions similaires