Jag har en ListView på min sida där data ska hämtas från en textfil som heter SkyddadeData.txt

Felet i följande kod gör att jag inte kan se mina data som jag har sparade:

Private Sub Form_Load()
Dim itmX As Variant
Dim f As Integer
Dim strWebAdress As Integer, strAnvNamn As String, strLösenord As String, strApp As String, Meddelande As Integer

strApp = App.Path

If Right(strApp, 1) <> "\" Then
strApp = strApp & "\"
End If

f = FreeFile

'Läs in textfilen och fyll i listviewkontrollen
Open strApp & "SkyddadeData.txt" For Input As f
Do While Not EOF(f)
Input #f, strWebAdress, strAnvNamn, strLösenord
On Error GoTo Fel:
Set itmX = ListView1.ListItems.Add()
itmX.SubItems = strWebAdress
itmX.SubItems(1) = strAnvNamn
itmX.SubItems(2) = strLösenord

Loop

Close f

Fel:
Meddelande = MsgBox("Dina data kan inte visas", vbOKOnly, "Fel")
End Sub

Hej.

Efter att ha kikat lite snabbt på din kod så hittar jag följande;

strWebadress skall vara String antar jag

du måste sätta "columnheaders" innan du försöker fylla listviewen

ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "WebAddress"
ListView1.ColumnHeaders.Add , , "Namn"
ListView1.ColumnHeaders.Add , , "Lösen"

Sedan sätter du första columnen "Webadress"
Set itmX = ListView1.ListItems.Add(, , strWebAdress)

därefter kan du fylla de andra 2 kolumnerna
itmX.SubItems(1) = strAnvNamn
itmX.SubItems(2) = strLösenord

Precis före din Fel: skriver du

exit sub
Fel:
........
.......
End sub

Hoppas du blev klokare