Differenze tra le versioni di "Impostare il colore dello sfondo del ComboBox"

Versione delle 09:04, 1 mag 2022

Attualmente il ComboBox in Gambas è formato da almeno due Oggetti grafici, verificabili agevolmente invocando la sua Proprietà ".Children":

Public Sub Form_Open()

 Dim OB As Object
 
 For Each ob In ComboBox1.Children
   Print Object.Type(ob)
 Next

End

Come si potrà notare, i due Oggetti - "Figli" del ComboBox - sono un Panel e TextBox.
Pertanto è possibile impostare il colore per almeno tre tipi di fondo del ComboBox:
1) con la Proprietà ".Background" nativa del ComboBox medesimo, la quale determinerà la colorazione dell'intera superficie del ComboBox:

Public Sub Form_Open()

 ComboBox1.Background = Color.Red

End

2) con la Proprietà ".Background" del Panel, primo "Figlio" del ComboBox, la quale determinerà la colorazione della sola parte destra cliccabile del ComboBox:

Public Sub Form_Open()

 ComboBox1.Children[0].Background = Color.Red

End

3) con la Proprietà ".Background" del TextBox, secondo "Figlio" del ComboBox, la quale determinerà la colorazione della sola parte sinistra, contenente la lista testuale, del ComboBox:

Public Sub Form_Open()

 ComboBox1.Children[1].Background = Color.Red

End

Dunque è possibile avere anche una doppia colorazione del ComboBox, ad esempio:

Public Sub Form_Open()

 With ComboBox1
   .List = ["aaaa", "bbbb", "cccc"]
   .Children[0].Background = Color.Red
   .Children[1].Background = Color.Yellow
 End With

End