programstyring af tekst i listbox

Når du starter timeren (f.eks. med en knap) så sæt en global variabel lIndex = 0.

Hvis din listbox hedder List1:

I timeren kode skriver du:

    List1.ListIndex = lIindex
    lIndex = lIndex + 1
    If lIndex = \'antal poster i din listbox\' Then Timer1.Enabled = False

I stedet for at stoppe timeren i den sidste linie kan du jo også sætte lIndex til 0 igen, så starter scrollingen forfra.

MVH tjacob

\'antal poster i din listbox\' erstattes med List1.ListCount

Der menes nok
List1.ListCount-1

Nej, for der er lagt en til i linien før ;)

Tak for det hurtige svar MEN
En lignende løsning havde jeg fundet ved at bruge list1.selected således i en timer

If linjenr < List1.ListCount - 1 Then
      linjenr = linjenr + 1
      List1.Selected(linjenr) = True
Else
      Timer.Enabled = False
End If

Problemet er bare, at i begge tilfælde markeres den nederste linie i listboxen.
Hvordan forhindre dette ?

Det er fordi du lægger 1 til index (linie 2) INDEN du selecter. Det betyder at du aldrig får valgt index(0). Byt om på linie 2 og 3.

Men jeg tror så, at du vil komme til at mangle det sidste item. Jeg vil mene, at mit svar ar bedre (og simplere).  ;-)

/tjacob

Det med den nederste linie kan ikke (såvidt jeg kan se) umiddelbart løses. Du kan aldrig scrolle længere ned i en listbox end der er items.

tjacob

PS der er en lille fejl i mit forslag:
linie 1 List1.ListIndex = lIindex har to i\'er i det sidste lIindex.

Jeg tror du har misforstået mit problem.
Problemet er, at den nederste viste linie i listboksen( ved begge metoder) på skærmen markeres, således at scrollingen fremstår blinkende, når der scrolles.

Ja, det gjorde jeg vist.
Dette løses ved at sætte List1.ListIndex = -1 for eksempel som den sidste linie i timer-koden.

MVH tjacob

Tak skal du have. Nu virker det.
Jeg kunne også løse problemet ved at dække listboksen delvis af med en picturebox, men det er jo ikke en god løsning. Så mange tak.