L'affichage des images

Signaler
Messages postés
55
Date d'inscription
samedi 11 avril 2009
Statut
Membre
Dernière intervention
28 juin 2018
-
Messages postés
78
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
15 novembre 2018
-
salut tout le monde,
dans un formulaire j'ai un controle IMAGELIST + button suivant + button précedent, j'ai chargé 6 images dans le controle imagelist.
alors ma question c'est que : comment je peux afficher ces images sur le form et controler ces mouvements avec les bouttons suivant et précedent.
si c'est possible la démarche à suivre en détail.
merci bcp les génies de vbfrance.























raid data recovery

1 réponse

Messages postés
78
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
15 novembre 2018

si tes images sont connus a l'avance tu peut faire une chose très simple,

déclare une variable i initialiser a 0

lors du load de ta form:
met dans le BackgroundImage de ta forme IMAGELIST.Images.Item(i)
et interdit l'appui sur le bouton précédant

lors de l'appui sur le bouton suivant
autorise l'appui sur le bouton précédant
si i est < au nb d'image de ta liste
-->incrémente i
-->met dans le BackgroundImage de ta forme IMAGELIST.Images.Item(i)
-->si i est = nb d'image de ta liste
----->interdit l'appui sur le bouton suivant

lors de l'appui sur le bouton précédant
autorise l'appui sur le bouton suivant
si i est > 0
-->décrémente i
-->met dans le BackgroundImage de ta forme IMAGELIST.Images.Item(i)
-->si i est = 0
----->interdit l'appui sur le bouton précédant

en code cela donne:

    Dim i As Integer = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackgroundImage = IMAGELIST.Images.Item(i)
        precedant.Enabled = False
    End Sub

    Private Sub suivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles suivant.Click
        precedant.Enabled = True
        If i < IMAGELIST.Images.Count - 1 Then
            i += 1
            Me.BackgroundImage = IMAGELIST.Images.Item(i)
            If i = IMAGELIST.Images.Count - 1 Then
                suivant.Enabled = False
            End If
        End If
    End Sub


    Private Sub precedant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles precedant.Click
        suivant.Enabled = True
        If i > 0 Then
            i -= 1
            Me.BackgroundImage = IMAGELIST.Images.Item(i)
            If i = 0 Then
                precedant.Enabled = False
            End If
        End If
    End Sub