FileListBoxRésolu

Question

Bonjour a tous, je suis debutant en programation et je voudrais simplement savoir s'il est possible d'utiliser une commande pour dire a un FileListBox de selectioner l'élément au dessu ou en dessou de selui qui est deja selectionné. Si oui pouvais vous m'indiquer comment svp.

Merci   A tous.

Julien237 · Accepted Answer

Oui c'est simplement parce que la collection est basée à zéro, donc IndexDuDernierObjet = NombreDObjets - 1
Donc tu remplace
If FileListBox1.SelectedIndex = FileListBox1.Items.Count Then
par 
If FileListBox1.SelectedIndex = FileListBox1.Items.Count - 1 Then
Et même mieux, tu change un peu ton code pour éviter un goto :

Private Sub Button6_Click_1
        If FileListBox1.SelectedIndex < FileListBox1.Items.Count Then
              FileListBox1.SelectedIndex = FileListBox1.SelectedIndex + 1
        End If
End Sub

C'est plus beau et plus compréhensible...

Julien.

Julien237 · Answer

(Tiens je ne trouve plus ma FileListBox... Apparemment elle a disparu des controles par défaut dans vb2005 ?!)

Utilise la propriété SelectedIndex :
Pour le suivant : FileListBox1.SelectedIndex = FileListBox1.SelectedIndex + 1
Et pour le précédant : FileListBox1.SelectedIndex = FileListBox1.SelectedIndex - 1

Attention toute fois a ne pas aller sous zéro ni à dépasser FileListBox1.Items.Count

Julien.

damienpasqualinotto · Answer

Merci mais je voudrais juste savoir ce que represente 

FileListBox1.Items.Count

Si quelqu'un peut m'aider.

Julien237 · Answer

FileListBox1.Items est la collection d'objets contenue dans ton FileListBox1 et donc FileListBox1.Items.Count est le nombre d'objets de cette collection (afin de ne pas référencier un objet qui serait en dehors de la collection...)

Julien.

damienpasqualinotto · Answer

D'accord mais j'ai un probleme regarde ce code : 

Private Sub Button6_Click_1
        If FileListBox1.SelectedIndex = FileListBox1.Items.Count Then
            GoTo fin
        Else
        FileListBox1.SelectedIndex = FileListBox1.SelectedIndex + 1
        End If
fin : 
End Sub

Voila et pourtant quand la ligne selectionner est deja la derniere il essai quand meme de changer et ca me donne une erreur forcement.
Si tu voit ce que sait dit me le stp merci.

damienpasqualinotto · Answer

A ok.
Ca marche.
Merci beaucoup a toi Julien
Ciao.

FileListBox

6 réponses

Votre réponse

Discussions similaires