Private LbDeSpin As Label ' Riga con lo spinner
Private LbSpin As Label
Private SpinEle As Spinner
Private Sub CreaRigaSpi(NRiga As Int, Colo As Int, Descrizione As String)
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, ClvElenco.AsView.Width, Altriga)
p.LoadLayout("RigaSpin")
...
SetOpzioniLingua(Va.LinguaTxt)
p.Tag = NRiga
ClvElenco.Add(p, NRiga)
End Sub
Private Sub SetOpzioniLingua(lista As List)
SpinEle.Clear
For Each voce As String In lista
SpinEle.Add(voce)
Next
SpinEle.SelectedIndex = Va.LinguaInd
End Sub
Private Sub SpinEle_SelectedIndexChanged (Position As Int, Value As Object)
Log("P " & Position & ", V " & Value)
end sub