l'affichage des images

Question

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

cs_breton51 · Answer

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

L'affichage des images

1 réponse

Votre réponse

Discussions similaires