Italian CSBuilder

[Fulvio75]

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

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]

Il colore va settato prima del testo che deve assumere quel colore

Dim cs As CSBuilder
Label1.Text = cs.Initialize.Color(Colors.Red).Append("Hello World!").PopAll

 

[LucaMs]

settato

Impostato

 

[udg]

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

 

[Fulvio75]

Provato non funziona

 

[Star-Dust]

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

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

 

[Fulvio75]

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