/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.