OVH Cloud OVH Cloud

Rafraichir un ListView

3 réponses
Avatar
Pascal
bien le bonjour,

suite à l'effacement d'un dossier dans ma listview, je souhaite rafraichir
cette liste
je fais donc naturellement ceci:
========================================================
Private sub ChargerListe()
With Me.ListView1
.ListItems.Clear
For i = 0 To Me.Dir1.ListCount - 1
s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "\") + 1)
.ListItems.Add , , s, 1
Next i
end with
end sub
========================================================
eh bien me croirez vous, cette liste n'est pas rafraichie ???
je me retrouve encore avec le dossier que je viens d'éffacer.
si je ferme le prog et l'ouvre à nouveau, là pas de problème!
KKun peut il éclairer ma lanterne ?
Le traditionnel REFRESH ne fonctionne pas bien sur
Sympa d'avance

Pascal

3 réponses

Avatar
jt
"Pascal" a écrit dans le message de news:

bien le bonjour,

suite à l'effacement d'un dossier dans ma listview, je souhaite rafraichir
cette liste
je fais donc naturellement ceci:
======================================================= > Private sub ChargerListe()
With Me.ListView1
.ListItems.Clear
For i = 0 To Me.Dir1.ListCount - 1
s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
.ListItems.Add , , s, 1
Next i
end with
end sub
======================================================= > eh bien me croirez vous, cette liste n'est pas rafraichie ???
je me retrouve encore avec le dossier que je viens d'éffacer.
si je ferme le prog et l'ouvre à nouveau, là pas de problème!
KKun peut il éclairer ma lanterne ?
Le traditionnel REFRESH ne fonctionne pas bien sur
Sympa d'avance

Pascal



Bonsoir
tu dois faire un dir1.refresh
Avatar
Pascal
JT,
je te remercie infiniment, cela fonctionne très bien
Pascal

"jt" a écrit dans le message de
news:%

"Pascal" a écrit dans le message de news:

> bien le bonjour,
>
> suite à l'effacement d'un dossier dans ma listview, je souhaite


rafraichir
> cette liste
> je fais donc naturellement ceci:
> ======================================================= > > Private sub ChargerListe()
> With Me.ListView1
> .ListItems.Clear
> For i = 0 To Me.Dir1.ListCount - 1
> s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
> .ListItems.Add , , s, 1
> Next i
> end with
> end sub
> ======================================================= > > eh bien me croirez vous, cette liste n'est pas rafraichie ???
> je me retrouve encore avec le dossier que je viens d'éffacer.
> si je ferme le prog et l'ouvre à nouveau, là pas de problème!
> KKun peut il éclairer ma lanterne ?
> Le traditionnel REFRESH ne fonctionne pas bien sur
> Sympa d'avance
>
> Pascal
>
Bonsoir
tu dois faire un dir1.refresh




Avatar
jt
"Pascal" a écrit dans le message de news:
OqL$
JT,
je te remercie infiniment, cela fonctionne très bien
Pascal

"jt" a écrit dans le message de
news:%

"Pascal" a écrit dans le message de news:

> bien le bonjour,
>
> suite à l'effacement d'un dossier dans ma listview, je souhaite


rafraichir
> cette liste
> je fais donc naturellement ceci:
> ======================================================= >> > Private sub ChargerListe()
> With Me.ListView1
> .ListItems.Clear
> For i = 0 To Me.Dir1.ListCount - 1
> s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
> .ListItems.Add , , s, 1
> Next i
> end with
> end sub
> ======================================================= >> > eh bien me croirez vous, cette liste n'est pas rafraichie ???
> je me retrouve encore avec le dossier que je viens d'éffacer.
> si je ferme le prog et l'ouvre à nouveau, là pas de problème!
> KKun peut il éclairer ma lanterne ?
> Le traditionnel REFRESH ne fonctionne pas bien sur
> Sympa d'avance
>
> Pascal
>
Bonsoir
tu dois faire un dir1.refresh







Merci pour le retour