---

Hej Gruppe

Er der ikke én der lige kan gennemskue hvor min fejl ligger?
Jeg har en form med en listbox på, og ikke andet.
Når formen loades indlæses roms.txt i listboxen
Herefter vil jeg bruge "f" og "r" istedet for piletasteren til at scrolle op
og ned.
Ned med "f" går fint nok, men op med "r" så går det galt med
Romlist.listindex
Hvis jeg istedet for File2ListBox bruger Romlist.additem virker det fint nok
både op og ned.


Venlig hilsen / Best regards

Henrik


Private Sub Form_Load()

usage:
File2ListBox App.Path & "\roms.txt", Romlist
Romlist.ListIndex = 0
End Sub

Public Sub File2ListBox(sFile As String, oList As ListBox)
Dim fnum As Integer
Dim sTemp As String
fnum = FreeFile()
oList.Clear
Open sFile For Input As fnum

While Not EOF(fnum)
Line Input #fnum, sTemp
oList.AddItem sTemp
Wend
Close fnum
End Sub

Private Sub Romlist_KeyPress(KeyAscii As Integer)
Select Case Chr(KeyAscii)
Case "f"
Romlist.ListIndex = Romlist.ListIndex + 1
Case "r"
Romlist.ListIndex = Romlist.ListIndex - 1
End Select
End Sub