Notifications
Clear all

Cor não muda quando mudo o valor da Combobox

3 Posts
1 Usuários
0 Reactions
714 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Criei uma combobox pra, ao selecionar o nome da cor, pintar os meses e anos.

Porém, a combobox só quer pintar de azul, não funciona com as outras cores da lista.

Criei macros para pintar de cada cor e depois usei o call pra "chamar" as cores.

Vejam o arquivo e podem ver que a cor não muda.

Usei o

Private Sub ComboBox1_Change()
If ComboBox1 = "Azul" Then
Call azul
ElseIf ComboBox1 = "Amarelo" Then
Call amarelo
ElseIf ComboBox1 = "verde" Then
Call verde
ElseIf ComboBox1 = "rosa" Then
Call rosa
End If
End Sub

E não vai...

 
Postado : 14/05/2012 7:36 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sparcools, somente as cores Azul e Amarelo são alteradas devido a digitação de correspondencia na rotina, no Combo você faz a comparação :

ElseIf ComboBox1 = "verde" Then e
ElseIf ComboBox1 = "rosa" Then

E na realidade os valores no Combo são : Verde e Rosa, ou seja no combo é diferenciado as Maiusculas.

[]s

 
Postado : 14/05/2012 4:58 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu, Mauro Coutinho!

Obrigado mesmo!

 
Postado : 14/05/2012 5:48 pm