selection listbox

Question

Salut, j'aimerais savoir si c'est possible de modifier se code pour pouvoir enregistrer seulement les lignes selectionn&#233; &#224; l'interieur d'un listbox (style= checkbox)





     Dim  count As Integer
    Open "blabla.txt" For Output As 1
    For count  = 0 To List1.ListCount - 1
        Print #1, List1.List(count)
    Next
    Close 1

Merci de votre reponse.

Gobillot · Answer

Dim count As Integer

Open "blabla.txt" For Output As #1
For count = 0 To List1.ListCount - 1
       If List1.Selected = True Then
           Print #1, List1.List(count)
        End If
Next
Close #1

Daniel

cboulas · Answer

Salut,


Dim count As Integer
    Open "blabla.txt" For Output As 1
    For count = 0 To List1.ListCount - 1
        If List1.Selected(count) Then Print #1, List1.List(count)
    Next
    Close 1



Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

cboulas · Answer

Mince trop rapide le Gobillot 


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

Gobillot · Answer

trop rapide mais avec une erreur, j'ai oubli&#233; de mettre l'indice oups !

    If List1.Selected (Count) = True Then

           Print #1, List1.List(count)
        End If

Daniel

nitroptik · Answer

Merci de ton aide mais comment faire pour ne pas perde ce qui est deja enregistr&#233; dans le "blabla.txt"

Je veux pouvoir selectionner les lignes pour les rajouter de jour en jour sans perde se que javais avant.

Je sais pas si c'est asser clair..

Merci de votre reponse.

cboulas · Answer

Open "blabla.txt" For Append As 1


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

nitroptik · Answer

Merci c'est exactement sa!

Derniere question ;P

On peu inverser le sens d'apparition des lignes dans le listbox ? Je veux que les nouvelles lignes soit en haut en lieu d'en bas

Merci de ta reponse.

cboulas · Answer

Il faut pour cela mettre en m&#233;moire le contenu du fichier en m&#233;moire.

en supposant que OldInfo est la variable contenant le fichier avant insersion des nouvelles infos.

Print #1, NewInfo & OldInfo


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

Gobillot · Answer

tu veux que chaque ligne ajout&#233;e dans la ListBox apparaisse au d&#233;but plut&#244;t qu'&#224; la fin ?
si la propri&#233;t&#233; Sorted est &#224; false, ella va se mettre &#224; la fin forc&#233;ment, sinon &#231;a d&#233;pend du tri.

une solution c'est de d&#233;caler toutes les lignes existantes et de mettre la nouvelle ligne au d&#233;but.
au lieu de faire:
    List1.AddItem "ma chaine"
remplace par:
     Ajout_Item "ma chaine"
inconv&#233;nient:
   &#231;a risque d'&#234;tre long 

Private Sub Ajout_Item(s As String)
    Dim i As Integer
    List1.AddItem s
    For i = List1.ListCount - 1 To 1 Step -1
        List1.List(i) = List1.List(i - 1)
        Next
    List1.List(0) = s
End Sub

Daniel

nitroptik · Answer

Un gros Merci &#224; toi Daniel, c'est ce qui me fallait.

Sais-tu si dans

Dim count As Integer
    Open "blabla.txt" For Append As 1
    For count = 0 To List1.ListCount - 1
        If List1.Selected(count) Then Print #1, List1.List(count)
    Next
    Close 1

une erreur peux se produire si le fichier "blabla.txt" n'existe pas ?

tout semble OK sur Windows XP mais sur 95,98,me et 2000 ???

Gobillot · Answer

j'ai pas test&#233; mais je pense que le fichier va se cr&#233;er comme s'il avait &#233;t&#233; ouvert avec Output.
si &#231;a marche sur XP pas de raison que &#231;a ne marche pas sur les autres, c'est li&#233; &#224; Vb pas au syst&#232;me.

PS: je viens de tester, &#231;a cr&#233;e bien le fichier, mais &#231;a t'apportes rien puisque c'est sur XP.

Daniel

cboulas · Answer

Cela  marche sur toute plateform Windows


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

valtrase · Answer

Re,
Pour le Additem tu peux faire
List1.AddItem "toto", 1
Le 1 correspond &#224; la position dans la liste

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Gobillot · Answer

bien vu, je savais pas.
dans ce cas l&#224; tu fait List1.AddItem "toto", 0 &#224; chaque fois et tu laisses tomber ma routine.
enfin pas "toto" mais ta chaine &#224; ajouter.

Daniel

Selection listbox

14 réponses

Discussions similaires