PictureBox en VB.Net, Affichage image plusieurs foisRésolu

Question

En VB.Net, avec le code ci-dessous, je pensais afficher "image.bmp" &#224; chaque boucle du code (5 fois).
En fait je n'affiche qu'une seule image, la derni&#232;re de la boucle.
Question : Comment afficher l'image &#224; chaque boucle? D'avance Merci !!

    Dim i As Integer
    for i = 1 to 
5
         PictureBox1.Image = Image.FromFile("image.bmp")
         PictureBox1.
Left = PictureBox1.Left + 20
         i = i + 1
   next i 


 Dbigand

cs_liquide · Accepted Answer

salut, j'envoi un code a l'etat brut avec timer et panel


Public Class Test1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
 Button1.Click


   Dim i As Integer


      For i = 0 To
 4


         Dim p As New
 Panel


         With
 p


            .Parent = 
Me


            .Top = 0


            .Left = 30 + (i * 2)


            .Height = 100


            .Width = 100


            .BackColor = Color.AliceBlue


            .BorderStyle = BorderStyle.FixedSingle


            .Visible = 
True


         End With


   Next


   Timer2.Interval = 500


   Timer2.Start()


End Sub


Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
 Timer2.Tick


   Dim p As
 Panel


   Dim C As Object


      For Each C In Me
.Controls


            If TypeOf C Is Panel Then


               p = 
CType(C, Panel)


                  With
 p


                     .Top = 0


                     .Left = .Left + 30


                     .Height = 100


                     .Width = 100


                     .BackColor = Color.AliceBlue


                     .BorderStyle = BorderStyle.FixedSingle


                     .Visible = 
True


                  End With


               End If


            Next


End 
Sub


End Class


[mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide

sebmafate · Answer

il faut recr&#233;er un objet &#224; chaque boucle.

sinon tu ne fais que d&#233;placer le premier controle.

S&#233;b
   
   

S&#233;bastien FERRAND
Blog : 
http://blogs.developpeur.org/sebmafate

valtrase · Answer

Salut,
Soit tu recr&#233; soit tu temporises pour pouvoir l'affich&#233;e donc tu int&#232;gres un timer dans ta boucle.
Tu veux donner une impression de d&#233;placement ?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

dbigand · Answer

Mer&#231;i pour vos r&#233;ponses. C'est tr&#232;s rapide !
En fait, je suis un amateur en retraite (un peu averti quand m&#234;me) qui se lance dans VB.Net.

Je voudrai en fait cr&#233;er plusieurs images identiques &#224; des positions diff&#233;rentes comme dans un jeu de briques afin de pouvoir les d&#233;truire par la suite par une autre image tel qu'une balle par exemple.

J'ai bien compris vos conseils, j'ai essay&#233; le timer mais je n'arrive pas &#224; le faire fonctionner avec le code ci-dessous.
  
Private Sub MainFormLoad(sender As System.Object, e As System.EventArgs)

       Dim i As Integer
       'Cr&#233;ation des 5 images &#224; des positions diff&#233;rentes 
       for i = 1 to 5
            PictureBox1.Image = Image.FromFile("image.bmp")
            PictureBox1.Left = PictureBox1.Left + 20
            timerBalle.enabled = true
            i = i + 1
        next i 
       timerBalle.enabled = False



 End Sub


 Private Sub TimerBalleTick(sender As System.Object, e As 
System.EventArgs)


'Je pense qu'il faut peut-&#234;tre se servir de cette proc&#233;dure mais comment???




End Sub

Encore mer&#231;i.


 Dbigand

cs_liquide · Answer

En entete
Dim i as integer = 0

Private Sub 
MainFormLoad(sender As System.Object, e As System.EventArgs)
       With TimerBalle
            .Start()
            .Interval = 500
      End With

End Sub

Private Sub 
TimerBalleTick(sender As System.Object, e As System.EventArgs)
            If i < 4 then
               PictureBox1.Image = Image.FromFile("image.bmp")

               PictureBox1.Left = PictureBox1.Left + 20
               timerBalle.enabled = true
               i = i + 1
            Then
               TimerBalle.Stop
             End if

End Sub

j'espere ne pas trop avoir commis d'erreurs, par ailleur, il ne fait que deplacer le controle.

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide

dbigand · Answer

Merci pour vos r&#233;ponses.

En fait je voulez cr&#233;er "dynamiquement" plusieurs images identiques &#224; des positions diff&#233;rentes...
Comme VB.NET ne supporte pas les "control arrays", j'ai la solution ci-dessous, mai je ne sais pas   du tout si c'est optimis&#233;, il doit y avoir beaucoup mieux !!!

Structure BriqueStructure
   'index d'une ImageListBrique.
  Dim FlagIndex As Integer
   'reference une PictureBox pour changer son image 

  Dim BriqueRef 
As PictureBox

End Structure

'Tableau pour r&#233;f&#233;rencer par un index les pictureBox

Dim Brique(4) 
As BriqueStructure

Dim i 
As Integer

Private Sub MainFormLoad(sender As System.Object, e As System.EventArgs)

  'On affecte dans le tableau les pictureBox cr&#233;es niveau design

   Brique(0).BriqueRef = pictureBrique0

   Brique(1).BriqueRef = pictureBrique1

   Brique(2).BriqueRef = pictureBrique2

   Brique(3).BriqueRef = pictureBrique3

   Brique(4).BriqueRef = pictureBrique4

  'On affiche les images contenues dans une ImageListBrique 

   For i = 0 
to 4 

      Brique(i).BriqueRef.Image = ImageListBrique.Images(i)

      Brique(i).BriqueRef.
Left = Brique(i).BriqueRef.
Left + 200

   Next i

End Sub


 Dbigand

cs_liquide · Answer

Salut
en dymanique, essais un code comme celui ci, il fonctionne chez moi

Dim
 i As Integer


For i = 0 To 4

   Dim p As New Panel

      With p

         .Parent = Me

         .Top = 0

         .Left = 30 + (i * 2)

         .Height = 100

         .Width = 100

         .BackColor = Color.AliceBlue

         .BorderStyle = BorderStyle.FixedSingle

         .Visible = True

         End With

Next

je l'ai mis dans un bouton, par ailleur j'ai lu (je ne sais plus ou) que le panel remplacait les picturebox ( on va me dire .. mais alors pourquoi les picturebox existent toujours dans les controles ---> je n'en sais absolument rien).

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide

dbigand · Answer

Re -Salut et Re-mer&#231;i
Pour ce qui est du dymanique, c'est parfait et cel&#224; fonctionne tr&#232;s bien.

Derni&#232;re question : (car il ne faut pas abuser des bonnes choses). Je voudrai d&#233;placer ces panels avec l'aide d'un Timer et en jouant par  exemple sur ".Left = .Left + 10 (voir code ci-dessous). Mais je n'y arrive pas. Si je met Dim p As NewPanel dans la boucle, je pense que &#224; chaque timer, il cr&#233;ait de nouveaux panels aux m&#234;mes endroits et rien ne bouge.
Le code ci-dessous ne fait bouger que le dernier panel...

                   





Dim p As New Panel
Private Sub TimerBalleTick(sender 
As System.
Object, e 
As System.EventArgs)




    For i = 0 
To 4

      Me.Controls.Add(
Me.p)

      With p

        if .Visible = 
True 
            .Parent = 
Me
            .Top = 30 * I
            .
Left = .
Left + 10
            .
Height = 30
            .
Width = 20
            .BackColor = Color.AliceBlue
            .BorderStyle = BorderStyle.FixedSingle
            .Visible = True
         end if
       End With
    Next


End Sub


Encore Merci.

 Dbigand

valtrase · Answer

Salut,
Dans un premier temps tu ne dois pas cr&#233;er tes Panel dans l'&#233;v&#232;nement de ton timer car tu cr&#233;e des&uml;Panels mais tu ne les dr&#233;truit pas; tu vas donc vite te retrouver avec une multitude de panels aux m&#234;me positions.

Donc je pense que tu dois cr&#233;er tes panels avant et ensuite tu g&#232;res les d&#233;placements &#224; l'aide de ton timer.
Dans la sub du Timer utilises des Variables interm&#232;diaires que tu d&#233;clareras en static elles garderons leurs valeurs &#224; chaque retour dans la sub.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

dbigand · Answer

Mille Merci &#224; Tous.

C'est exactement ce que je voulais faire!!! Ca marche parfaitement.
J'avoue que sans votre aide, jamais je n'y serai arriv&#233;. En plus j'ai beaucoup appris.

Encore Mer&#231;i. Ce forum, c'est vraiment super.


 Dbigand

cs_liquide · Answer

salut, bin tu peux valider si la reponse est accept&#233; , si c'est la mienne biensur ,c'est surtout pour mes chevilles , non je d&#233;conne. Content d'avoir pu aider

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide

dbigand · Answer

Salut &#224; l'expert "Liquide"

En lisant ta derni&#232;re r&#233;ponse, tu parles de valider ta r&#233;ponse.
J'ignore comment on fait cette validation. Je n'ai pas vu un "clic" &#224; faire dans ce sens!!!
En r&#233;alit&#233; c'est la premi&#232;re fois que j'ai fait cette d&#233;marche dans le forum. 
(qui est en m&#234;me temps tr&#232;s "top" niveau technique et tr&#232;s "cool", j'ai parcouru quelques discussions!!!)

Si il y a une proc&#233;dure de validation, dis moi ou je peux la trouver afin de m'ex&#233;cuter.

Encore merci pour l'aide.


 Dbigand

dbigand · Answer

Re-Salut &#224; l'expert "Liquide"

Pardon j'ai enfin vu le clic &#224; faire, il faut que je change de lunettes!!!
Encore Merci.


 Dbigand