Discussion :

[babylone_59]

Bonjour
J'aimerai savoir comment faire défiler des image.
Je m'explique, lors d'un clic sur un bouton j'aimerai que diférentes images défilent toutes les secondes .
Je pense qu'il faut utiliser un timer ainsi qu'une imagelist mais je rencontre un probleme avec ce dernier car je n'arive pas a restituer les images qu'il contient a un picturebox.

[tomlev]

il faut effectivement un timer et une liste d'images (pas une ImageList, ça ne sert qu'à certains trucs bien particulier).

à chaque évènement Tick du timer, tu prends l'image suivante de la liste et tu la mets dans la picturebox

[babylone_59]

mais comment définir la liste d'image?

[tomlev]

en créant un List(Of Image) (dans le code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private images As List(Of Image)

[babylone_59]

et comment définir les images dans cette liste?

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

images.Add(Image.FromFile("uneImage.jpg")

un petit tour par ici te permettrait de répondre toi-même à pas mal de questions

[babylone_59]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Class Form1
 
    Private images As List(Of Image)
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Timer1.Interval = 500
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        images.Add(Image.FromFile("Image1.jpg"))
        images.Add(Image.FromFile("Image2.jpg"))
        images.Add(Image.FromFile("Image3.jpg"))
    End Sub
End Class

Comment faire ensuite pour qu'a chaque tick l'image suivante s'affiche?

[tomlev]

Comment faire ensuite pour qu'a chaque tick l'image suivante s'affiche?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Private indexImage As Integer = -1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' on avance d'une image
        indexImage = indexImage + 1
        ' si on est au bout de la liste, on revient à la première image
        If indexImage >= images.Count Then
            indexImage = 0
        End If
        pictureBox1.Image = images(i)
    End Sub

Et aussi, n'oublie pas d'initialiser la liste (avec New)

[babylone_59]

Pour initialiser les images j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

images.Add(Image.FromFile("Image1.jpg"))

mais c le chemin pour acceder a l'image que je dois metre a la place de image1.jpg ?

[tomlev]

mais c le chemin pour acceder a l'image que je dois metre a la place de image1.jpg ?

oui

[babylone_59]

Voici mon code mais sa ne fonctionne pas. Aurais je oublié quelque chose?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Class Form1
 
 
    Private images As List(Of Image)
    Private indexImage As Integer = -1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Timer1.Interval = 500
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Dim i As Integer
        ' on avance d'une image
        indexImage = indexImage + 1
        ' si on est au bout de la liste, on revient à la première image
        If indexImage >= images.Count Then
            indexImage = 0
        End If
        pictureBox1.Image = images(i)
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        images.Add(Image.FromFile("C:\Documents and Settings\Julien\Mes documents\Mes images\Boule_billard\boule1.bmp"))
        images.Add(Image.FromFile("C:\Documents and Settings\Julien\Mes documents\Mes images\Boule_billard\boule8.bmp"))
    End Sub
End Class

[tomlev]

Voici mon code mais sa ne fonctionne pas.

Qu'est-ce qui ne fonctionne pas ? Ca ne compile pas ? Il y a une erreur à l'exécution ? sois plus précis...

Comme je te l'ai dit plus haut, il faut que tu initialises images :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

images = New List(Of Image)

[babylone_59]

La référence d'objet n'est pas définie à une instance d'un objet pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If indexImage >= images.Count Then

[tomlev]

La référence d'objet n'est pas définie à une instance d'un objet pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If indexImage >= images.Count Then

ok, donc c'est bien ce que je disais : c'est parce que tu n'as pas initialisé images

[Klarice123]

Bonjour à tous !

Visiblement je suis en train de faire un sacré déterrage mais je vais rester dans le thème du topic !

Mon but est de créer un petit jeu qui consiste à cliquer sur une image qui défile sur l'écran : l'image entre par le côté gauche de l'écran et ressort par le côté droit.

J'avais dans l'idée d'utiliser un timer et une multitude de pictureBox qui chacune à son tour afficherai la forme à chaque événement du timer.
Avant de me lancer dans ce travail de "bourrin", j'aimerai savoir si il n'existe pas déjà quelque chose qui permette de faire ça ou si il quelqu'un aurait une solution plus propre donnant un résultat plus fluide...

Une forme c'est bien, plusieurs c'est mieux... Le but est d'arriver à une suite de formes qui défilent les unes après les autres pour faire un petit exercice (cliquer uniquement sur les carrés rouges par exemple)

Voilà voilà j'espère que mon explication est assez claire et que quelqu'un saura me répondre !

Merci d'avance

[Pol63]

le plus fluide n'est pas forcément le plus simple à coder
faire un bufferedgraphics
sur un thread le mettre à jour (déssiner dessus images et autres)
appeler .invalidate sur l'objet contenant le dessin
et dans l'event paint faire lebufferedgraphics.render

en plus simple mais peut etre moins performant il y a le timer et le doublebuffer à true

[Klarice123]

Oula.. que de mots nouveaux pour moi... Mais merci beaucoup ! En fouinant un peu je finirai par comprendre ! Maintenant que je sais quoi chercher...

Bonne soirée

[MABROUKI]

Bonjour
Tu dois utiliser un timer et gerer la "vitesse" ou "velocity" de tes pictureboxes qui defilent

Voici un un exemple :
-place une 1ere rangee PicBox horizontale en haut de ton form,regulierement disposes ...mettons 4 ((ou ce que tu veux).....
-Assigne au BackColor de chaque PicBox de cette 1ere range , mettons la couleur rouge:RED

-place une 2ere rangee de PicBox horizontale en dessous de la 1ere ...regulierement disposes ...mettons 4 ((ou ce que tu veux).....
-Assigne au BackColor de chaque PictBox de cette 2eme range , mettons la couleur bleue:BLUE

-Idem pour la 3eme,4eme rangees s'il en est...
Ainsi chaque rangee sera identifie par sa couleur BackColor .Cette couleur sera stocke dans le champ "fourre-tout" Tag de chaque PicBox,qui permettra à notre programme exemple d'identier les picbox appartenant à la meme rangee pour les faire defiler ensemble....

-rajoute un timer...
A l'utilisation:
- un click sur picbox demarre l'animation de la rangee entiere en la faisant defiler à droite ecran et reapparaitre à gauche...
- un autre click soit sur un picbox de la rangee animee ou une autre rangee ,stoppe l'animation
Un bon compromis peut etre fait entre le reglage de l'intervalle du timer et de la "velocity' ou vitesse de progression....

code .vb exemple du form:

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Public Class frmPicturesAnimes
    'liste des picbox =>contient toutes les rangees
    Private Pictures As New List(Of PictureBox)
 
     'vitesse de defilement
    Private VelocityX As Integer = 5
    Public Sub New()
 
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.ResizeRedraw = True
        Me.AutoScroll = True
        Me.DoubleBuffered = True
        AddPictures()
        Timer1.Interval = 10
    End Sub
 
    Private Sub AddPictures()
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is PictureBox Then
                Dim itemPic As PictureBox = CType(ctrl, PictureBox)
                itemPic.Tag = itemPic.BackColor
                Pictures.Add(itemPic)
            End If
        Next
    End Sub
 
    'liste des picbox  =>contient  la rangee cliquee
    Private PicturesClicked As New List(Of PictureBox)
    Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick,
        PictureBox2.MouseClick, PictureBox3.MouseClick, PictureBox4.MouseClick,
        PictureBox5.MouseClick, PictureBox6.MouseClick, PictureBox8.MouseClick,
        PictureBox9.MouseClick, PictureBox10.MouseClick
 
        Dim tagColor As Object = Nothing
        tagColor = CType(sender, PictureBox).Tag
        PicturesClicked.Clear()
        For Each itemPic As PictureBox In Pictures
            If itemPic.Tag = tagColor Then
                PicturesClicked.Add(itemPic)
            End If
        Next
        Timer1.Enabled = Not Timer1.Enabled
        Me.Text = CType(sender, PictureBox).Name + " ," + tagColor.ToString
 
    End Sub
 
    Private flag As Boolean = True
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        'DEFILEMENT ÀVANT (DROITE)
        For Each itemPic As PictureBox In PicturesClicked
            itemPic.Left += VelocityX
        Next
 
        'RE-APPARITON A GAUCHE 
        Dim pic As PictureBox = PicturesClicked(PicturesClicked.Count - 1)
        If pic.Left > Me.Right Then ' si dernier pic a disparu à droite 
            'on les replace au bord gauche  du form...
            For Each item As PictureBox In PicturesClicked
                item.Left -= Me.Width
            Next
        End If
 
    End Sub
 
    Private Sub frmImageAnimes_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        Pictures.Clear()
 
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is PictureBox Then
                Dim itemPic As PictureBox = CType(ctrl, PictureBox)
                itemPic.Tag = itemPic.BackColor
                Pictures.Add(itemPic)
            End If
        Next
    End Sub
 
End Class

Ce code simple utilisant des picbox(cela aurait pu etre aussi bien des labels ou des boutons auxquels on aurait affecte un image à leur prop BackgroundImage)
n'est pas le plus efficient comme dit par Pol63 ...
Des animations plus fluides utilisent des bitmaps appelees "sprites" , et le double buffering mais au prix de beaucoup plus d'effort surtout pour gerer le positionnement par code des bitmaps....travail fastidieux...!!!
bon code....