[VB6] Valore della proprietà non valido in ListView

[814(k m49!(]

salve
problema giornagliero:
dovrei caricare dei dati in una listview, i dati sono contenuti in dei file.
nel file ci sono delle stringhe, ogni stringa e' divisa in due parti da un punto.
uso lo split per separare la stringa in due stringhe.
con un ciclo carico la stringa che precede il punto nella colonna di sinistra della listview, e la stringa dopo il punto nella seconda colonna, il problema e' che non riesco a caricare la stringa nella seconda colonna, mi da questo errore: "valore della proprieta' non valido".
non riesco a venirne fuori, anche perche' con lo stesso codice usato in altri form riesco a eseguire l'operazione.
posto il codice dell'intero form:

'la listview si chiama LV1
Dim Pth As String
Dim Key As Integer
Private Sub cmbMac_Click()
LV1.ListItems.Clear
InputDati LV1
End Sub
Private Sub InputDati(ByRef lvS As ListView)
On Error Resume Next
Dim splLetto() As String
Dim Letto As String
   Open Pth & "\Source\DB\Listato Costruzione\" & cmbMac.Text & ".txt" For Input As #1
       Do While Not EOF(1)
          Input #1, Letto
             splLetto = Split(Letto, ".")
             Set itm = lvS.ListItems.Add(, "T" + CStr(Key))
             itm.Text = splLetto(0)
             itm.SubItems(1) = splLetto(1) ' L' ERRORE E' QUA
             Key = Key + 1
       Loop
   Close #1
End Sub

Private Sub Form_Load()
Dim Letto As String
Dim I As Integer
Dim FileMacSpL() As String
Open App.Path & "\Source\imp\path.txt" For Input As #1
  Input #1, Letto
    Pth = Letto
Close #1
cmbMac.Clear
fileMac.Path = Pth & "\Source\DB\Listato Costruzione\"
For I = 0 To fileMac.ListCount - 1
   fileMac.ListIndex = I
   FileMacSpL = Split(fileMac.FileName, ".")
   cmbMac.AddItem FileMacSpL(0)
Next I
fileMac.ListIndex = 0
cmbMac.ListIndex = 0
LV1.ColumnHeaders.Add 1, , "Nome della parte"
LV1.ColumnHeaders.Add 2, , "Quantita'"
End Sub

[oregon]

Quando ottieni l'errore, quanto vale

splLetto(1)

[814(k m49!(]

le stringhe che vado a leggere sono queste:
"0000007.1"
"0000015.1"
"0000030.1"
"0000059.1"

quindi spletto(1) e' sempre = a 1

[oregon]

Quelle sono le stringhe che ti aspetti ... io intendo proprio da debug ... controlla il contenuto di splLetto(1) PROPRIO QUANDO hai l'errore

P.S. Un dubbio ... ma tu le colonne le hai create nel listview?

[814(k m49!(]

e' 1, ho messo un msgbox prima dell'errore:
Set itm = lvS.ListItems.Add(, "T" + CStr(Key))
itm.Text = splLetto(0)
MsgBox splLetto(1)
itm.SubItems(1) = splLetto(1)
Key = Key + 1

[814(k m49!(]

Originariamente inviato da oregon
Quelle sono le stringhe che ti aspetti ... io intendo proprio da debug ... controlla il contenuto di splLetto(1) PROPRIO QUANDO hai l'errore

P.S. Un dubbio ... ma tu le colonne le hai create nel listview?

si che le ho create

[oregon]

Originariamente inviato da 814(k m49!(
e' 1, ho messo un msgbox prima dell'errore:
Set itm = lvS.ListItems.Add(, "T" + CStr(Key))
itm.Text = splLetto(0)
MsgBox splLetto(1)
itm.SubItems(1) = splLetto(1)
Key = Key + 1

E se scrivi cosiì

MsgBox lvS.ColumnHeaders.Item(2)
itm.SubItems(1) = splLetto(1)

cosa appare nella msgbox ?

[814(k m49!(]

oddio...ora funziona
solo se cambio il contenuto della combobox, se non skiaccio niente non carica, grazie cmq, credo di avere risolto

[oregon]

Originariamente inviato da 814(k m49!(
oddio...ora funziona
solo se cambio il contenuto della combobox, se non skiaccio niente non carica, grazie cmq, credo di avere risolto

Di quale combobox parli?

Non ho capito ne' il problema ne' la soluzione ... ...

Se la stringa esiste prima dell'istruzione che da' errore (cosi' come dici) e la colonna e' stata creata, allora DEVE funzionare ... hai fatto un po' di confusione ...

[vaitrafra]

ma i subitems non erano in base 0?