Hejsan! Hej ! Ingenting kommer in i filen i alla fall... Du glömde nog stänga filen igen... Ja... det var det... tack så¨hemskt mycket för hjälpen... oumbärligtLägga till data i listbox +skapa txt fil
Jag har precis kommit igång med VB6 och har några frågor.
1. Jag håller på med ett program där användaren ska kunna välja en artikel ur en listbox (List1). Han ska sedan kunna fylla i antal i en textruta (Text1). När han sedan trycker på en knapp (Command1) ska informationen från List1 & Text1 komma in i en till listbox (List2). Informationen skall helst hamna på samma rad med ett mellanslag mellan.
2. All information i List2 ska skrivas ut till en textfil när man trycker på en annan knapp (Command2).
Vet hur man får ut informationen från den markerade raden i en list men hur får jag ut all information från listboxen. Antar att det bara är någon liten ändring man kan göra i koden.
Private Sub Command1_Click()
Dim Fnm As Long
Fnm = FreeFile
Open "C:\Filen.txt" For Output As #Fnm
Print #Fnm, List2.Text
Close #Fnm
End Sub
Vänliga Hälsningar
Jonas HellströmSv: Lägga till data i listbox +skapa txt fil
Du kan loopa igenom listboxen.
Ex vis
For i = 0 To List1.ListCount - 1
Print#Fnm,List1.List(i)
next i
mvh
CJESv:Lägga till data i listbox +skapa txt fil
Skrev in det såhär... kanske gjorde fel...
Private Sub Command1_Click()
Dim Fnm As Long
Fnm = FreeFile
Open "C:\Test.txt" For Output As #Fnm
For i = 0 To List1.ListCount - 1
Print #Fnm, List1.List(i)
Next i
End Sub
//JonasSv: Lägga till data i listbox +skapa txt fil
<code>
Close #Fnm
</code>Sv:Lägga till data i listbox +skapa txt fil
//Jonas