Nu har jag kört fast igen, detta ger mig värden till Text1(i)

Private Sub list1_Click()
X = List1.ListIndex
a$ = getBytes(fileData, 150 + 60 * X, 60, 1)
Dim i As Integer
For i = 0 To 5
Text1(i) = Mid$(a$, i * 6 + 1, 6)
Next i
End Sub

Men när jag ändrar i Text1(i) så sparas det inte som det är tänkt
Jag är säker helt fel ute, hoppas någon vet svar på detta

Private Sub Text1_Change(Index As Integer)
X = List1.ListIndex
Dim i As Integer
For i = 0 To 5
a$ = ""
a$ = Text1(i)

setBytes fileData, 150 + X * 60, a$, 1

Next i
End Sub




Sören

Ren djä... rappakalja .

Ungefär det svaret jag ville ha, tack

Jag är villig att hålla med Sven, det är inte helt enkelt att förstå vad detta är... Du får förklara vad detta gör samt vad det är som inte fungerar. Funktionerna getBytes och setBytes verkar inte vara standardfunktioner, vad gör dessa?

/Johan

Ja det går inte att begripa vad som skall hända.

Sen skall man inte ha sådan här kode i Text_Change , har inte analyserat men
risken att du skall hamna i den binära rymden är mycket stor.

Skriv inte kode i Text_Change det blir bara strul, det finns några få undantag.