Italian CSBuilder

Fulvio75

Well-Known Member
Licensed User
Buongiorno a tutti, qualcosa non funziona in questo codice, devo cambiare colore all'Item di due Spinner quando inserisco la "R":

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 Sub

non funziona il colore è sempre nero

Grazie
 

udg

Expert
Licensed User
Longtime User
Il colore va settato prima del testo che deve assumere quel colore
B4X:
Dim cs As CSBuilder
Label1.Text = cs.Initialize.Color(Colors.Red).Append("Hello World!").PopAll
 

udg

Expert
Licensed User
Longtime User
Stavo aggiungendo l'effetto ping-pong a quelli che conosci... e settato è stata una scelta naturale.. eheeh
 

Star-Dust

Expert
Licensed User
Longtime User
Questo codice, deve cambiare colore all'Item di due Spinner quando inserisco la "R":

B4X:
Sub SpinnerInitialize
  
    'Popolo gli spinner delle località
  
  
    spnStartLocality.DropdownBackgroundColor = Colors.LightGray
    spnStopLocality.DropdownBackgroundColor = Colors.LightGray
  
    For Each Loc As String In AppDeclares.LocalitysList
        'colore rosso se R
        Dim cs As CSBuilder
        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
        Dim cs As CSBuilder
        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 Sub
 
Last edited:

Fulvio75

Well-Known Member
Licensed User
B4X:
uesto codice, devo cambiare colore all'Item di due Spinner quando inserisco la "R":

Code:
Sub SpinnerInitialize
  
    'Popolo gli spinner delle località
  
  
    spnStartLocality.DropdownBackgroundColor = Colors.LightGray
    spnStopLocality.DropdownBackgroundColor = Colors.LightGray
  
    For Each Loc As String In AppDeclares.LocalitysList
        'colore rosso se R
        Dim cs As CSBuilder
        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
        Dim cs As CSBuilder
        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 Sub

Provato non funziona
 
Top