/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Keypress i listbox
Fra : Henrik Jensen


Dato : 29-09-01 00:01

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



 
 
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste