Liste déroulante

Résolu
RIXAIN Messages postés 7 Date d'inscription mercredi 7 février 2007 Statut Membre Dernière intervention 13 octobre 2008 - 10 sept. 2007 à 06:59
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 10 sept. 2007 à 10:15
Bonjour à tous
Pouvez-vous me donner une instruction code simple
pour que je puisse afficher un fichier texte dans une listbox avec le dernier élément
de mon texte en bas d'affichage et non le premier élément en haut

J'utilise:

    NO=1
Open NomFichier For Input As #1
While Not EOF(1)
        Input #1, LIBEL
        List1.AddItem NO & "     " & LIBEL
       NO=NO+1
    Wend
fin:
    Close #1

Merçi par avance

3 réponses

cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
10 sept. 2007 à 08:18
Re,

Essaye ce code issu de Codyx.Org (Willy)

Dim ff As Integer
ff = FreeFile


Dim sLigne As String


'Lecture du fichier, envois chaque ligne dans la collection
Open "C:\votrefichier.txt" For Input As #ff
    While Not EOF(ff)
        Line Input #ff, sLigne
         List1.AddItem sLigne
    Wend
Close #ff


A+
Exploreur

 Linux a un noyau, Windows un pépin


 
3
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
10 sept. 2007 à 10:15
Pour afficher le dernier élément de la liste, une fois chargée.
    List1.ListIndex = List1.ListCount - 1

MPi
3
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
10 sept. 2007 à 08:09
Salut,

Ben, faut lire ton fichier texte ligne par ligne...Qaund tu lis la première tu insères dans ta listbox et ainsi dessuite jusqu'à la fin...Ainsi ta dernière ligne de ton fichier texte sera à la fin de ta listbox et laisser sa propriété Sorted sur False.

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
0
Rejoignez-nous