🚀 go-pugleaf

Innanzitutto una buona indentazione gi� risolve 2/3 del tuo problema! Di
seguito il codice da te digitato inizialmente con l'indentazione corretta:

' Se = "Rosso" colora di rosso, altrimenti esce direttamente! A causa del
secondo IF che � nidificato con il primo, quindi non diventer� mai verde il
form

If Combo1.Text = "Rosso" Then

    Combo1.BackColor = vbRed

    If Combo1.Text = "Verde" Then
        Form1.BackColor = vbGreen
    End If

End If

Al massimo poteva essere come segue:

If Combo1.Text = "Rosso" Then

    Combo1.BackColor = vbRed

elseif  Combo1.Text = "Verde" Then

        Form1.BackColor = vbGreen

End If

Nel caso di pi� colori era consigliabile utilizzare un "select case" (un p�
meno performante dell'IF)

select case Combo1.Text
    case "Verde"
            Form1.BackColor = vbGreen
    case "Rosso"
            Combo1.BackColor = vbRed
    case "Nero"
            'istruzioni.....
end select


Saluti,
Marco.


"Andreij" <andreijlontanoff(hai visto mai?)@katamail.com> ha scritto nel
messaggio news:zbAdc.34809$hc5.1527219@news3.tin.it...
> Ho modificato in questa maniera:
>
> Private Sub Combo1_Click()
>  If Combo1.Text = "Rosso" Then
>  Combo1.BackColor = vbRed
>  Else
>  Combo1.BackColor = vbGreen
>  End If
>
> End Sub
>
>
> Tuttavia, restano le mie perplessit� e ancora non ho capito perch� non
> funzionava come l'avevo scritto prima. Anche perch� se i colori fossero 24
> invece che 2?
>
> cmq grazie
>
>
>