Ciao a tutti. Pensavo di aver risolto, invece.... Ho ripreso in mano la mia App per finire l'aggiornamento che era rimasto in sospeso da mesi. Ho solo un problema con la xCostumListView. Praticamente prendo su AddCastello aggiunge una scheda e qui tutto ok. Il problema è che volevo fare un refresh di tutto la lista non riesco a fargliela fare. Ormai sto impazzendo e ho bisogno di qualcuno con una mente più lucida. Molto probabilmente vi mettere le mani nei capelli appena prenderete visione del mio codice, con la scusa che sono consapevole dei miei limiti in programmazione, se non commentate mi fate un piacere...hahaha grazie.
B4X:
Sub AddCastello_Click
Log("aggiungi. Schede totali "& CLV1.Size &" n. max castelli "&Main.NumeroMaxCastelli)
NumeroSchede = CLV1.Size
Log("inizio ADD")
For o = 0 To 2
Log (ListaRegistrati(o))
Next
If NumeroSchede < Main.NumeroMaxCastelli Or NumeroSchede = Main.NumeroMaxCastelli Then
ListaRegistrati(NumeroSchede) = "1|0|0|0|0|0|0|0|0|0|"
File.WriteList(File.DirInternal, "GoG/DatiCastello.txt", ListaRegistrati)
For i = CLV1.Size -1 To 0 Step -1
CLV1.RemoveAt(i)
Next
List1 = File.ReadList(File.DirInternal, "GoG/DatiCastello.txt")
For i = 0 To NumeroSchede
If i >= 1 Then
SoloUnaScheda = False
Else
SoloUnaScheda = True
End If
Log("Visualizzo Schede "& i &" CLV1.Size "&NumeroSchede )
ListaRegistrati(i) = List1.Get(i)
Dim stringArray2() As String = Regex.Split("\|",ListaRegistrati(i))
If Main.Separatore = "PUNTO" Then
For i=2 To 9
stringArray2(i) = stringArray2(i).Replace(",",".")
Next
End If
Dim content As String = stringArray2(2)
Dim content1 As String =stringArray2(3)
Dim content2 As String = stringArray2(4)
Dim content3 As String = stringArray2(5)
Dim contentBis As String = stringArray2(6)
Dim content1Bis As String = stringArray2(7)
Dim content2Bis As String = stringArray2(8)
Dim content3Bis As String = stringArray2(9)
Dim Titolo As String = $"Castello: ${stringArray2(1)}"$
Dim Titolo1 As String = $"Risorse nel castello"$
Dim Titolo2 As String = $"Risorse da calcolare con gli oggetti"$
CLV1.Add(CreateItem(CLV1.AsView.Width, Titolo,Titolo1,Titolo2, Legno,Cibo,Ferro,Mitrhil, content, content1, content2, content3, contentBis, content1Bis, content2Bis, content3Bis), "")
Next
Log($"Aggiungo una scheda! "$)
Log("Fine Add")
For o = 0 To 2
Log (ListaRegistrati(o))
Next
Else
Log($"Raggiunto numero massimo di schede"$)
End If
End Sub