+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 3 su 3

Discussione: Uno shape lampeggiante multicolor

  1. #1
    tizike non è in linea Scolaretto
    Post
    405

    Uno shape lampeggiante multicolor

    Buonasera

    Ho sempre usato questa semplice routine per far lampeggiare / cambiare colore ad uno schape .
    E che funziona perfettamente
    codice:
    Private Sub Timer1_Timer()
        If Not Shape1.Visible Then Shape1.FillColor = IIf(Shape1.FillColor = vbRed, vbBlue, vbRed)
        Shape1.Visible = Not Shape1.Visible
        End Sub
    Ora volevo aggiungere ancora qualche colore cosi

    codice:
    If Not Shape1.Visible Then Shape1.FillColor = IIf(Shape1.FillColor = vbRed, vbBlue, vbRed, vbYellow, vbGreen)
    ma ricevo errore Wrong number of arguments
    Sbaglio o mi sfugge qualcosa? Grazie

  2. #2
    L'avatar di Max.Riservo
    Max.Riservo non è in linea Scribacchino
    Post
    605
    Quote Originariamente inviato da tizike Visualizza il messaggio
    ...
    codice:
    If Not Shape1.Visible Then Shape1.FillColor = IIf(Shape1.FillColor = vbRed, vbBlue, vbRed, vbYellow, vbGreen)
    ma ricevo errore Wrong number of arguments
    Sbaglio o mi sfugge qualcosa?
    Leggere il manuale (o help) in riferimento a come si usa l'istruzione IIF ti aiuterebbe a comprendere l'errore.

  3. #3
    tizike non è in linea Scolaretto
    Post
    405
    Si ho visto infatti che la scelta puo essere
    Massimo di due tipi di colori. Vedo di usare magari un ciclo o uso di select case. Grazie

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi