Etichetta lampeggiante

Question

In un form : form1 nell'intervallo timer ho scritto 500 e nell'evento Timer routine

Me.Etichetta22.ForeColor = RGB(255, 255, 255)

Me.Etichetta22.ForeColor = RGB(0, 0, 0)

Che normalmente non funziona

Dove ho sbagliato?

Grazie

Answer 1

Ciao Pgrippa,

il colore della tua etichetta sarà sempre RGB(0, 0, 0) perchè è l'ultima assegnazione che fai nell'evento timer.

Per ottenere il l'effetto lampeggiante devi impostare nel primo timer  RGB(255, 255, 255)

, nel successivo  RGB(0, 0, 0) poi ancora RGB(255, 255, 255) e così via.

cambia il tuo codice così:

---

 If Me.Etichetta22.ForeColor = RGB(255, 255, 255) Then

    Me.Etichetta22.ForeColor = RGB(0, 0, 0)

 Else

    Me.Etichetta22.ForeColor = RGB(255, 255, 255)

 End If

---

Ciao

Giorgio Rancati

Answer 2

Ciao,

---

If Me.Etichetta22.Forecolor = RGB(255, 255, 255) Then

    Me.Etichetta22.Forecolor = RGB(0, 0, 0)

Else

    Me.Etichetta22.Forecolor = RGB(255, 255, 255)

End If

---

David

Answer 3

Grazie David

Sai dirmi dove posso reperire uno schema che mi individui la serie di numeri a che colori sono abinati?

Mi do la risposta da solo,

Sono andato nei colori personalizzati ed ho letto i valori del Rosso, del Verde e del Blu

Tutto ok adesso

Ciao David e Grazie Ancora

Paolo

Answer 4

Ciao Paolo,

alterna i colori con un Select

---

    Select Case Me.Etichetta22.ForeColor

        Case Is = RGB(255, 255, 255)

            Me.Etichetta22.ForeColor = RGB(0, 0, 0)

        Case Is = RGB(0, 0, 0)

            Me.Etichetta22.ForeColor = RGB(255, 255, 0)

        Case Is = RGB(255, 255, 0)

            Me.Etichetta22.ForeColor = RGB(255, 125, 255)

        Case Is = RGB(255, 125, 255)

            Me.Etichetta22.ForeColor = RGB(255, 255, 255)

        Case Else

            Me.Etichetta22.ForeColor = RGB(255, 255, 255)

    End Select

---

Ovviamente cambia il valore RGB dei colori come preferisci tu

David

Answer 5

Un Grazie A David e Giorgio

che sono sempre così disponibili alle mie domande.

Come mi manca quel neurone

Ora però mi avete fatto venire l'acquolina alla bocca

Domanda e se invece di far cambiare colore con soli 2 colori tipo ora bianco e nero ne vorrei altri 2 per un totale di 4 cambiamenti di colore?

Grazieeee

Paolo