Buongiorno a tutti, qualcosa non funziona in questo codice, devo cambiare colore all'Item di due Spinner quando inserisco la "R":
non funziona il colore è sempre nero
Grazie
B4X:
Sub SpinnerInitialize
'Popolo gli spinner delle località
Dim cs As CSBuilder
spnStartLocality.DropdownBackgroundColor = Colors.LightGray
spnStopLocality.DropdownBackgroundColor = Colors.LightGray
For Each Loc As String In AppDeclares.LocalitysList
'colore rosso se R
If Loc = "R" Then
spnStartLocality.Add(cs.Initialize.Append(Loc).Bold.Color(Colors.Red).PopAll)
Else
spnStartLocality.Add(cs.Initialize.Append(Loc).Bold.Color(Colors.Black).PopAll)
End If
'colore rosso se R
If Loc = "R" Then
spnStopLocality.Add(cs.Initialize.Append(Loc).Bold.Color(Colors.Red).PopAll)
Else
spnStopLocality.Add(cs.Initialize.Append(Loc).Bold.Color(Colors.Black).PopAll)
End If
Next
'spnStartLocality.AddAll(AppDeclares.LocalitysList)
'spnStopLocality.AddAll(AppDeclares.LocalitysList)
'selezione di default
spnStartLocality.SelectedIndex = AppDeclares.Localitys.R
spnStopLocality.SelectedIndex = AppDeclares.Localitys.R
End Subnon funziona il colore è sempre nero
Grazie